MS Office 2010 - 上次使用的模板目录(VBA)

时间:2016-01-27 09:11:52

标签: templates ms-word automation directory

我有一个关于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

1 个答案:

答案 0 :(得分:-1)

您可以使用System.IO.Path.GetDirectoryName()获取模板文件的目录名,并使用该目录保存新文件。