0

マクロを使用して次のことを実行しようとしています。ドキュメントを開くと、ドキュメント全体で括弧が自動的に検索され、{{ }}内部のテキストを含めて削除されます。ドキュメント全体ではなく、選択したテキストを操作するだけです。

Sub SelectToBracketsDelete()
  With Selection.Find
    .ClearFormatting
    .Text = "{{"
    .Forward = False
    .Wrap = wdFindStop
    .Execute
  End With
  Selection.Extend
  With Selection.Find
    .Text = "}}"
    .Forward = True
    .Execute
    .Text = ""
  End With
  Selection.Text = ""
End Sub
4

1 に答える 1

1

これはあなたが探しているものですか?

Word 2007 ->スタックオーバーフロー

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
   .Text = "\{\{*\}\}"
   .Replacement.Text = ""
   .Forward = True
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = True
   .MatchSoundsLike = False
   .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
于 2013-07-26T19:14:48.130 に答える