Thema Datum  Von Nutzer Rating
Antwort
Rot Tabellen in Word einfügen mit Schleife
01.05.2018 07:43:39 Sunny
NotSolved
01.05.2018 12:19:06 Sunny
Solved

Ansicht des Beitrags:
Von:
Sunny
Datum:
01.05.2018 07:43:39
Views:
936
Rating: Antwort:
  Ja
Thema:
Tabellen in Word einfügen mit Schleife

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!!!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Tabellen in Word einfügen mit Schleife
01.05.2018 07:43:39 Sunny
NotSolved
01.05.2018 12:19:06 Sunny
Solved