タグ:Word
Word文書でルビを一括して削除
WordのVBAを利用して、ルビを削除してみた。
でも、フィールド更新がVBAにできなかったので、その部分は手動。
そのうちに、完全VBAにしたいものだ。
Sub ルビ一括削除()
'
' ルビ一括削除 Macro
' ルビを一括で削除します。
もうちょっと、研究してみようと思います。
でも、フィールド更新がVBAにできなかったので、その部分は手動。
そのうちに、完全VBAにしたいものだ。
Sub ルビ一括削除()
'
' ルビ一括削除 Macro
' ルビを一括で削除します。
'
' ------すべて選択( Ctrl + A )
Selection.WholeStory
Selection.WholeStory
' ------フィールドコード表示
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
' ------ 置換
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "EQ*\),(*)\)"
.Replacement.Text = "COMMENTS \1"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
' ------ ここまでが置換
' ------ メッセージボックスを表示
MsgBox "(1) 右クリックして「フィールドの更新」をクリック" & vbCrLf & "(2) Alt + F9"
End Sub
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "EQ*\),(*)\)"
.Replacement.Text = "COMMENTS \1"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
' ------ ここまでが置換
' ------ メッセージボックスを表示
MsgBox "(1) 右クリックして「フィールドの更新」をクリック" & vbCrLf & "(2) Alt + F9"
End Sub
もうちょっと、研究してみようと思います。
Wordで作成したPDFの容量比較
Word差し込み印刷で配偶者の有無で敬称を付ける
年賀状、挨拶状、連絡などのはがきで、wordの差し込み印刷の宛名印刷は、とても便利です。
でも…
奥様、ご家族、同僚など「連名」で名前を記述する場合、
敬称の表示が問題となります。
単純に「様」をつけておくと「連名」がない場合は、「様」が邪魔になります。
かといって、敬称なしでは大変失礼に当たります。
条件によって。敬称を付けたり、つけなかったり…
簡単にできないものでしょうか?
続きを読む
でも…
奥様、ご家族、同僚など「連名」で名前を記述する場合、
敬称の表示が問題となります。
単純に「様」をつけておくと「連名」がない場合は、「様」が邪魔になります。
かといって、敬称なしでは大変失礼に当たります。
条件によって。敬称を付けたり、つけなかったり…
簡単にできないものでしょうか?
続きを読む