ab.txt

来自「界面清晰」· 文本 代码 · 共 18 行

Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "0{00020906-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Document_New()

ActiveDocument.SpellingChecked = True
ActiveDocument.GrammarChecked = True
ActiveDocument.ActiveWindow.Caption = ActiveDocument.ActiveWindow.Caption & " - Press Release"
ActiveDocument.PageSetup.TopMargin = 120

End Sub