怎么用vba另存固定格式的word文件名？

woniu35

需要另存命名为固定文字加多个书签组合起来的名字，文件保存路径是原文件所在目录就行了。比如需要“我的_”加书签“文件”、“好看的”，其中“我的_”不是书签，“文件”、“好看的”是书签，要他们3个内容组合后作为文件名另存。文档中可能还有其他书签，但不作为文件名。我用的office2010。谢谢！最好能写一下注释，我是小白，但是想学一学。

duquancai

就几句代码，还写什么注释？？？

1. Sub main()
   
2.     With ActiveDocument
   
3.         If .Bookmarks.Exists("文件") And .Bookmarks.Exists("好看的") Then
   
4.             .SaveAs .Path & "\我的_文件好看的.docx"
   
5.         End If
   
6.     End With
   
7. End Sub

复制代码

woniu35

试了一下，不行啊，我需要另存的文件名随着书签内容的变动而变动，您的程序好像书签内容变化了以后，另存文件名不能变化啊，

duquancai

woniu35 发表于 2018-7-29 20:43
试了一下，不行啊，我需要另存的文件名随着书签内容的变动而变动，您的程序好像书签内容变化了以后，另存文 ...

不行算了。。。。。。。。。。。。。。。。

woniu35

duquancai 发表于 2018-7-29 20:49
不行算了。。。。。。。。。。。。。。。。

现在文件能打开了，就是另存的名字不能谁书签的内容变化而变化，能帮改改么？

duquancai

woniu35 发表于 2018-7-29 20:51
现在文件能打开了，就是另存的名字不能谁书签的内容变化而变化，能帮改改么？

又不说清楚！谁知道你是用“书签名”还书签的“内容”？话说：书签的内容很多很多怎么办？，还有书签的内容包含不允许文件名出现的字符怎么办？等等！需要你考虑清楚！下面代码，过滤一下书签包含的“内容”（并非书签名）进行过滤。。。。。。。。

1. Sub main()
   
2.     Dim t1$, t2$, fs$
   
3.     With ActiveDocument
   
4.         If .Bookmarks.Exists("文件") And .Bookmarks.Exists("好看的") Then
   
5.             t1 = .Bookmarks("文件").Range.Text
   
6.             t2 = .Bookmarks("好看的").Range.Text
   
7.             fs = GetName(t1 & t2)
   
8.             .SaveAs .Path & "\我的_" & fs & ".docx"
   
9.         End If
   
10.     End With
    
11. End Sub
    
12. Function GetName(ByVal aStr As String) As String
    
13.     Dim ErrArray() As Variant, oArray As Variant
    
14.     ErrArray = Array("", "/", "*", ":", "?", "<", ">", "|", """", Chr$(7), Chr$(8), Chr$(9), Chr$(10), Chr$(11), Chr$(13))
    
15.     For Each oArray In ErrArray
    
16.         aStr = Replace(aStr, oArray, "")
    
17.     Next
    
18.     GetName = LTrim(aStr)
    
19. End Function

复制代码

woniu35

可以了，非常感谢！