Microsoft Excel

Herbers Excel/VBA-Archiv

Tables in Word | Herbers Excel-Forum


Betrifft: Tables in Word von: Philipp
Geschrieben am: 18.01.2010 08:57:33

Hallo Zusammen,

ich habe folgendes Problem. Und zwar möchte ich in Word mehrere Tabellen untereinander ertsellen. Wie springe ich mit dem Cursor aus der Tabelle heraus? Habe Probleme mit der Range anweisung.

Sub tabelle
Set dok = ActiveDocument
For ordner_num = 1 to 4

Set tbl_all(ordner_num) = dok.Tables.Add(ActiveRange, NumRows:=4, NumColumns:=1)

next ordner_num
End Sub
wie bekomme ich mehrere Tables untereinander?

Danke für eure Hilfe

  

Betrifft: AW: Tables in Word von: JoWE
Geschrieben am: 18.01.2010 09:08:16

Hallo Philipp,

hier ist ja eigentlich das Excel-Forum, oder?!
So vllt.:

Sub neueTabelle_anhaengen()
   newTableSelection.EndKey Unit:=wdStory
   Selection.TypeParagraph 'schafft Platz zw. 2 Tabellen
   ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
      5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
      wdAutoFitFixed
End Sub
Gruß
Jochen


  

Betrifft: DANKE von: Philipp
Geschrieben am: 18.01.2010 09:20:33

.


Beiträge aus den Excel-Beispielen zum Thema "Tables in Word"