前提
wordで数式エディタを使い、数式の計算と文章問題を作成しています。
文章問題のみ編集し、数式は変更したくありません。
現在、組んでいるマクロでは数式の数字も検索してしまいます。
数式以外を編集する方法を教えてください。
出来れば文章全体で行いたいです。
文章例:)
端子1−2間の[-数式エディタ]であるから....
端子3−4間の場合は[数式エディタ-]となるため
↑
下記コードはこの文章の数字 ハイフン 数字の並びがあれば
文章の編集を行っています。
また、下記のコードでは1度だけ置き換えて2回目以降はDO whileから出てしまい
ループできていません。
どこのコードがわるいのでしょうか。
2点質問となっておりますが、ご教示いただけますと幸いです。
ここに質問の内容を詳しく書いてください。
実現したいこと
①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件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2022/09/28 12:00