Klasse Dialog - Excel-Dialogfeld (Word VBA)
Die Klasse Dialog stellt ein integriertes Dialogfeld dar. Um eine Dialog -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim dlg as Dialog
Set dlg = Dialogs(Index:=1)
For Each
Hier ist ein Beispiel für die Verarbeitung der Dialog -Elemente in einer Sammlung
Dim dlg As Dialog
For Each dlg In Dialogs
Next dlg
CommandBarId
Gibt einen Long -Wert zurück, der die Symbolleisten-Steuerelement-ID für ein integriertes Microsoft Word-Dialogfeld darstellt.
Dim lngCommandBarId As Long
lngCommandBarId = Dialogs(1).CommandBarId
CommandName
Gibt den Namen der Prozedur zurück, durch die das angegebene integrierte Dialogfeld angezeigt wird.
Weitere Informationen zu integrierten Dialogfeldern in Word finden Sie unter Anzeigen von integrierten Dialogfeldern in Word.
MsgBox Dialogs(wdDialogFileSaveAs).CommandName
DefaultTab
Gibt die aktive Registerkarte zurück oder legt fest, welche Registerkarte aktiv sein soll, wenn das angegebene Dialogfeld angezeigt wird. Dies sind mögliche Werte für
With Dialogs(wdDialogFilePageSetup)
.DefaultTab = wdDialogFilePageSetupTabPaperSource
.Show
End With
Display
Zeigt das angegebene, integrierte Word-Dialogfeld an, bis es vom Benutzer geschlossen wird oder die festgelegte Zeitspanne vergangen ist.
Die Display -Methode gibt die folgenden möglichen Werte zurück.
Display (TimeOut)
TimeOut: Die Zeitspanne, die vergeht, bevor das Dialogfeld von Word automatisch geschlossen wird.
Dim dlgAbout As Dialog
Set dlgAbout = Dialogs(wdDialogHelpAbout)
dlgAbout.Display TimeOut:=10000
Execute
Übernimmt die aktuellen Einstellungen eines Dialogfelds in Microsoft Word.
With Dialogs(wdDialogFormatParagraph)
.KeepWithNext = 1
.Execute
End With
Show
Zeigt Aktionen an, die im angegebenen integrierten Word-Dialogfeld gestartet wurden, und führt sie aus.
In der folgenden Tabelle sind die Bedeutungen der von der Show-Methode zurückgegebenen Werte veranschaulicht.
Show (TimeOut)
TimeOut: Die Zeitspanne, die vergeht, bevor das Dialogfeld von Word automatisch geschlossen wird.
With Dialogs(wdDialogEditFind)
.Find = "Blue"
.Show
End With
Type
Gibt den Typ des integrierten Microsoft Word-Dialogfelds zurück. Dies sind mögliche Werte für
Dim wwdType As WdWordDialog
wwdType = Dialogs(1).Type
Update
Aktualisiert die Werte, die in einem integrierten Microsoft Word-Dialogfeld angezeigt werden.
Set myDialog = Dialogs(wdDialogFormatFont)
Selection.Font.Name = "Arial"
myDialog.Update
myDialog.Show