前提
ここに質問の内容を詳しく書いてください。
(例)word vba で文章を編集しています。
TypeScriptで●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。
実現したいこと
word vba で ”[” を検索し、”[" の前の文字を斜体にしようと思っています。
”["を検索することはできましたが、
”[”の前の文字が漢字の場合は斜体にしたくありません。
漢字以外と斜体文字以外はうまく編集できました。
ここに実現したいことを箇条書きで書いてください。
- ▲▲機能を動作するようにする
発生している問題・エラーメッセージ
”[”の前の文字が斜体になっていると、
[亜-熙ぁ-んァ-ヶA-Za-z0-9]のどれの文字にも該当せず
if文が使えない
漢字を認識してくれない
亜-熙や一-龠でもだめでした。
エラーメッセージ
該当のソースコード
試したのは下記のコードです。
Selection.Find.ClearFormatting
'[をMS明朝にして、ひとつ前の文字を斜体にする(漢字は除く)
With Selection.Find
.Text = "["
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
.Font.Bold = False
Do While .Execute
Selection.Characters(1).Font.Name = "MS 明朝"
Selection.Font.Italic = False
Selection.Font.Spacing = 0
'検索したひとつ前の文字を選択
Selection.Words.First.Previous.Select
'ひとつ前の文字が漢字以外だったら
If Selection.text= "[A-Za-z0-9]" Then
Selection.Font.Italic = True
Selection.Font.Spacing = 2
End If
Selection.MoveRight unit:=wdWord, Count:=2, Extend:=wdMove
Loop
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveDocument.Range(0, 0).Select
ソースコード
試したこと
ここに問題に対して試したことを記載してください。
どうかお力添えをお願いします。
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。

回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2022/09/24 15:07
2022/09/24 15:55
2022/09/25 00:48
2022/09/25 01:19
2022/09/25 01:21
2022/09/25 08:10
2022/09/25 08:44
2022/09/25 10:04