英文の各単語の最初の2文字以降を○に変換したい

質問

エクセルのデータに英文がたくさんあります。
英文の各単語の最初の2文字以降を○に変換したいのです。
A列
Learning that your child has cancer is perhaps the hardest news you ever have had to face. As a parent, you must now decide how to tell your child.

Who should tell my child?

これを転換して
B列
Le○○○○○○ th○○ yo○○ ch○○○ ha○ ca○○○○ is pe○○○○○ th○ ha○○○○○ ne○○ yo○ ev○○ ha○○ ha○ to fa○○. As a pa○○○○, yo○ mu○○ de○○○○ ho○ to te○○ yo○○ ch○○○.

Wh○ sh○○○○ te○○ my ch○○○?

単語だけの転換ならばできるのですが、文となるとわかりません。
関数かプログラムでうまく処理できるか教えてください。
よろしくお願いします。

回答No.1

Wendy02 · ベストアンサー

こんばんは。

前の続きですね。まあ、英文内容は難しい(hardest)文章ですね。

以下で試してみてください。多くを調べたわけではありませんから、不都合があるかもしれません。標準モジュールに登録してから、実行してください。

Sub Test1()
　　Dim strPattern As String
　　Dim c As Range
　　Dim buf As String
　　Dim Matches As Object
　　Dim Match As Object

　　strPattern = "\b[^\s]{2,}\b"

　　With CreateObject("VBScript.RegExp")
　　　　.Pattern = strPattern
　　　　.IgnoreCase = True
　　　　.Global = True
　　　　Application.ScreenUpdating = False
　　　　For Each c In Range("A1", Range("A65536").End(xlUp))
　　　　　　If .Test(c.Value) Then
　　　　　　　　buf = c.Value
　　　　　　　　Set Matches = .Execute(buf)
　　　　　　　　For Each Match In Matches
　　　　　　　　　　buf = Replace(buf, Match, Left(Match, 2) & String(Len(Match) - 2, "○"))
　　　　　　　　Next Match
　　　　　　　　c.Offset(, 1).Value = buf

　　　　　　End If
　　　　Next c
　　　　Application.ScreenUpdating = True
　　End With

End Sub

お礼

Wendy02さん、またまたお世話になりましてありがとうございます。
いつもながら即座にご回答いただき助かりました。
見事に一発で転換されたので感動しました。
以前はいちいち手で変換していました。その頃はエクセルの使用も気づかずにワードで作っていました。

エクセルを使い出して、データの利用がいろいろにできるのでその便利さに驚いています。
英語力をつけるためにいろいろと工夫しています。
助かりました。ありがとうございました。