Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Файл с несколькими таблицами, таблицы разорваны и имеют разное форматирование с объединенными ячейками. Как перейти к последней строке последней таблицы в документе, или допустим к строке №3 последней таблицы?
Файл с несколькими таблицами, таблицы разорваны и имеют разное форматирование с объединенными ячейками. Как перейти к последней строке последней таблицы в документе, или допустим к строке №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 последней таблицы?
Например, так:
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в первом случае выдает ошибку
tbl.Rows(tbl.Rows.Count).Cells(1).Select
во втором
tbl.Rows(3).Cells(1).Select
в первом случае выдает ошибку
tbl.Rows(tbl.Rows.Count).Cells(1).Selectво втором
tbl.Rows(3).Cells(1).Select
Выложите, пжл, ваш документ. Пример документа, на котором я проверял код - во вложении.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться