Word VBA Tìm
Ví dụ này là một macro từ đơn giản tìm văn bản “a”:
Sub SimpleFind () Selection.Find.ClearFormatting With Selection.Find .Text = "a" .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute End Sub
Tìm và thay thế
Macro đơn giản này sẽ tìm kiếm từ “their” và thay thế nó bằng “there”:
Sub SimpleReplace () Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "their" .Replacement.Text = "there" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace: = wdReplaceAll End Sub
Chỉ Tìm và Thay thế trong Lựa chọn
Macro VBA này sẽ tìm và thay thế văn bản trong một lựa chọn. Nó cũng sẽ in nghiêng văn bản được thay thế.
Sub ReplaceInSelection () 'thay thế văn bản JUST trong lựa chọn. trong adittion nó làm cho văn bản được thay thế in nghiêng Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "their" With .Replacement .Font.Italic = True .Text = "there" End With .Forward = True .Wrap = wdFindStop 'điều này ngăn Word tiếp tục đến cuối doc .Format = True' chúng tôi cũng muốn thay thế định dạng của văn bản .MatchCase = False .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End Với Selection.Find.Execute Replace: = wdReplaceAll End Sub
Dòng mã này ngăn VBA tiếp tục đến cuối tài liệu Word:
.Wrap = wdFindStop 'điều này ngăn Word tiếp tục đến cuối tài liệu
Dòng mã này cũng cho biết để thay thế định dạng của văn bản:
.Format = True 'chúng tôi cũng muốn thay thế định dạng của văn bản
Chỉ tìm và thay thế trong phạm vi
Thay vì thay thế văn bản trong toàn bộ tài liệu hoặc trong một vùng chọn, chúng ta có thể yêu cầu VBA chỉ tìm và thay thế trong phạm vi. Trong ví dụ này, chúng tôi đã xác định phạm vi là đoạn đầu tiên:
Dim oRange As Range Set oRange = ActiveDocument.Paragraphs (1) .Range
Sub ReplaceInRange () 'thay thế văn bản JUST trong phạm vi [trong ví dụ này chỉ trong đoạn đầu tiên] Dim oRange As Range Set oRange = ActiveDocument.Paragraphs (1) .Range oRange.Find.ClearFormatting oRange.Find.Replacement.ClearFormatting With oRange. Tìm .Text = "their" .Replacement.Text = "there" .Forward = True .Wrap = wdFindStop 'điều này ngăn Word tiếp tục đến cuối doc .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With oRange.Find.Execute Replace: = wdReplaceAll End Sub
