vba - Microsoft Word 2003 の文字への一括変更

Question

Microsoft Word 2003 に約 1000 文字のフォルダーがあります。

これらのレターには同様のレイアウトのヘッダーがありますが、内容は異なる場合があります。ヘッダーのレイアウトは 2 列 2 行の表ですが、2 列目にはセルが結合されています。ヘッダー テーブルの直前には、常に 2 つのキャリッジ リターンがあります。

各文字に移動し、1 列目と 1 列目のセルの内容と 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