築和工房パソコン教室

初めてパソコンに触る方、エクセルやワードの実用的な利用方法を知りたい方、MOSやパソコン検定の資格を取得したい方、ホームページを作りたい方、Illustratorなどの専門的なアプリケーションを使いこなしたい方。幅広く総合的にパソコンを利用するノウハウをお手軽な金額でご指導いたします。

タグ:VBA

WordのVBAを利用して、ルビを削除してみた。
でも、フィールド更新がVBAにできなかったので、その部分は手動。
そのうちに、完全VBAにしたいものだ。
 
Sub ルビ一括削除()
'
' ルビ一括削除 Macro
' ルビを一括で削除します。
'
'  ------すべて選択( Ctrl + A )
    Selection.WholeStory
'  ------フィールドコード表示
    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

もうちょっと、研究してみようと思います。

↑このページのトップヘ