word vba 创建一个新文档

最新推荐文章于 2023-09-14 22:21:41 发布

ssson

最新推荐文章于 2023-09-14 22:21:41 发布

阅读量4.7k

点赞数 2

分类专栏： word vba

本文链接：https://blog.csdn.net/ssson/article/details/88718235

版权

word vba 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

Sub CreateWord()
Dim wordApp As word.Application
Application.StatusBar = "正在创建。。。"
Set wordApp = New word.Application

With wordApp
.Visible = True
Application.StatusBar = "正在创建word"
.Documents.Add
.ActiveDocument.Paragraphs(1).Range.InsertBefore ("测试文档")
Application.StatusBar = "正在保存"
.ActiveDocument.SaveAs ("D:\work\test.docx")
Application.StatusBar = "正在退出"
.Quit
End With
Set wordApp = Nothing
Application.StatusBar = False

End Sub

Sub CreateWord()
Dim wordApp As Word.Application
  Application.StatusBar = "正在创建。。。"
 Set wordApp = New Word.Application

 With wordApp
 .Visible = True
 .Application.StatusBar = "正在创建word"
 .Documents.Add
 .ActiveDocument.Paragraphs(1).Range.InsertBefore ("测试文档")
 .Application.StatusBar = "正在保存"
 .ActiveDocument.SaveAs ("D:\work\test.docx")
 .Application.StatusBar = "正在退出"
 .Quit
 End With
 Set wordApp = Nothing
 Application.StatusBar = False

End Sub