以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于vba word 另存为  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132174)
--  作者：tcmhl
--  发布时间：2019/3/15 15:11:00
--  关于vba word 另存为
请教一下关于vba word 另存为 代码是什么 谢谢！
--  作者：有点甜
--  发布时间：2019/3/15 16:04:00
--  

参考

 

Dim app As new msword.application
Dim Doc = app.Documents.open("d:\\abc.doc")
Doc.saveas(FileName:="d:\\test123.doc", FileFormat:=0)
app.visible = True

 

 
--  作者：tcmhl
--  发布时间：2019/3/16 18:13:00
--  

感谢！再请教下

Doc.saveas(FileName:="d:\\test123.doc", FileFormat:=0)

 

d:\\test123.doc" 如果用变量的话怎么写啊，谢谢！

 
--  作者：有点蓝
--  发布时间：2019/3/18 8:38:00
--  
dim fl as string = "d:\\test123.doc"
Doc.saveas(FileName:=fl , FileFormat:=0)