![]() |
|
#2
|
||||
|
||||
|
Hi shreked,
You can do that by adding the following code to the document's 'This Document' module: Code:
Private Sub Document_Open()
Dim StrFold As String
With Application
StrFold = .Options.DefaultFilePath(wdDocumentsPath)
With .Dialogs(wdDialogFileOpen)
.Name = "full path to folder, including final \"
.Show
End With
.ChangeFileOpenDirectory StrFold
End With
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
Macro for highlighting specific number of words
|
icsjohn | Word VBA | 2 | 12-07-2011 06:44 PM |
Need help extracting specific text from one doument to another with macro/VBA.
|
zsmithku | Word | 1 | 04-15-2011 03:46 PM |
| Macro request: open on event | infotech | Outlook | 0 | 12-08-2010 06:40 PM |
| Macro to open template not working | Brandi | Mail Merge | 2 | 06-24-2010 09:29 AM |
| Word attachment on an E-mail-macro to open attachment & | nablady | Outlook | 0 | 11-28-2006 03:00 PM |