1

Тема: Найти последнюю строку таблицы в документе word

Файл с несколькими таблицами, таблицы разорваны и имеют разное форматирование с объединенными ячейками. Как перейти к последней строке последней таблицы в документе, или допустим к строке №3 последней таблицы?

2

Re: Найти последнюю строку таблицы в документе word

Pavel_U пишет:

Файл с несколькими таблицами, таблицы разорваны и имеют разное форматирование с объединенными ячейками. Как перейти к последней строке последней таблицы в документе, или допустим к строке №3 последней таблицы?

Попробуйте такой VBA-код:

Sub GotoLastRowOfLastTable()
Dim tbl As Table
Dim tbl_cnt As Long
tbl_cnt = ActiveDocument.Tables.Count
If tbl_cnt > 0 Then
    Set tbl = ActiveDocument.Tables(tbl_cnt)
    tbl.Rows(tbl.Rows.Count).Cells(1).Select
End If
End Sub

3

Re: Найти последнюю строку таблицы в документе word

Pavel_U пишет:

... или допустим к строке №3 последней таблицы?

Например, так:

Sub GotoThirdRowOfLastTable()
Dim tbl As Table
Dim tbl_cnt As Long
Dim tbl_rows_cnt As Long
tbl_cnt = ActiveDocument.Tables.Count
If tbl_cnt > 0 Then
    Set tbl = ActiveDocument.Tables(tbl_cnt)
    tbl_rows_cnt = tbl.Rows.Count
    If tbl_rows_cnt >= 3 Then
        tbl.Rows(3).Cells(1).Select
    End If
End If
End Sub

4

Re: Найти последнюю строку таблицы в документе word

в первом случае выдает ошибку
tbl.Rows(tbl.Rows.Count).Cells(1).Select

во втором
tbl.Rows(3).Cells(1).Select

5

Re: Найти последнюю строку таблицы в документе word

Pavel_U пишет:

в первом случае выдает ошибку
tbl.Rows(tbl.Rows.Count).Cells(1).Select

во втором
tbl.Rows(3).Cells(1).Select

Выложите, пжл, ваш документ. Пример документа, на котором я проверял код - во вложении.

Post's attachments

Lastrow.docm 62.72 Кб, 2 скачиваний с 2016-11-21 

You don't have the permssions to download the attachments of this post.