vba - 批量更改 Microsoft Word 2003 中的字母

Question

我在 Microsoft Word 2003 中有一个包含大约 1000 个字母的文件夹。

这些字母的标题具有相似的布局，但内容可能不同。标题的布局是一个 2 列 2 行的表格，但第二列的单元格合并了。在标题表之前总是有两个回车。

我需要进入每个字母并删除第一列和第一单元格的内容以及第二列的内容，将其替换为空。

Answer 1

您可以使用 VBA 宏遍历所有文件并将更改应用于表，例如使用以下代码：

Sub CleanHeader()
    Dim strDirectory As String
    Dim strFile As String

    strDirectory = "C:\tmp\"
    strFile = Dir(strDirectory & "*.doc")

    Do While strFile <> ""
        Dim oDoc As Document
        Dim oTable As Table

        Set oDoc = Documents.Open(FileName:=strDirectory & strFile)
        Set oTable = oDoc.Tables(1) ' get the correct table here
        oTable.Columns(1).Delete ' deletes an entire column
        oTable.Cell(1, 2).Range.text = "" ' empties a cell

        oDoc.Close SaveChanges:=True
        strFile = Dir
    Loop
End Sub