Supportnet / Forum / Textverarbeitung
Hilfe bei Makro im Textfeld
Frage
Wie stelle ich es an, das dieses Makro in einem Textfeld aktiv wird, sobald ich das Dokument öffne???
Hilft mir bitte!!
Public Sub MAIN()
Dim Firma$
Dim Ansprechpartner$
Dim Bestellung$
Dim Commission$
Dim Lieferung$
Rem MASKE ______________________________________________________________________________
WordBasic.BeginDialog 450, 270, "Küchen Schmidt"
WordBasic.GroupBox 22, 16, 406, 160, " Telefax Nachricht "
WordBasic.Text 37, 43, 70, 13, "Firma"
WordBasic.Text 37, 64, 107, 13, "Ansprechpartner"
WordBasic.TextBox 150, 40, 250, 18, "Firma"
WordBasic.TextBox 150, 61, 250, 18, "Ansprechpartner"
WordBasic.Text 37, 84, 70, 13, "Bestellung"
WordBasic.Text 37, 105, 80, 13, "Commission"
WordBasic.TextBox 150, 82, 250, 18, "Bestellung"
WordBasic.TextBox 150, 103, 250, 18, "Commission"
WordBasic.Text 37, 126, 107, 13, "Lieferung"
WordBasic.TextBox 150, 124, 250, 18, "Lieferung"
WordBasic.Text 133, 255, 220, 1, "Copyright by Adrian Brysch-Wilke"
WordBasic.PushButton 105, 220, 100, 30, "OK"
WordBasic.CancelButton 250, 220, 100, 30
WordBasic.EndDialog
Rem VARIABLE DEFINIEREN _______________________________________________________________
Dim Layout As Object: Set Layout = WordBasic.CurValues.UserDialog
Layout.Firma = Firma$
Layout.Ansprechpartner = Ansprechpartner$
Layout.Bestellung = Bestellung$
Layout.Commission = Commission$
Layout.Lieferung = Lieferung$
Rem MASKE ANZEIGEN ____________________________________________________________________
Schaltfläche = WordBasic.Dialog.UserDialog(Layout)
Rem VARIABLE EINLESEN _________________________________________________________________
Firma$ = Layout.Firma
Ansprechpartner$ = Layout.Ansprechpartner
Bestellung$ = Layout.Bestellung
Commission$ = Layout.Commission
Lieferung$ = Layout.Lieferung
Rem DATEN IN LayoutFORMULAR ÜBERNEHMEN ______________________________________________
If Schaltfläche = 0 Then GoTo Ende
WordBasic.WW7_EditGoTo Destination:="Firma"
WordBasic.ww2_Insert Firma$
WordBasic.WW7_EditGoTo Destination:="Ansprechpartner"
WordBasic.ww2_Insert Ansprechpartner$
WordBasic.WW7_EditGoTo Destination:="Bestellung"
WordBasic.ww2_Insert Bestellung$
WordBasic.WW7_EditGoTo Destination:="Commission"
WordBasic.ww2_Insert Commission$
WordBasic.WW7_EditGoTo Destination:="Lieferung"
WordBasic.ww2_Insert Lieferung$
Selection.TypeParagraph
Ende:
End Sub