<div>
Hello, 
found out myself. I guess this is the best way forward: 
 
Sub ApplyStyleSecondToLastRow() 
Dim tbl As Word.Table 
Dim row As Word.row 
Dim rng As Word.Range 
 
&nbsp; &nbsp;Set tbl = ActiveDocument.Tables(1) 
&nbsp; &nbsp;Set rng = tbl.Range 
 
&nbsp; &nbsp;For Each row In tbl.Rows 
&nbsp; &nbsp;rng.SetRange tbl.Rows(2).Range.Start, tbl.Rows.Last.Range.End 
&nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; rng.Style = &quot;Dipl_Tbl_TK&quot; 
&nbsp; &nbsp;Next row 
End Sub 

</div>

Hello,
found out myself. I guess this is the best way forward:

Sub ApplyStyleSecondToLastRow()
Dim tbl As Word.Table
Dim row As Word.row
Dim rng As Word.Range

   Set tbl = ActiveDocument.Tables(1)
   Set rng = tbl.Range

   For Each row In tbl.Rows
   rng.SetRange tbl.Rows(2).Range.Start, tbl.Rows.Last.Range.End
   
      rng.Style = "Dipl_Tbl_TK"
   Next row
End Sub


<div>
<div class="content wysiwyg-content">
Hello, 
below macro applies a custom paragraph style from the second row to the last row of a selected table. Can this code be improved, e.g. by not using the &nbsp;selection object when setting the range? 
Help is appreciated. Thank &nbsp;you very much in advance. 
 
Sub ApplyStyleSecondToLastRow() 
Selection.Tables(1).Select 
Selection.SetRange _ 
&nbsp; &nbsp; &nbsp; &nbsp; Start:=Selection.Rows(2).Range.Start, _ 
&nbsp; &nbsp; &nbsp; &nbsp; End:=Selection.End 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Selection.Style = &quot;custom paragraph style&quot; 
End Sub
</div>
</div>

Hello, 
below macro applies a custom paragraph style from the second row to the last row of a selected table. Can this code be improved, e.g. by not using the  selection object when setting the range?
Help is appreciated. Thank  you very much in advance.

Sub ApplyStyleSecondToLastRow()
Selection.Tables(1).Select
Selection.SetRange _
        Start:=Selection.Rows(2).Range.Start, _
        End:=Selection.End
                 Selection.Style = "custom paragraph style"
End Sub

Avoiding selection object when setting a range on a table macro

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.

Visual Basic Classic

Microsoft Word is a commercial document editing program that is part of the Microsoft Office suite. It features numerous text-editing tools for creating richly formatted documents, along with tools for the use of macros in Word documents. Word's native file formats are denoted either by a .doc or .docx file extension. Plugins permitting the Windows versions of Word to read and write formats it does not natively support, such as the OpenDocument format (ODF) are available. Word can import and display images in common bitmap formats such as JPG and GIF. It can also be used to create and display simple line-art.