Guten Tag zusammen
Ich bin daran in Word mit einer Schleife ein Array durchzuarbeiten. Für jeden Wert im Array soll eine kleine Tabelle erstellt werden. Nun habe ich das Problem, das die zweite Tabelle in die erste Zeile der ersten Tabelle eingefügt wird. Wie kann ich erreichen das die Tabelle jeweils unten an der vorherhigen Tabelle eingefügt wird?
Ich denke es happert an der Einstellung Range, aber wie kann ich das verändern so das es bei Cursorposition eingefügt wird? Die Cursorposition nach die Tabelle zu setzen hab ich ja schon geschafft mit "Selection.GoToNext wdGoToLine"
Hier mal mein Code:
For Each key In Registry
Set myRange = ActiveDocument.Range(0, 0)
Selection.Tables.Add Range:=myRange, NumRows:=5, NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
With ActiveDocument.Tables(1)
Set rng = .Cell(1, 1).Range
rng.End = .Cell(1, 2).Range.End
rng.Select
rng.Cells.Merge
Selection.TypeText Text:="Connection " & key
Set rng2 = .Cell(2, 1).Range
rng2.Select
Selection.TypeText Text:="Name"
Set rng3 = .Cell(3, 1).Range
rng3.Select
Selection.TypeText Text:="Database Name"
Set rng4 = .Cell(4, 1).Range
rng4.Select
Selection.TypeText Text:="User Name"
Set bkm = .Cell(2, 2).Range
bkm.Select
Selection.Bookmarks.Add ("Text" & NameBKM)
Set bkm2 = .Cell(3, 2).Range
bkm2.Select
Selection.Bookmarks.Add ("Text" & DB_BKM)
Set bkm3 = .Cell(4, 2).Range
bkm3.Select
Selection.Bookmarks.Add ("Text" & UserBKM)
Selection.GoToNext wdGoToLine
End With
Next
Danke vielmals für eure Hilfe!!!
|