Microsoft Word 2003 中对字母的大量更改答案

【问题标题】：Mass Change to Letters in Microsoft Word 2003Microsoft Word 2003 中对字母的大量更改
【发布时间】：2015-05-09 21:16:46
【问题描述】：

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

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

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

【问题讨论】：

你可以写一个VBA宏来做你提到的事情。但是，如果您以前没有 VBA 编程经验，那么如果只是这一次，可能会很容易手工完成。
如果您仍想尝试 VBA 方式，请在 SO 或 Internet 上查找您需要在此处执行的不同操作：找到所有文件，打开它们，编辑并保存。跨度>
或者，您可以等待，有人会为您编写！ ;)
感谢 Olle，非常感谢。

标签： vba ms-word

【解决方案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

【讨论】：