保存文档宏（删除10种不宜包含在文件名中的字符）

413191246se

* 在保存或另存为文档时，提示有 9 个不宜包含在文件名中的字符（\/:*?"<>|），应当予以回避；但实际上回车符、制表符也是两个个不宜包含在文件名中的字符。所以，共有 11 个不宜包含在文件名中的字符，都应予以删除，才能保存文档，请参见下面的代码（两个宏是一样的，后面的是优化整合的）：

1. Sub FileSave_DeleteForbiddenCharacters()
   
2.     Dim i$
   
3.     i = ActiveDocument.Paragraphs(1).Range.Text
   
4. 
   
5.     i = Replace(i, "", "")
   
6.     i = Replace(i, "/", "")
   
7.     i = Replace(i, ":", "")
   
8.     i = Replace(i, "*", "")
   
9.     i = Replace(i, "?", "")
   
10.     i = Replace(i, """", "")
    
11.     i = Replace(i, "<", "")
    
12.     i = Replace(i, ">", "")
    
13.     i = Replace(i, "|", "")
    
14.     i = Replace(i, vbCr, "")
    
15.     i = Replace(i, vbTab, "")
    
16. 
    
17.     ActiveDocument.SaveAs2 FileName:=i
    
18.     ActiveDocument.Close
    
19. End Sub
    
20. Sub FileSave_DeleteForbiddenCharacters_Optimize()
    
21.     Dim i$
    
22.     i = ActiveDocument.Paragraphs(1).Range.Text
    
23.     i = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(i, "", ""), "/", ""), ":", ""), "*", ""), "?", ""), """", ""), "<", ""), ">", ""), "|", ""), vbCr, ""), vbTab, "")
    
24.     ActiveDocument.SaveAs2 FileName:=i
    
25.     ActiveDocument.Close
    
26. End Sub

复制代码

413191246se

注意：代码第 5 行，第23行的斜杠“\”被本论坛吞了！请自行修改如下：
第 5 行代码：    i = Replace(i, "\", "")
第23行代码：    i = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(i, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), """", ""), "<", ""), ">", ""), "|", ""), vbCr, "")

changhong8

有一种160号字符，如果出现在文件名中，无法直接用vba语句打开或重命名，需要用shell调用cmd命令修改文件名后才能正常打开。

413191246se

* 楼上朋友，谢谢你！——但你说的不太正确（160号即是“不间断空格”，用“^s”或 Chrw(160)表示）。
* 经我试验，“半角空格/全角空格/不间断空格/制表符”这四种空格，只有“制表符”不能保存。
* 而如果文件名中有不间断空格，在保存时，系统会自动将其转变为半角空格而保存。
* 在用 VBA 打开这样的文件名时，其中的空格是半角空格，是能够打开的，请看下列代码：
    Documents.Open FileName:="E:\Documents\真的 不能打 开吗.docx"
* 故总结如下：除了上面 9 个禁止字符，再加上回车符(^p)，再加上制表符(^t)，不能做文件名字符。

小花鹿

做成自定义函数，使得在EXCEL和WORD中都能使用，这样更方便

413191246se

小花鹿 老师，无奈不懂函数啊！

yian123

我也想过这个问题，最后直接正则取文件名。就不怕想的不周到，有额外字符影响了