Word VBA技术：强制用户在指定文件夹中保存文档

excelperfect

标签：Word VBA

可以使用下面列出的SaveFile过程来代替Word自己的内置文件保存程序，这将强制用户将文档直接保存到指定的目标文件夹或者该文件夹中的子文件夹，而不能将文档保存到目标文件夹之外的位置。

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$中相应的字符数。

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料，并通过社群加入专门的微信讨论群，更方便交流。