| |
御質問の件は、ワイルドカードを使ってできます。
ワイルドカードの指定した内容については、
もっと改善の余地があると思いますが、
私がヘルプや書籍で調べた限りでは、
「正規表現」のような精緻な検索はできないようです。
まずは、下記の通りの回答ということでお許し下さい。
Sub myNumber()
Rem *----*----* *----*----* *----*----* *----*----*
Rem 漢数字/洋数字検索処理
Rem *----*----* *----*----* *----*----* *----*----*
'
Dim myStartMarker As Word.Range
'
Rem カーソルが文章の途中あると、不都合が起こるので、
Rem 文章の先頭に移動する。
Selection.Sentences(1).Select
Selection.Collapse wdCollapseStart
'
Rem 検索開始点の取得。
Set myStartMarker = Selection.Range
'
Rem 検索開始。（ワイルドカードを使用）
With Selection.Find
.ClearFormatting
.Text = "[0-9０-９〇一二三四五六七八九十百千万億兆]{1,}"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
End With
'
Rem 検索実行。（検索開始点から下を処理する）
Do While Selection.Find.Execute
With Selection
.Range.HighlightColorIndex = wdYellow ' 蛍光ペン：黄色
.Font.Color = wdColorRed ' フォントの色：赤色
.Collapse wdCollapseEnd
End With
Loop
'
Rem 検索開始点に戻る。
myStartMarker.Select
MsgBox "検索終了！"
End Sub ' myNumber *----*----* *----*----* *----*----* *----*----*
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
