[Tekker]

Hallo ich will ein Makro fürs Word schreiben und komme nicht weiter.

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