2个回答
展开全部
Dim AppWord As Word.Application '声明对象
Set AppWord = CreateObject("Word.Application") '实例化对象
AppWord.Documents.Open App.Path & "\举例.doc" '打开已经存在的Word文档
'在文档开头输入“您好!Word VBA”
Selection.TypeText Text:="您好!Word VBA" & vbCrLf
AppWord.Documents.Close True '保存修改
AppWord.Quit '关闭Word
Set AppWord = Nothing '释放资源
Set AppWord = CreateObject("Word.Application") '实例化对象
AppWord.Documents.Open App.Path & "\举例.doc" '打开已经存在的Word文档
'在文档开头输入“您好!Word VBA”
Selection.TypeText Text:="您好!Word VBA" & vbCrLf
AppWord.Documents.Close True '保存修改
AppWord.Quit '关闭Word
Set AppWord = Nothing '释放资源
2012-07-07
展开全部
保存用的是Save方法
另存用的是SaveAs方法
应该不会错的
检查一下程序吧
(仅供参考)
另存用的是SaveAs方法
应该不会错的
检查一下程序吧
(仅供参考)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询