カテゴリ:PCヒント集 > Office関連
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
もうちょっと、研究してみようと思います。
MyFont見本帳(パソコンに入っているフォント見本)
画像の回転角度を求める
Wordで作成したPDFの容量比較
Wordの差し込みで漢数字に変換
Wordの差し込み文書で、住所などを縦書きにするとき、丁目番地号などの数字を漢字にしたいことがあります。
はがき印刷の、ウィザードで漢数字に変換ができますが、ウィザードを利用しないで漢数字に変換するためにはどうしたらいいでしょうか?
続きを読む
はがき印刷の、ウィザードで漢数字に変換ができますが、ウィザードを利用しないで漢数字に変換するためにはどうしたらいいでしょうか?
続きを読む
エクセルでセル内の改行を解除する方法
エクセルに設定されている外部リンクを解除
エクセルを開いたときに、こんなメッセージが出ることがあります。
なんのことなのかびっくりします。
このメッセージが出ないようにするには、外部ファイルからのリンクを解除します。
解除方法
1.データタブをクリック
このブックには、安全ではない可能性のある外部ソースへのリンクが1つ以上含まれています。
リンクを信頼できる場合、リンクを更新して最新データを取り込みます。信頼できない場合は、データをそのまま手元で処理してかまいません。
なんのことなのかびっくりします。
このメッセージが出ないようにするには、外部ファイルからのリンクを解除します。
解除方法
1.データタブをクリック
2.リンクの編集をクリック
3.リンクの解除ボタンをクリック
このメッセージは、貼り付けの時に「リンク貼り付け」を行った時に発生します。
別のエクセルのブック(別のファイル)からデータなどを張り付けたときに、リンク貼り付けを行うと、
元のブックでデータを修正したら、自動的にデータが更新されます。
■ この仕組みを理解していると、とても有効に利用できるのですが…
× うっかり忘れてしまうと、すごく戸惑います。
× ほかの人とファイルを共有したら、データを更新したとき「異常」だと感じます。
× リンクを2つ以上設定したり、リンクのさらにリンクなどの重複した設定をすると悩みが深くなることがあります。
Word差し込み印刷で配偶者の有無で敬称を付ける
年賀状、挨拶状、連絡などのはがきで、wordの差し込み印刷の宛名印刷は、とても便利です。
でも…
奥様、ご家族、同僚など「連名」で名前を記述する場合、
敬称の表示が問題となります。
単純に「様」をつけておくと「連名」がない場合は、「様」が邪魔になります。
かといって、敬称なしでは大変失礼に当たります。
条件によって。敬称を付けたり、つけなかったり…
簡単にできないものでしょうか?
続きを読む
でも…
奥様、ご家族、同僚など「連名」で名前を記述する場合、
敬称の表示が問題となります。
単純に「様」をつけておくと「連名」がない場合は、「様」が邪魔になります。
かといって、敬称なしでは大変失礼に当たります。
条件によって。敬称を付けたり、つけなかったり…
簡単にできないものでしょうか?
続きを読む