酷!學園

技術討論區 => 程式討論版 => 主題作者是: 小徒兒 於 2009-11-10 09:56

主題: word 自動做筆記 關鍵字畫底線
作者: 小徒兒 於 2009-11-10 09:56

Sub 巨集1()
'
' 巨集1 巨集
' 巨集錄製於 2009/11/10，錄製者 silvia
'

For i = 1 To 100
    Selection.Find.ClearFormatting
 
    With Selection.Find
        .Text = "分管"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .CorrectHangulEndings = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute
    With Selection.Font
        .NameFarEast = "新細明體"
        .NameAscii = "Times New Roman"
        .NameOther = "Times New Roman"
        .Name = "新細明體"
        .Size = 10
        .Bold = True
        .Italic = False
        .Underline = wdUnderlineSingle
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorRed
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 1
        .Animation = wdAnimationNone
        .DisableCharacterSpaceGrid = False
        .EmphasisMark = wdEmphasisMarkNone
    End With

   Next i

End Sub