˾ע
    صʹtxtı룬Ȥѿ˼һΪʲô:-)
    ڹڸľġWordӦСڣ8.2.3.1ڵȣ

1AutoExec8.2.3.1

' AutoExec Macro
'  01-3-13  ˾ 
'
    Application.Caption = "Word"
    With Dialogs(wdDialogFileOpen)
        .Name = "*.*"
        .Show
    End With

2AutoNew8.2.3.2

' AutoNew Macro
'  01-3-13  ˾ 
'
    Selection.Style = ActiveDocument.Styles("")

3ճʱԸʽ8.2.3.3

' ճʱԸʽMacro
'  01-3-12  ˾ 
'
    Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
        wdInLine, DisplayAsIcon:=False

4浽ƶ̣8.2.3.4

' 浽ƶMacro
'  01-3-12  ˾ 
'
    ActiveDocument.Save
    ChangeFileOpenDirectory "G:\"
    ActiveDocument.SaveAs FileName:=ActiveDocument.Name
    ActiveDocument.Close

5ҳУ8.2.3.5

' ҳMacro
'  01-1-28  ˾ 
'
    Selection.Tables(1).Select
    With Selection.Rows
        .Alignment = wdAlignRowCenter
    End With
    Selection.MoveLeft Unit:=wdCharacter, Count:=1

6ճʰ꣺12.5.5.2.1

' ճʰ Macro
'  2003-8-12  ˾ 
'
    Selection.TypeText Text:="[]"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=" "
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Font.Name = "Kingsoft Phonetic Plain"
    Selection.Paste
    Selection.MoveRight Unit:=wdCharacter, Count:=1

ΪױԶһ5ꡱ16.4

7½ţ16.4

' ½ Macro
'  2004-8-6  ˾ 
'
    Selection.Style = ActiveDocument.Styles("βע")
    Selection.TypeText Text:="[]"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    With ActiveDocument.Endnotes
        .StartingNumber = 1
        .NumberStyle = wdNoteNumberStyleArabic
    End With
    ActiveDocument.Endnotes.Add Range:=Selection.Range, Reference:=""
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Style = ActiveDocument.Styles("Ĭ϶")
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=""

8ģ16.4

'  Macro
'  2004-8-6  ˾ 
'
    If ActiveWindow.ActivePane.View.Type = wdPageView Or ActiveWindow. _
        ActivePane.View.Type = wdOnlineView Or ActiveWindow.ActivePane.View.Type _
        = wdPrintPreview Then
        ActiveWindow.View.SeekView = wdSeekMainDocument
    Else
        ActiveWindow.Panes(2).Close
    End If
    Selection.MoveRight Unit:=wdCharacter, Count:=2

9ñţ16.4

' ñ Macro
'  2004-8-6  ˾ 
'
    Selection.Font.Superscript = wdToggle
    Selection.TypeText Text:="[]"
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    With Dialogs(wdDialogInsertCrossReference)
         .InsertAsHyperlink = True
         .Show
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Font.Superscript = wdToggle

10޶()16.4

' ұɾ Macro
'  2004-8-6  ˾ 
'
    Selection.WholeStory
    Selection.Fields.Update
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "δǩ"
    End With
    Selection.Find.Execute
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

11׷ָ16.4

' òο׷ָ Macro
'  2004-8-6  ˾ 
'
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteSeparator
    Selection.Delete Unit:=wdCharacter, Count:=2
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationNotice
    Selection.Delete Unit:=wdCharacter, Count:=2
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationSeparator
    Selection.Delete Unit:=wdCharacter, Count:=2
    ActiveWindow.ActivePane.Close
    ActiveWindow.View.Type = wdPageView
    Selection.EndKey Unit:=wdStory
    Selection.TypeParagraph
    Selection.TypeText Text:="ο"
    Selection.HomeKey Unit:=wdLine
    Selection.InsertBreak Type:=wdPageBreak
    Selection.Style = ActiveDocument.Styles("")
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

12ҳ룺27.5

' ҳ Macro
'  01-1-31  ˾ 
'
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

13У28.1.3

'  Macro
'  01-3-18  ˾ 
'
    Set myRange = ActiveDocument.Content
    With myRange.Find
        .ClearFormatting
        .IgnoreSpace = True
        With .Replacement
             .ClearFormatting
        End With
        .Execute FindText:="^l", ReplaceWith:="^p", Replace:=wdReplaceAll
        For a = 1 To 12
        .Execute FindText:="^p^p", ReplaceWith:="^p", Replace:=wdReplaceAll
        Next
    End With
    Selection.EndKey Unit:=wdStory

14ĵ29.11

1529.12.1

'  Macro
'  01-1-21  ˾ 
'
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="eq \f(,ĸ)"
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=4
    Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
End Sub

16ͷϷ֣29.12.2

' ͷϷ Macro
'  01-2-20  ˾ 
'
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="EQ \o(\s\do2()"
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=7, Extend:=wdExtend
    With Selection.Font
        .Spacing = -0.5
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.TypeText Text:=",\s\up5(֣ʵıͷȣͬʱShiftF9))"
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.MoveLeft Unit:=wdCharacter, Count:=28, Extend:=wdExtend






