Es geht darum die Rot markierten Felder über das Makro ausfüllen zu können. kann mir da einer weiterhelfen?
Das ist der Bisherige Quellcode:
Public Sub MAIN() 'Documents.Add will be executed AFTER pressing the OK Button! 'modified by R.Spelt 01/2005 Dim i ReDim AnredeListe__$(3) Dim dlg As Object AnredeListe__$(0) = "Frau" AnredeListe__$(1) = "Herr" AnredeListe__$(2) = "Herrn" AnredeListe__$(3) = "Firma" WordBasic.BeginDialog 708, 326, "Briefkopf für Landesverband Badisches Rotes Kreuz" WordBasic.Text 24, 292, 668, 12, "Bewegen durch die Felder: TAB-Taste und SHIFT+TAB-Taste Bestätigen: RETURN", "Text12" WordBasic.Text 24, 310, 680, 13, "Version 2008 V2.0 by m.rogge" WordBasic.Text 23, 17, 60, 13, "Anrede:", "Text1" WordBasic.ComboBox 97, 17, 160, 60, AnredeListe__$(), "Anrede$" WordBasic.Text 313, 19, 73, 13, "Anschrift:", "Text2" WordBasic.TextBox 397, 17, 245, 86, "Anschrift$", 1 WordBasic.Text 79, 114, 63, 13, "Zeichen", "Text5" WordBasic.TextBox 79, 129, 72, 18, "Zeichen$" WordBasic.Text 186, 114, 128, 13, "Bearbeitung", "Text7" WordBasic.TextBox 186, 129, 160, 18, "Bearbeitung$" WordBasic.Text 376, 114, 81, 13, "Durchwahl", "Text6" WordBasic.TextBox 477, 130, 55, 18, "Durchwahl$" WordBasic.Text 377, 133, 99, 13, "0761/88336-", "Text10" WordBasic.Text 80, 164, 52, 13, "Betreff", "Text9" WordBasic.TextBox 80, 180, 584, 53, "Betreff$", 1 WordBasic.Text 20, 238, 229, 10, "Email:", "Text3" WordBasic.TextBox 80, 238, 288, 10, "Email$", 1 WordBasic.OKButton 221, 259, 94, 21 WordBasic.CancelButton 377, 259, 94, 21 WordBasic.EndDialog Set dlg = WordBasic.CurValues.UserDialog '============================================== ============================ 'Vorgabe-Definitionen für die Eingabefelder. Tragen Sie zwischen die 'Gänsefüßchen Ihre Vorgaben ein. 'Absatz einfügen: "Text 1" + Chr$(13) + "Text 2" '-------------------------------------------------------------------------- dlg.Anrede$ = "" dlg.Anschrift$ = "" dlg.Zeichen$ = "" dlg.Bearbeitung$ = "" dlg.Durchwahl$ = "" dlg.Betreff$ = "" dlg.Email$ = "" '============================================== ============================ Set shp = ActiveDocument.Shapes.AddTextbox( _ Orientation:=msoTextOrientationHorizontal, _ Left:=10, _ Top:=10, _ Width:=10, _ Height:=10, _ Anchor:=Selection.Paragraphs(1).Range) With shp .Name = "TB_" & CStr(Rnd()) .LockAnchor = True .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage .RelativeVerticalPosition = wdRelativeVerticalPositionPage .LockAspectRatio = False .Top = CentimetersToPoints(2) .Left = CentimetersToPoints(5) .Width = CentimetersToPoints(8) .Height = CentimetersToPoints(3) .TextFrame.TextRange.Text = "Hallo Welt" If (WordBasic.Dialog.UserDialog(dlg, -1) = -1) Then 'Seiteneinstellungen WordBasic.FilePageSetup TopMargin:="2,5", LeftMargin:="2", RightMargin:="2", FirstPage:=1, OtherPages:=2 'Silbentrennung (1 = EIN, 0 = AUS) WordBasic.ToolsHyphenation AutoHyphenation:=1 'Ausgabe des Briefkopfes Documents.Add WordBasic.StartOfDocument WordBasic.Insert Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) WordBasic.Insert dlg.Anrede$ + Chr(13) WordBasic.Insert dlg.Anschrift$ WordBasic.Insert Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) WordBasic.StartOfDocument For i = 0 To 13 WordBasic.LineDown Next i WordBasic.ExtendSelection WordBasic.LineDown WordBasic.LineDown WordBasic.Cancel WordBasic.FormatTabs Position:="3,5", Align:=2, Set:=1 WordBasic.FormatTabs Position:="8,5", Align:=2, Set:=1 WordBasic.FormatTabs Position:="13", Align:=2, Set:=1 WordBasic.LineUp WordBasic.LineDown WordBasic.FormatFont Points:=8 'WordBasic.FormatParagraph Before:=8 WordBasic.Insert Chr(9) + Chr(9) + Chr(9) + Chr(9) + Chr(9) + Chr(9) + Chr(9) + Chr(9) + Chr(9) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + "" WordBasic.FormatParagraph Before:=1 WordBasic.Insert Chr(9) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + Chr(32) + dlg.Email$ WordBasic.Insert Chr(13) + Chr(13) WordBasic.FormatFont Points:=8 'WordBasic.FormatParagraph Before:=8 WordBasic.Insert "Zeichen" + Chr(9) + "Bearbeitung" + Chr(9) + "Durchwahl" + Chr(9) + "Datum" + Chr(13) WordBasic.FormatParagraph Before:=1 WordBasic.Insert dlg.Zeichen$ + Chr(9) + dlg.Bearbeitung$ + Chr(9) + "0761/88336-" + dlg.Durchwahl$ + Chr(9) WordBasic.InsertField Field:="DATE \@ dd. " WordBasic.Insert Chr(32) WordBasic.InsertField Field:="DATE \@ MMMM" WordBasic.Insert Chr(32) WordBasic.InsertField Field:="DATE \@ YYYY" 'WordBasic.InsertField Field:="ERSTELLDAT \@ tt." 'Einfügen Chr$(32) bedeutet Leerzeichen 'WordBasic.Insert Chr(32) 'WordBasic.InsertField Field:="ERSTELLDAT \@ MMMM" 'WordBasic.Insert Chr(32) 'WordBasic.InsertField Field:="ERSTELLDAT \@ JJJJ" 'WordBasic.LineDown WordBasic.Insert Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) WordBasic.LineUp WordBasic.SelectCurSentence WordBasic.Font "Arial" WordBasic.Bold WordBasic.Insert dlg.Betreff$ WordBasic.LineDown WordBasic.InsertPara WordBasic.InsertPara End If End Sub