WORD VBA 漢字以外の場合

Question

前提

ここに質問の内容を詳しく書いてください。
（例）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 = "ＭＳ 明朝"
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/ツールのバージョンなど）

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

Answer 1

漢字の判定方ですが、下記によるとUnicodeの 4E00～9FFF の範囲だそうです。

Unicode CJK統合漢字－全漢字一覧 - CyberLibrarian

ということで、AscW関数で Unicode を取得して、4E00～9FFF の範囲かどうかで判定すればどうでしょう。

    'ひとつ前の文字が漢字以外だったら
    Select Case Hex(AscW(Selection.Text))
    Case "4E00" To "9FFF"
    Case Else
        Selection.Font.Italic = True
        Selection.Font.Spacing = 2
    End Select

Comments

[hiyoko0410]

漢字の判定はうまくいきました！
漢字以外にする場合はどこかにnotをつければよいのか、
それともif文で分岐させるのでしょうか。

また、初歩的なことで申し訳ありませんが

'検索したひとつ前の文字を選択
Selection.Words.First.Previous.Select
これで　ひとつ前の文字が選択できませんでした。

試そうとしている文字の並びは
１つ目　漢[　　２つ目　s[
２つめのsは斜め文字になってます。
斜め文字＆文字幅が2ptになっていると
Selection.Words.First.Previous.Selectで文字が選択できませんでした。

ほかに前の文字を選択する方法をご存知でしたらご教示いただけませんでしょうか。
いつも丁寧にありがとうございます。

[hatena19]

漢字以外でしたか。読み違えてました。Case Else を使ってください。(回答も修正済み）

Select Case Hex(AscW(Selection.Text))
Case "4E00" To "9FFF"
Case Else
Selection.Font.Italic = True
Selection.Font.Spacing = 2
End Select

一つ前の文字を選択はこちらのサンプルではできてます。
Selection.Characters.First.Previous
を試してみてください。

[hiyoko0410]

ありがとうございます！
Selection.Characters.First.Previousもうまく選択できました。

数字は漢字以外と判定されうまくいきました。
なぜかアルファベットも漢字判定されています。
なぜだかわかりますでしょうか。

[hatena19]

こちらで作成したサンプルでは半角アルファベット、全角アルファベットとも、漢字とは判定されせませんでした。
具体的にはどのようなアルファベットてすか。
下記のコードをそのアルファベットで実行するとどうなりますか。

Public Sub test()
Dim s As String
s = "A" 'ここをいろいろ変えて確認してください。
Select Case Hex(AscW(s))
Case "4E00" To "9FFF"
MsgBox "漢字です。"
Case Else
MsgBox "漢字以外です。"
End Select
End Sub

[hatena19]

低評価つけた方、その理由を後学のために教えてください。

[hiyoko0410]

上記の式で試しましたが漢字と判定されました。
教えていただいた式でいろいろなアルファベット調べましたが
P,R,Sなどだめでした。小文字も漢字判定でした。

Sは斜め文字かつFont.Spacing = 2と設定済です。
数式の文章問題を作成しています。
パソコンのバージョンの問題でしょうか。。

[hatena19]

パソコンは Mac ということはないですか。

下記のコードを試しても結果を教えてもらえますか。

Public Sub test2()
Dim s As String
s = "A" 'ここをいろいろ変えて確認してください。
Select Case Asc(s)
Case &H889F To &HFFF0
MsgBox "漢字です。"
Case Else
MsgBox "漢字以外です。"
End Select
End Sub

[hiyoko0410]

NECのwindowsパソコンです。
天才です！！できました！
ありがとうございます！！！
低評価はきっとボタンの押し間違いです！
すばらしいです。ありがとうございます。
お付き合いありがとうございました。