Question

我创建了一些小宏，它在＆＃34; SaveAs＆＃34;之前更改了文件名。对话框被调用，一切正常，除非用户选择＆＃34;最近的文件夹＆＃34;，对话框仍建议将其存储在默认文档文件夹中，而不是选择的文件夹。Chose Folder，{{ 3}}

该功能正在使用我的建议名称保存文件。我的问题是，如果用户单击此处带有读取标记的文件夹，我希望我的“另存为”对话框将引用此文件夹而不是默认文件夹（C：\ User \ Documents）。 Save As Dialog

函数Application.Filedialog删除了诸如take和其他文档属性之类的其他功能，这也是必需的。

Private Sub oApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)

    If (SaveAsUI = False And ScHasDocumentBeenSaved = False) Then
        Exit Sub
    End If

    If (ActiveDocument.AttachedTemplate <> "Normal.dotm") Then
        Dim intChoice As Integer
        Dim strPath As String

        If (HasDocumentBeenSaved = False) Then
            With Dialogs(wdDialogFileSaveAs)
                .name = SpecializedHelper.FileName
                .Show
            End With
        Else
            ActiveDocument.Save
        End If

        Cancel = True
    End If
End Sub

SaveAs对话框存储在最近的文件夹中

0 个答案: