I have implemented the function Vorlageoeffnen, which is attached, in a winword 2003 vba.
I want to open the dialog window with a default path which should be the path of the winword application itself. My solution does not work for some reason.
It would be fine, if i could change the name in the top of the dialog from "Öffnen", or "Open" in English to a diffrent name.
Thanks for any help in advance
Public Function Vorlageoeffnen()
Dim dialOpen As Dialog
Set dialOpen = Dialogs(wdDialogFileOpen)
' .Name = Application.ActiveDocument.Path
ChangeFileOpenDirectory (Application.ActiveDocument.Path) & "\"
.Name = "*.xls"
strExcelDaten = .Name
Set doc = Application.ActiveDocument
If dialOpen.Name <> "*.xls" Then
If doc.ProtectionType = wdNoProtection Then doc.Protect wdAllowOnlyFormFields, NoReset:=True