title image


Smiley Re: VBA: Tabellen ersellen
Hallo,



ein Beispiel getestet in Word XP.

Sub TestTabellenende()

Dim rc, cc, tRange As Range, oTable As Table

'

rc = ActiveDocument.Tables(1).Rows.Count

cc = ActiveDocument.Tables(1).Columns.Count

'

Set oTable = ActiveDocument.Tables(1)

Set tRange = ActiveDocument.Range(oTable.Cell(cc, rc) _

.Range.Start, oTable.Cell(cc, rc).Range.End + 2)

'

tRange.InsertAfter Chr(13) & "Überschrift 2"

' Selection.MoveDown Unit:=wdLine, Count:=1

' Selection.Style = ActiveDocument.Styles("Überschrift 2")

End Sub      Hubert

Jedes Betriebsystem hat sein allgegenwärtiges Maskottchen:

Unix den Dämon,

MacOS den Apfel,

Linux den Pinguin,

Windows die allgemeinen Schutzverletzungen.





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: