[ 返信 ]

Re: MSワードの下線を自動的にインデザインに

タグ付処理のWordマクロです。

Sub 下線をタグで囲む()
'
'下線の文字を<kk>と</kk>で囲みます
'
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting

.Text = ""
.Font.Underline = wdUnderlineSingle '一重下線
.Replacement.Text = "<kk>^&</kk>"
.Replacement.Font.Underline = wdUnderlineNone '下線なし
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
MsgBox "完了しました"
End Sub

[19096] Subi (2017/03/24 Fri 13:37) web