word　数式エディタ以外の文章を編集

前提

wordで数式エディタを使い、数式の計算と文章問題を作成しています。

文章問題のみ編集し、数式は変更したくありません。
現在、組んでいるマクロでは数式の数字も検索してしまいます。
数式以外を編集する方法を教えてください。
出来れば文章全体で行いたいです。

文章例：）
端子1−2間の[-数式エディタ]であるから....
端子3−4間の場合は[数式エディタ-]となるため
↑
下記コードはこの文章の数字　ハイフン　数字の並びがあれば
文章の編集を行っています。

また、下記のコードでは１度だけ置き換えて２回目以降はDO　whileから出てしまい
ループできていません。
どこのコードがわるいのでしょうか。
２点質問となっておりますが、ご教示いただけますと幸いです。

ここに質問の内容を詳しく書いてください。

実現したいこと

①DO　whileのループをうまく回したい
②数式以外の文章を編集したい（検索したい）

▲▲機能を動作するようにする

発生している問題・エラーメッセージ

findを使うと数式もすべて検索対象となる
DO　whileがなぜか抜けてしまう

エラーメッセージ

該当のソースコード

Selection.Find.ClearFormatting
'数字-数字は数字を2ptに
With Selection.Find
.Text = "[0-9]" & ChrW(8722) & "[0-9]"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.MatchFuzzy = False
.Font.Bold = False
Do While .Execute
Selection.Font.Spacing = 3
'検索したひとつ前の文字を選択
Selection.Characters.First.Previous.Select
Selection.Font.Spacing = 3
Loop
Selection.MoveRight unit:=wdWord, Count:=2, Extend:=wdMove
End With
ActiveDocument.Range(0, 0).Select

ソースコード

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

回答1件

ベストアンサー

OMathsプロパティで選択範囲の数式を取得できるので、それのCountが0なら数式内ではないと判断できそうです。

Selection.OMaths プロパティ (Word) | Microsoft Learn

vba
1Do While .Execute
2    If Selection.OMaths.Count = 0 Then
3        
4    End If
5Loop

ループしない件ですが、
いろいろテストして下記のようなコードになりました。こちらのサンプルではうまく動作してます。

vba
1Sub テスト()
2    Selection.Find.ClearFormatting
3    With Selection.Find
4        .Text = "[0-9]" & ChrW(8722) & "[0-9]"
5        .Forward = True
6        .Wrap = wdFindContinue
7        .Format = False
8        .MatchCase = False
9        .MatchWholeWord = False
10        .MatchByte = False
11        .MatchAllWordForms = False
12        .MatchSoundsLike = False
13        .MatchFuzzy = False
14        .Font.Bold = False
15        .MatchWildcards = True
16        Do While .Execute
17            If Selection.OMaths.Count = 0 Then
18                Selection.Font.Spacing = 3
19                Selection.Characters.First.Previous.Font.Spacing = 3
20            End If
21        Loop
22        Selection.MoveRight unit:=wdWord, Count:=2, Extend:=wdMove
23    End With
24    ActiveDocument.Range(0, 0).Select
25End Sub