VBATools

Poniżej przedstawiam krótki kod kopiujący układ oraz format/styl ostatniego wiersza zaznaczonej tabeli Word i na jego podstawie dodający X wierszy na końcu tej tabeli.

W kodzie została użyta funkcja przytaczana przez Cindy do wylistowania numeru zaznaczonej tabeli, ponieważ w MS Word nie ma parametru zwracającego taki indeks.

Private Sub Wstawienie_wierszy_do_zaznaczonej_tabeli()
'MVP OShon from VBATools.pl
Dim Count%, InsertRows%, tbl As Word.Table
If Selection.Information(wdWithInTable) = False Then _
  MsgBox "Nie zaznaczyłeś tabeli", vbExclamation, "VBATools.pl": Exit Sub
InsertRows = InputBox("Podaj ilośc wierszy jaką chcesz wsadzić do tabeli", _
"Wstawianie wierszy do tabeli", 1)
If IsNumeric(InsertRows) = False Then Exit Sub

On Error GoTo blad
Set tbl = Selection.Tables(1)
With ActiveDocument.Tables(GetTableIndex(tbl))
 .Rows(.Rows.Count).Select
 Selection.Copy
End With
While Count < InsertRows
 Selection.Paste
 Count = Count + 1
Wend
Set tbl = Nothing
Exit Sub
blad:
MsgBox Err.Number & " " & Err.Description
End Sub

Function GetTableIndex(tbl As Word.Table) As Long
'Cindy Meister MVP
 Dim rng As Word.Range
 Set rng = tbl.Range
 rng.Start = tbl.Parent.Content.Start
 GetTableIndex = CLng(rng.Tables.Count)
End Function 

Kod nadaje się świetnie do rozszerzenia funkcjonalności formularzy.

(c) Shon Oskar – www.VBATools.pl