如何使用VBA（Visual Basic for Applications）在Microsoft Word中获取并计算当前打开文档的总页数？能否提供一个相关的VBA脚本示例？

在 Microsoft Word 中，使用 VBA 可以通过 `ActiveDocument` 对象的 `Range` 属性和 `Pages` 属性来获取并计算文档的总页数。下面是一个简单的 VBA 脚本示例：

Sub GetTotalPages()
    Dim doc As Document
    ' 创建一个新的 Document 对象，代表当前打开的文档
    Set doc = Application.ActiveDocument

    ' 使用 Range 的 End 函数找到文档的最后一个字符
    Dim lastChar As Integer
    With doc.Range
        lastChar = .Characters.Last.End(Units:=wdCharacter)
    End With

    ' 然后除以每行字符数（默认是千字节），得到页码
    Dim totalPages As Integer
    totalPages = Int(lastChar / 1088) ' 1088 通常用于近似计算 Word 的一页字符数

    MsgBox "The current document has a total of " & totalPages & " pages.", vbInformation, "Total Pages"
End Sub

注意，这个脚本假设一个标准的 Word 页面大约有 1088 个字符（这通常是基于标准的西文字符集）。如果你的文档包含非标准字体或特殊字符，可能会有所不同。