我有一个关于MS Office 2010脚本宏的问题,更具体的是Word。 我正在寻找一种方法来保存从模板创建的文档,就在保存模板的目录中(不是标准模板目录)。
例如,您有一个字母目录,其中保存了字母模板,还有一个传单目录,其中保存了传单的模板。您可以从模板创建新传单并希望保存。如果它在许多子目录中,它将需要太多的点击才能到达那里,所以我一直在寻找一种方法来自动获取目录,其中模板,从当前文件的创建,保存或可能是最后使用的模板目录
我既没有使用VBA也没有使用Office的任何宏,到目前为止我也找不到任何解决方案。
我会很感激任何可以帮助我和其他同样问题的人的想法。
编辑:
正如Cindy建议说我想如何执行宏,我想补充说,如果文件还不存在,我想使用内置的保存功能打开一个对话框。
但是今天我意外地找到了我正在寻找的答案。对不起,我为此创建了一个新问题,虽然我在一天之后找到了它,但我不知道我愿意。 :P
无论如何,这是我找到的代码(它不是来自我):
Sub FileSave()
If ActiveDocument.Path = "" Then 'If document was never saved yet
FileSaveAs
Exit Sub
End If
ActiveDocument.Save
End Sub
Sub FileSaveAs()
Dim DocName As String
With ActiveDocument
DocName = "/path
End With
With Dialogs(wdDialogFileSaveAs)
.Name = DocName
.Show
End With
End Sub
答案 0 :(得分:-1)
您可以使用System.IO.Path.GetDirectoryName()获取模板文件的目录名,并使用该目录保存新文件。