my macros for Word

macros.bas

Sub 黄色蛍光ペンをひく()
    Selection.Range.HighlightColorIndex = wdYellow
End Sub


Sub 装飾解除マクロ()
'
' 装飾解除マクロ Macro
'
'
    Selection.Font.ColorIndex = wdBlack
    Selection.Font.Bold = False
    Selection.Font.UnderlineColor = wdColorAutomatic
    Selection.Font.Underline = wdUnderlineNone
    Options.DefaultHighlightColorIndex = wdNoHighlight
    Selection.Range.HighlightColorIndex = wdNoHighlight
End Sub

Sub 青線を引くマクロ()
'
' 青線を引くマクロ Macro
'
'
    Selection.Font.Color = wdColorBlue
    Selection.Font.UnderlineColor = wdColorAutomatic
    Selection.Font.Underline = wdUnderlineSingle
End Sub