![设置 Microsoft Word 模板以始终将基于该模板的文档保存到特定位置](https://linux22.com/image/1253692/%E8%AE%BE%E7%BD%AE%20Microsoft%20Word%20%E6%A8%A1%E6%9D%BF%E4%BB%A5%E5%A7%8B%E7%BB%88%E5%B0%86%E5%9F%BA%E4%BA%8E%E8%AF%A5%E6%A8%A1%E6%9D%BF%E7%9A%84%E6%96%87%E6%A1%A3%E4%BF%9D%E5%AD%98%E5%88%B0%E7%89%B9%E5%AE%9A%E4%BD%8D%E7%BD%AE.png)
我的一些教授对课程论文的格式有非常具体的要求。我.dotx
为这些论文创建了 word 模板(文件),这样我就不必每次写论文时都设置格式。
我已经为每个课程准备了一个模板,并且我的文件已经组织好了,每个课程都有自己的目录。我希望能够指定一个默认的保存位置对于每个模板。我知道如何为所有文档设置通用默认保存位置,但我想仅针对特定模板更改它。即使有一种方法可以让它将模板生成的文件保存到模板文件所在的文件夹中,那也很好。有人有什么想法吗?
答案1
一种解决方案是使用启用宏的模板(dotm)和 VBA 宏来替换 SaveAs。
示例宏如下:
Public Sub FileSaveAs()
Dim dlg As Dialog
Dim strSaveFolder
strSaveFolder = Application.Options.DefaultFilePath(wdDocumentsPath)
Select Case ActiveDocument.AttachedTemplate.Name
Case "Woodworking.dot"
Application.Options.DefaultFilePath(wdDocumentsPath) = "C:\Woodworking"
Case "Travel.dot"
Application.Options.DefaultFilePath(wdDocumentsPath) = "C:\Travel"
End Select
Set dlg = Dialogs(wdDialogFileSaveAs)
dlg.Show
Application.Options.DefaultFilePath(wdDocumentsPath) = strSaveFolder
End Sub
您仍然需要将此宏附加到 Ctrl-S。
如果每个用户使用单独的模板文档,则上述“选择案例”可以简化为每个模板中的简单分配。