将文本转换为表格VBA MS Word-自动调整为不起作用的内容

我正在尝试将文本自动转换为表格。当我在录制宏时选择“自动适应内容”时，我得到以下代码：

    WordBasic.TextToTable ConvertFrom:=1, NumColumns:=2, NumRows:=6, _
    InitialColWidth:=wdAutoPosition, Format:=0, Apply:=1184, AutoFit:=1, _
    SetDefault:=0, Word8:=0, Style:="Table Grid"

但是，当我将此代码作为未更改的录制宏的一部分运行时，它不会自动适应内容。有人知道我哪里出错了吗

---

我希望它根据内容自动调整，但宏录制器不会录制该部分。我是微软word 2007。我在谷歌上搜索了30分钟，但没有找到解决办法。

为了自动适应内容，我添加了下面的最后一行：

WordBasic.TextToTable ConvertFrom:=1, NumColumns:=2, NumRows:=6, _
InitialColWidth:=wdAutoPosition, Format:=0, Apply:=1184, AutoFit:=1, _
SetDefault:=0, Word8:=0, Style:="Table Grid"
Selection.Tables(1).AutoFitBehavior wdAutoFitContent     ' *** Added this