请问word的宏，怎么实现另存为？

o0star0o

比如执行一个宏，直接把本word另存为在当前目录文件夹中，并把名字改为：[另存为XX].doc

请问大神这个宏的代码

daibao88

ActiveDocument.SaveAs2 ActiveDocument.Path & "\[另存为XX].doc", wdFormatDocument97

o0star0o

daibao88 发表于 2019-12-3 08:30
ActiveDocument.SaveAs2 ActiveDocument.Path & "\[另存为XX].doc", wdFormatDocument97

直接添加在后面不能用呢？

daibao88

Word 2010以下版本吗？改为ActiveDocument.SaveAs ActiveDocument.Path & "\[另存为XX].doc" 试试。

o0star0o

daibao88 发表于 2019-12-3 17:09
Word 2010以下版本吗？改为ActiveDocument.SaveAs ActiveDocument.Path & "\[另存为XX].doc" 试试。

是的，谢谢，这个代码可以用，另外请问这种能实现不
就是：另存为的文件名为：当前文件夹名称+[另存为XX].doc（但只写当前文件夹的数字字母字符，不含汉字）

比如当前文件夹为：IDxx123 张三，然后另外的名字为：IDxx123[另存为XX].doc

daibao88

最好告诉他你保存文件的路径，不然就保存到默认文件夹下了

o0star0o

daibao88 发表于 2019-12-5 08:14
最好告诉他你保存文件的路径，不然就保存到默认文件夹下了

保存路径不用哈，您的代码是对的，就是保存到其表所在的默认路径即可

我的意思是关于文件名的名字，是否能获取到当前所在文件夹的名称，然后去除汉字，写在另存为的名字上
比如之前您写的是“[另存为XX].doc”，现在是“IDxx123[另存为XX].doc”
不知能否实现？

413191246se

楼主，下面代码仅供参考：

1. Sub test()
   
2.     Dim y$, x$, p$, doc As Document
   
3.     Set doc = ActiveDocument
   
4.     With doc
   
5.         y = .FullName
   
6.         x = .Name
   
7.         p = .Path
   
8.     End With
   
9.     MsgBox "长文件名：" & y & vbCr & "短文件名：" & x & vbCr & "文件路径：" & p
   
10.    
    
11.     Name "C:\demo.doc" As "D:\360Rec\yes.doc" '文件改名（移动）——同盘改名，异盘移动
    
12.    
    
13.     '活动文档另存为
    
14.     doc.SaveAs FileName:=p & "" & "新文件名称" & "Hello Happy" & x & ".doc"
    
15. End Sub

复制代码