1

ドキュメント内の強調表示されたすべてのテキストを検索する検索ダイアログを準備しようとしています。これをマクロ レコーダーで作成しようとしましたが、ダイアログが表示されなかったり、テキストが見つからなかったりします。

これは私のコードです:

Sub searchForHighlights()

Dim match As Object
Set match = Application.Dialogs(wdDialogEditReplace)

match.Find.ClearFormatting
match.Find.Highlight = True
With match.Find
    .Text = ""
'    .Replacement.Text = ""  <<< I don't want my text to be replaced
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With

match.Show

End Sub

この部分は明らかに間違っています:

Set match = Application.Dialogs(wdDialogEditReplace)
4

1 に答える 1

1

強調表示されたテキストを検索するためにパーツを提出しました。しかし、1つ...「検索ダイアログ」の背後にある機能がよくわかりません。もっとわかりやすく説明していただけませんか？

すべてのオプションが設定された「検索ダイアログ」を表示したいかもしれません。

Sub FindAllHighlighted()
    Selection.Find.ClearFormatting
    Selection.Find.Highlight = True 'searches for highlighted text
    With Selection.Find
        .Text = ""
        .Replacement.Text = "" 'don't bother it wo'nt replace your text
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
Selection.Find.Execute
End Sub
于 2013-07-23T10:46:01.470 に答える