DTP駆け込み寺
  1. [19094] MSワードの下線を自動的にインデザインに(半自動でも) たか 2017/03/24 01:54
    1. [19095] Re: MSワードの下線を自動的にインデザインに -e 2017/03/24 09:32
    2. [19096] Re: MSワードの下線を自動的にインデザインに Subi 2017/03/24 13:37

[ 返信 ]

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

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

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

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

[ 返信 ]


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

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

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

[ 返信 ]


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