Testpilot.dk
12-24-2017, 06:30 AM
Hi,
I have written some vba code to run before save in the following method.
Everything works fine, expect that the save as dialog not starts in the folder selected by the user.
Eg. User click the marked folder, then I expect that the saveas dialog afterwards will start in this folder, but it starts in the default folder for the user.
21241 21242
I can't use the Application.FileDialog, because this dialog is missing the properties, like manager, subject etc.
My code is pasted here:
Private Sub oApp_DocumentBeforeSave(ByVal Doc As Document, _
SaveAsUI As Boolean, Cancel As Boolean)
If (SaveAsUI = False And HasDocumentBeenSaved = False) Then
Exit Sub
End If
If (ActiveDocument.AttachedTemplate <> "Normal.dotm") Then
Dim intChoice As Integer
Dim strPath As String
If (HasDocumentBeenSaved = False Or SaveAsUI = True) Then
With Dialogs(wdDialogFileSaveAs)
.name = SpecializedHelper.FileName
.Show
End With
Else
ActiveDocument.Save
End If
Cancel = True
End If
End Sub
I have written some vba code to run before save in the following method.
Everything works fine, expect that the save as dialog not starts in the folder selected by the user.
Eg. User click the marked folder, then I expect that the saveas dialog afterwards will start in this folder, but it starts in the default folder for the user.
21241 21242
I can't use the Application.FileDialog, because this dialog is missing the properties, like manager, subject etc.
My code is pasted here:
Private Sub oApp_DocumentBeforeSave(ByVal Doc As Document, _
SaveAsUI As Boolean, Cancel As Boolean)
If (SaveAsUI = False And HasDocumentBeenSaved = False) Then
Exit Sub
End If
If (ActiveDocument.AttachedTemplate <> "Normal.dotm") Then
Dim intChoice As Integer
Dim strPath As String
If (HasDocumentBeenSaved = False Or SaveAsUI = True) Then
With Dialogs(wdDialogFileSaveAs)
.name = SpecializedHelper.FileName
.Show
End With
Else
ActiveDocument.Save
End If
Cancel = True
End If
End Sub