Word: hoe een document te openen met macro

[maverickab]

Hoi,

Vanuit Excel kan ik via een macro een document openen
( Public Sub DoTheImport()
Dim FName As Variant
Dim Sep As String
ChDir "C:\Apps\IMPRESS"
FName = Application.GetOpenFilename _
(filefilter:="Log Files(*.log),*.log,All Files (*.*),*.*")
If FName = False Then
MsgBox "You didn't select a file"
Exit Sub
End If )

Nu wil ik hetzelfde doen vanuit Word maar dat lukt niet, heb ook de stappen opgenomen via de macro en dit gaat goed voor 1 document (nl degene die geselecteerd was tijdens de opname) maar ik wil eigenlijk een keuze krijgen uit de documenten die in die bepaalde directory staan

Let op onderstaand voorbeeld werkt niet, Waar zit de fout???? Want als ik de *.log vervang door de volledige naam werkt het wel

Selection.TypeParagraph
ChangeFileOpenDirectory "C:\Apps\Impress\"
Documents.Open FileName:="*.log", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto
Selection.WholeStory
Selection.Copy
End Sub

 

[maverickab]

Documents.Open FileName:="*.log", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto

vervangen door:
Dialogs(wdDialogFileOpen).Show

geeft voor mij het gewenste resultaat