Question

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

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

但是，当我将此代码作为未更改的录制宏的一部分运行时，它不会自动适应内容。任何人都有任何想法我错了？

我希望它根据内容自动调整，但宏录制器不会记录该部分。我在2007年的单词中说道。我用谷歌搜索了30分钟，但无法做什么。

Answer 1

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

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

将文本转换为表VBA MS Word - AutoFit到内容不起作用

1 个答案: