标签：Word VBA
可以使用下面列出的SaveFile过程来代替Word自己的内置文件保存程序，这将强制用户将文档直接保存到指定的目标文件夹或者该文件夹中的子文件夹，而不能将文档保存到目标文件夹之外的位置。
代码语言：javascript复制SaveFile过程如下：
Sub SaveFile()
Dim UserSaveDialog As Dialog
Set UserSaveDialog = Dialogs(wdDialogFileSaveAs)
'如果该文档之前已经保存过,那么保存其修改
If ActiveDocument.Path <> "" Then
ActiveDocument.Save
Exit Sub
End If
With UserSaveDialog
.Name = "C:test"
If .Display Then
'如果用户没有单击“取消”按钮,
'且如果用户已切换到目标文件夹外,
'则退出并显示消息.
'但是,如果用户在目标文件夹中创建了子文件夹，
'则不要退出
If LCase(Left(CurDir, 7)) <> "C:test" Then
MsgBox "没有在指定文件夹中存储文档.请重试."
Exit Sub
End If
'根据用户首选项保存该文档
UserSaveDialog.Execute
End If
End With
End Sub
根据你的需要，可以将要保存的位置：
.Name = "C:test"
修改为你自己的位置。
同时，修改代码：
LCase$(Left$(CurDir, 7)) <> "C:test"
中的路径和Left$中相应的字符数。欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
