title image


Smiley Re: Tipp von mir: Poste einmal den Code, sonst bleibt die Glaskugel trüb oT
Hallo Georg,



versuchst Du es so?

Sub TabelleEinfügen()

Call CreateTable(4, 3)

End Sub

'

Public Function CreateTable(numRows As Integer, numCols As Integer)

ActiveDocument.Tables.Add Range:=Selection.Range, _

numRows:=numRows, NumColumns:=numCols

'

With Selection.Tables(1)

.Style = "Tabellengitternetz"

.ApplyStyleHeadingRows = True

.ApplyStyleLastRow = True

.ApplyStyleFirstColumn = True

.ApplyStyleLastColumn = True

End With

End Function      Hubert





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: