通过 VBA 在 Word 中设置字体大小仅适用于某些文档

Question

我正在尝试通过 VBScript 以编程方式修改一组 Word 标题。

我采取的步骤如下（在伪代码中）：

For each word-document in source-folder
    Open word-document
    Clear current headers 
    Clear current tabstops
    Set font to 9
    Insert prepared string
    Close word-document
End For

我遇到的问题是一小部分但一致的文档组已应用了所有步骤除了字体更改。

我用来执行字体更改的代码如下：

Sub setFont
    ' Select the header view
    WordApp.ActiveWindow.ActivePane.View.SeekView = 9 
    ' Set the font to 9
    WordApp.ActiveWindow.Selection.Font.Size = "9"
    ' Go back the the main body view
    WordApp.ActiveWindow.ActivePane.View.SeekView = 0 
End Sub

据我所知，脚本失败的那批文档没有任何独特之处。该文档集包含各种字体大小和制表位位置，并且该脚本适用于该集中的 70 多个其他文档。

如果有人可以帮助我确定为什么该代码无法在某些文档上运行，我将非常感激。

Answer 1

您可能需要设置Selection 以便它包含整个标题。这是添加了代码行的代码。警告：未经测试！

Sub setFont()
    ' Select the header view
    WordApp.ActiveWindow.ActivePane.View.SeekView = 9
    ' Make the selection the entire header
    WordApp.ActiveWindow.Selection.WholeStory
    ' Set the font to 9
    WordApp.ActiveWindow.Selection.Font.Size = "9"
    ' Go back the the main body view
    WordApp.ActiveWindow.ActivePane.View.SeekView = 0
End Sub

您可能可以在此代码中使用With ... End With 块：

Sub setFont()
    With WordApp.ActiveWindow
        ' Select the header view
        .ActivePane.View.SeekView = 9
        ' Make the selection the entire header
        .Selection.WholeStory
        ' Set the font to 9
        .Selection.Font.Size = "9"
        ' Go back the the main body view
        .ActivePane.View.SeekView = 0
    End With
End Sub