作者 主題: word 自動做筆記 關鍵字畫底線  (閱讀 4523 次)

0 會員 與 1 訪客 正在閱讀本文。

小徒兒

  • 鑽研的研究生
  • *****
  • 文章數: 622
    • 檢視個人資料
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