ingebouwde dialoogvensters WORD XP

[jvsoest]

Hallo,

Voor een tooltje maak ik gebruik van :

Set dlg = Dialogs(wdDialogMailMergeOpenDataSource)
With dlg

intKnop = .Show

strBestand = .Name
End With

wat me nu niet lukt is het feit om al in te geven het bestandstype *.* zodat de gebruiker dit niet hoeft te doen! Weet iemand of het kan? Bedankt vast

 

[Axel Hagg]

Dialoogvenster invullen

Ik weet niet of ik de juiste waarden heb toegevoegd maar op deze manier kun je een dialoogvenster schrijven en lezen.

Set dlg = Dialogs(wdDialogMailMergeOpenDataSource)
With dlg
dlg.Name = "ABC"
dlg.ConfirmConversions = False
dlg.ReadOnly = True
dlg.LinkToSource = False
dlg.addToMru = False
dlg.PasswordDoc = "ABCDE"
dlg.PasswordDot = "12345"
dlg.Revert = False
dlg.WritePasswordDoc = "PQRST"
dlg.WritePasswordDot = "999999"
dlg.Connection = False
dlg.SQLStatement = 0
dlg.SQLStatement1 = 1
dlg.Format = ".doc"
dlg.Encoding = True
dlg.Visible = True
MsgBox dlg.Name
MsgBox dlg.ConfirmConversions
MsgBox dlg.ReadOnly
MsgBox dlg.LinkToSource
MsgBox dlg.addToMru
MsgBox dlg.PasswordDoc
MsgBox dlg.PasswordDot
MsgBox dlg.Revert
MsgBox dlg.WritePasswordDoc
MsgBox dlg.WritePasswordDot
MsgBox dlg.Connection
MsgBox dlg.SQLStatement
MsgBox dlg.SQLStatement1
MsgBox dlg.Format
MsgBox dlg.Encoding
MsgBox dlg.Visible
.Show
strBestand = .Name
end with