MSワードの下線を自動的にインデザインに（半自動でも）

マイクロソフトのワードデータが入稿されて、下線が引かれている個所が沢山ありすぎて困っています。テキストにした際に、なんらか、痕跡を残す方法はないでしょうか？

例えば、
私は、今日本をかいました。（本に下線）
私は、今日<KK>本<KK>をかいました。
などが希望です。無理なような気もしますが何かあれば教えていただけませんか？

[19094] たか (2017/03/24 Fri 01:54)

[ 返信 ]

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

そのまま「配置」すれば下線付きで来ますよ。

[19095] -e (2017/03/24 Fri 09:32)

[ 返信 ]

タグ付処理の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