Supportnet Computer
Planet of Tech

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

Antwort von



Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: