title image


Smiley Re: Letzte beschriebene Zeile einer Tabelle per VB
Hallo,



wenn am Ende der Tabelle nur eine Zeile angehängt werden soll, geht das in etwa so:

Sub TestZ()

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

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

ActiveDocument.Tables(1).Cell(rc, cc).Select

'

Selection.InsertRowsBelow 1

Selection.Collapse Direction:=wdCollapseStart

End Sub

      Hubert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: