![]() |
|
#3
|
|||
|
|||
|
Hi,
Let us focus on my real issue and not my variables and so on. If we focus on this piece of code. Code:
Public WithEvents oApp As Word.Application
SystemManager.oApp = Word.Application
Private Sub oApp_DocumentBeforeSave(ByVal Doc As Document, _
SaveAsUI As Boolean, Cancel As Boolean)
With Dialogs(wdDialogFileSaveAs)
.name = "SomeSpecificFileName"
.Show
End With
End Sub
If I instead put the following in to the code, it will open the save as dialog in the rigth folder. Code:
Public WithEvents oApp As Word.Application
SystemManager.oApp = Word.Application
Private Sub oApp_DocumentBeforeSave(ByVal Doc As Document, _
SaveAsUI As Boolean, Cancel As Boolean)
With Dialogs(wdDialogFileSaveAs)
.name = "C:\Temp\SomeSpecificFileName"
.Show
End With
End Sub
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
Word 2010 "Save As" has no folders
|
EweWho | Word | 17 | 06-05-2017 09:40 AM |
Word doc is opened on recent list, pop up: "you don't have permission to open", deleted.
|
wordhasfailedmetwice | Word | 3 | 11-17-2016 04:09 PM |
| How to use a "Save As" button without causing digital signatures to become "Invalid"? | jferg | Word VBA | 0 | 02-16-2016 03:04 PM |
| "Open Recent" and "More..." in Excel and Word | BudVitoff | Office | 0 | 04-03-2015 09:17 PM |
| Disable "Save" & "Save As" & "Print" ribbon | Villalobos | Word VBA | 3 | 07-14-2014 11:37 PM |