word vbaで選択範囲の文字のならびを１文字ずつ確認

Question

word　vbaで文字のならびを１文字ずつ確認し、該当する並びだった場合
文字の書式設定を行いたいです。

実現したいこと
例：）文章を選択し、「あA」（文字→英字）の並びがあったら
ひらがなを標準字、英字の書式を0.5広くする

考えたマクロは下記の通りです。

Do While Selection.Start < Selection.End

myS = Selection.Range.Start
myM = Selection.Range.Start + 1


'文字、アルファベット一文字の並びで斜め文字の文字間隔（同じ列内に限る）
If myS Like "[あ-ん]" And myE Like "[a-zA-Z]" Then

' myE.Selection
If myM.Font.Italic = True Then
Selection.Font.Spacing = 0.5
End If
End If
Loop

myS が文字ではなく数字が入り、うまく条件にあてはまりません。
どのようにすれば設定できるでしょうか。

ご教示ください。

追加で質問です
paragraphs.count で段落を数えようとしましたが、
オブジェクトが必要ですと表示されました。

いろいろ検索しましたが、答えが見当たりませんでした。

ご教示お願いします。

Answer 1

ワイルドカードを使って検索すればいいでしょう。

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "[ぁ-ん][a-zA-Z]"
        .Wrap = wdFindContinue
        .MatchWildcards = True
        Do While .Execute
            If Selection.Characters(2).Font.Italic = True Then
                Selection.Font.Spacing = 1
            End If
        Loop
    End With
    ActiveDocument.Range(0, 0).Select

Comments

[hiyoko0410]

ご回答ありがとうございます。
早速入力してみたところ、
エラーコード　6182
matchphrase,machuwildcards,matchsoundslike,matchallwordforms,matchfuzzy パラメーターは同時にtrueに設定することができませんとでました。

ほか方法ご存知でしょうか。
ご丁寧に回答いただいたところ申し訳ありませんが
最後ご教示いただけますと幸いです。

[hatena19]

当方のサンプルではエラーなく動作するのを確認済みです。
実際のコードを Sub から End Sub までコピーして貼り付けてもらえますか。
また、どの行でそのエラーがでるか教えてください。

[hiyoko0410]

教えていただいたマクロに
sub　テスト()
Selection.Find.ClearFormatting
With Selection.Find
.Text = "[ぁ-ん][a-zA-Z]"
.Wrap = wdFindContinue
.MatchWildcards = True
Do While .Execute
If Selection.Characters(2).Font.Italic = True Then
Selection.Font.Spacing = 1
End If
Loop
End With
ActiveDocument.Range(0, 0).Select
endsub
で試したところ、
.MatchWildcards = True
で先ほどのエラーがでました。

WindowsのバージョンはWindows 10 Homeです。

[hatena19]

検索してみたら下記が参考になりそうです。
https://stabucky.com/wp/archives/3458

下記でどうでしょう。

Sub テスト()
Selection.Find.ClearFormatting
With Selection.Find
.Text = "[ぁ-ん][a-zA-Z]"
.Wrap = wdFindContinue
.Replacement.Text = ""
.MatchPhrase = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.MatchFuzzy = False
.MatchWildcards = True
Do While .Execute
If Selection.Characters(2).Font.Italic = True Then
Selection.Font.Spacing = 0
End If
Loop
End With
ActiveDocument.Range(0, 0).Select
End Sub

[hiyoko0410]

希望通りの処理が出来ました。
ご丁寧にありがとうございます。
感動しています！！！
また質問したときはどうぞよろしくお願いいたします。