文字列の中間の英数字を削除したい
ワードのマクロで、
和文字(明朝黒色標準)+英数字(明朝黒色標準)+英数字(明朝赤色太字)
のような任意の文字列を選択し、中間位置の黒色明朝の英数字のみを削除し、
和文字(明朝黒色標準)+英数字(明朝赤色太字)
のような文字列に加工したいのですが、どうしたら良いでしょうか。
どなたか、お教え下さい。
和文字(明朝黒色標準)+英数字(明朝黒色標準)+英数字(明朝赤色太字)の文字列で、
和文字の一番後ろの文字の位置は
myStr = Selection.Range.Text
Set RE = New RegExp
strPattern = "[0-9A-Za-z'0-9A-za-z'-]+"
With RE
.Pattern = strPattern
.IgnoreCase = True
.Global = True
.MultiLine = True
End With
Set Matches = RE.Execute(myStr)
index = Matches.Item(Matches.Count - 1).FirstIndex
によって、indexで獲得できるようですが、
英数字(明朝黒色標準)を除去するには、
Selection.Range.Textの文字列の中の、英数字(明朝黒色標準)の長さを取得した上で、
和文字(明朝黒色標準)+英数字(明朝黒色標準)+英数字(明朝赤色太字)の文字列から、英数字(明朝黒色標準)を除去する、
ということになると思いますが、マクロが分かりません。
どうしたら良いでしょうか。どなたか、お教え下さい。重ねてお願いいたします。