查找和表

Question

我有多個表的文檔的第一列替換文本，我需要看看只在第一列的每一個細胞，做一次更換：

• 發現：（ [0-9] {1; 2}）2 -S
• 取代： \ 1^p

是否有可能選擇其中列以查找，以便將其用於其他解決的文ents，替換？

Answer 1

在這裏你去：

Sub Replace_in_Tables(strFind As String, strReplace As String, intColumn As Integer) 

    Dim oTable As Table 
    Dim oRow As Row 

    For Each oTable In ThisDocument.Tables 

     For Each oRow In oTable.Rows 
      oTable.Cell(oRow.Index, intColumn).Range.Text = Replace(oTable.Cell(oRow.Index, intColumn).Range.Text, strFind, strReplace) 
     Next oRow 

    Next oTable 

End Sub 

這樣稱呼它：

Sub test() 

    ' replace in all tables of this document, on column 1, the string "aaa" with "xxxxxxxxxxx" 

    Replace_in_Tables "aaa", "xxxxxxxxxxxxx", 1 

End Sub 

這將替換字符串只是......不知道你的查找/替換的例子是一個正則表達式與否，在你的問題中沒有明確說明。