Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

165 / 886

←次へ　｜　前へ→


	【745】Re:漢字あるいはカタカナからなる文字列の単語の取得

マナ - 13/5/2(木) 14:20 -


	引用なし

	パスワード

回答がつきませんでしたので、もう必要ないかもしれませんが。
自分に勉強のために。

>　　Select Case Activedocument.words(i)
>　　Case"[－-鶴]{1,}","[ァ-ヾ]{1,}","[ｦ-ﾟ]{1,}"
>
>としましたが、対象文字列を拾ってくれません。
>
>定義の仕方に問題があるのでしょうか。

Select Caseではワイルドカードは使えなかったかと思います。

Sub test()
　　Dim myRng As Range
　　Dim w As Object
　　Dim cnt As Long
　　
　　Set myRng = Selection.Range

　　With CreateObject("VBScript.RegExp")
　　　　.Pattern = "^[一-鶴]+$|^[ァ-ヾ]+$|^[ｦ-ﾟ]+$"
　　　　For Each w In myRng.Words
　　　　　　If .test(w.Text) Then
　　　　　　　　'ここで実行
　　　　　　　　Debug.Print w.Text
　　　　　　　　cnt = cnt + 1
　　　　　　End If
　　　　Next
　　End With
　　If cnt > 0 Then
　　　　MsgBox cnt & "個ありました"
　　Else
　　　　MsgBox "1個もありませんでした"
　　End If
End Sub

392 hits

▼

【672】漢字あるいはカタカナからなる文字列の単語の取得 初心者 10/2/11(木) 13:10