찾아 테이블

Question

나는 여러 테이블을 가진 문서가의 첫 번째 열에서 텍스트를 교체하고 나는 첫 번째 열의 모든 셀에 만을보고 다음 교체 할 필요가 : ( :

• 찾기 [0-9] {1, 2})^S
• 바꾸. \ 1^P

이 가능있는 열의 다른 그것을 사용하기 위해,보고 선택하는 문서 ents, replacement? 여기

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 

이/당신의 발견 수만 있다면 ... 확실하지 문자열을 대체와 같은 예는 정규 표현식이었다 교체하거나하지 않습니다 그것은 귀하의 질문에 명확하게 진술되지 않았습니다.