7,763
社区成员
发帖
与我相关
我的任务
分享
Dim Application As Object
Dim Document As Object
Set Application = CreateObject("Word.Application")
Set Document = Application.Documents.Add
Document.Activate
Application.Options.CheckGrammarAsYouType = False '不检查语法
Application.Options.CheckSpellingAsYouType = False '不检查拼写
Application.Selection.Font.Size = 32 '设置字体大小
Application.Selection.Font.Bold = True '开始粗体字
Application.Selection.TypeText "标题" '输出公文标题
Application.Selection.Font.Bold = False '结束粗体字
Application.Selection.TypeParagraph '段落回车
Application.Selection.Font.Size = 12 '设置字体大小
Application.Selection.TypeText " 这里是公文正文" '输出公文正文
Document.SaveAs "C:\11.doc" '保存Doc到指定位置
Document.Close '关闭
Application.Quit