这段代码只能解决word内容是单列排版没有考虑到内容排版是双列的情况请你在这段代码的基础上完善

如果内容排版是双列的情况，可以在代码中加入对应的处理逻辑。以下是可能的完善方法：

1. 判断文档是否是双列排版

可以通过判断文档页面的列数来确定文档是否是双列排版。例如，可以使用以下代码：

if active_document.PageSetup.TextColumns.Count > 1:
    is_double_column = True
else:
    is_double_column = False

2. 修改“插入图片”的代码

如果文档是双列排版，需要在插入图片时考虑图片所在的列数。可以通过以下代码获取当前光标所在列的编号：

column_number = selection.Information(wdEndOfRangeColumnNumber)

然后根据列数的奇偶性，决定图片应该插入到哪一列。例如：

if is_double_column and column_number % 2 == 0:
    selection.MoveLeft(wdCharacter, 1)

这段代码的意思是，如果文档是双列排版且当前光标所在列是偶数列，则将光标向左移动一格，以便将图片插入到奇数列。

3. 修改“插入图表”的代码

同样地，如果文档是双列排版，需要在插入图表时考虑图表所在的列数。可以使用类似的代码获取当前光标所在列的编号，然后根据列数的奇偶性决定图表应该插入到哪一列。例如：

if is_double_column and column_number % 2 == 1:
    selection.MoveLeft(wdCharacter, 1)

这段代码的意思是，如果文档是双列排版且当前光标所在列是奇数列，则将光标向左移动一格，以便将图表插入到偶数列。