|
Word2010 on Windows 7 32bitです。
サンプル
Sub test()
Selection.Text = "マザー"
Debug.Print "1:" & Selection.Words(1) & ";単語のみ"
Selection.Text = "マザー "
Debug.Print "2:" & Selection.Words(1) & ";単語+全角スペース"
Selection.Text = "マザー "
Debug.Print "3:" & Selection.Words(1) & ";単語+半角スペース"
Selection.Text = "マザー チャイルド"
Debug.Print "4:" & Selection.Words(1) & ";単語+全角スペース+単語"
Selection.Text = "マザー チャイルド"
Debug.Print "5:" & Selection.Words(1) & ";単語+半角スペース+単語"
Selection.Text = "チャイルド マザー"
Debug.Print "6:" & Selection.Words(1) & ";単語+半角スペース+単語"
End Sub
結果
1:マザー;単語のみ
2:マザー;単語+全角スペース
3:マザー;単語+半角スペース
4:マザー ;単語+全角スペース+単語
5:ー ;単語+半角スペース+単語
6:チャイルド;単語+半角スペース+単語
5のケース(音引き+半角スペース)で期待する結果を得られないのですが、こちらの環境だけでしょうか?
どなたか追試をお願いします。
|
|