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

Ansicht des Beitrags:
Von:
Sunny		 Datum:
01.05.2018 12:19:06		 Views:
464		 Rating:
     
Antwort:
 Nein
Thema:
Tabellen in Word einfügen mit Schleife

Die Lösung war folgende: 

For Each key In Registry
        Selection.Tables.Add Range:=Selection.Range, 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)
             
            'Springt zum Ende der Tabelle
            Selection.GoToNext wdGoToLine
            Selection.InsertAfter vbCrLf & vbCrLf
            Selection.MoveDown 5, 1

        End With
Next

 

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
01.05.2018 07:43:39 Sunny
NotSolved
Blau Tabellen in Word einfügen mit Schleife
 01.05.2018 12:19:06 Sunny
Solved