Microsoft Word 2003中的大量字母更改

时间:2013-01-29 13:34:25

标签: vba ms-word

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

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

我需要进入每个字母并删除第1栏和第1栏的内容。第一个单元格和第二列的内容,替换为空。

1 个答案:

答案 0 :(得分: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