добавление строк в таблице Word

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/добавление строк в таблице Word - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

добавление строк в таблице Word (Макросы/Sub)

добавление строк в таблице Word

Sashagor1982

Дата: Среда, 15.03.2023, 21:58 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 287

Репутация: -6 ±

Замечаний: 0% ±

Excel 2007

Добрый день, необходимо добавить строки в документе Word на определенной позиции.
[vba]

Код

Sub tblPlus()
Dim myWord As New Word.Application
Dim myDocument As Word.Document
Dim tblNew As Table

On Error GoTo Errors
    Set myDocument = myWord.Documents.Open(ThisWorkbook.Path & "/tbl2.docx")
    Set tblNew = myDocument.Tables(2)
    Set tblNew = myDocument.Tables(2).Rows.Add(BeforeRow:=tblNew.Rows(11))


Exit Sub
Errors:
    If Err.Description <> "" Then
        MsgBox "Ошибка - " & Err.Description
        myDocument.Close
        myWord.Quit
    End If
End Sub

[/vba]
Данный код справляется со своей работой если таблица без объединенных ячеек, однако появляется ошибка несоответствие типов в этой строке
[vba]

Код

Set tblNew = myDocument.Tables(2).Rows.Add(BeforeRow:=tblNew.Rows(11))

[/vba]
Но данный код не работает если таблица содержит объединенные ячейки. Можно указать мне на ошибку?

К сообщению приложен файл: prim.rar (54.4 Kb)

Ответить

добавление строк в таблице Word (Макросы/Sub)

Страница 1 из 1
1