从Excel更改单词表格式

Question

我在Excel中有一个宏，可以创建一个单词，其中一些Excel表被复制，并且我有此代码用于更改格式：

    Set WordTable = myDoc.Tables(i)
    With WordTable
        .AutoFitBehavior (wdAutoFitWindow)
        .Shading.Texture = wdTextureNone
        .Shading.BackgroundPatternColor = wdColorWhite
        .Range.Font.TextColor = wdColorBlack
        .Range.ParagraphFormat.SpaceAfter = 0
    End With

一切正常工作，除非未设置参考“ Microsoft Word Object”。在这种情况下，由于某种原因，阴影变成黑色。除了设置此参考之外，还有什么方法可以解决它？

问题在于，该宏是用户在自己的PC中安装的较大Excel程序的一部分，因此无法与VBA一起使用。

Answer 1

问题是，如果您在Excel和中使用该代码，则未设置的“ Microsoft Word Object库”，Excel不知道该词常数wdautofitwindow ，wdtexturenone < /code>，wdcolorwhite和wdcolorblack。取而代之的是，Excel将将它们视为变量，并且由于您没有初始化它们，每个变量都具有值0。

确保使用optict equipit，以便如果使用未定义的内容，则会获得通知！

我建议始终激活epote equallicit：
在VBA编辑器中，请转到 tools › 选项› 需要变量声明 。

要解决问题，您需要用它们的实际值替换它们（您可以在此处找到枚举的值：枚举（word））或将它们定义为Excel中的常数。

Option Explicit

Public Sub Example
    Const wdAutoFitWindow As Long = 1
    Const wdTextureNone As Long = 0
    Const wdColorWhite As Long = 16777215
    Const wdColorBlack As Long = 0

    Set WordTable = myDoc.Tables(i)
    With WordTable
        .AutoFitBehavior wdAutoFitWindow
        .Shading.Texture = wdTextureNone
        .Shading.BackgroundPatternColor = wdColorWhite
        .Range.Font.TextColor = wdColorBlack
        .Range.ParagraphFormat.SpaceAfter = 0
    End With
End Sub

，如果您计划在多个过程/功能中使用它们，也可以在过程范围之外定义它们。确保在每个模块顶部使用epote epote确保正确声明所有变量，否则您将迅速遇到问题。