Sub cardWord() Dim myWord As New Word.Application Dim n As Integer On Error GoTo InStr Set myDocument = myWord.Documents.Open(ThisWorkbook.Path & "/DocWord.doc")
For n = 0 To 10 myDocument.Content.Find.Execute "Товар_" & CStr(n), False, False, False, False, False, True, 1, False, "ТОВАР №" & CStr(n), 2 Next
'Сохранение перед закрытием myDocument.SaveAs (ThisWorkbook.Path & "/Измененная карта_карта.doc") myDocument.Close
'myDocument.Close 'Был отключен myWord.Quit Exit Sub
'Обработчик ошибок InStr: If Err.Description <> "" Then MsgBox "Ошибка " & Err.Description myDocument.Close myWord.Quit End If End Sub
[/vba] Также существует файл Word с таблицей. Задача состоит в том, чтобы сделать так чтобы программа добавили строки в таблицу или удалила если необходимо в зависимости от изменения n. То есть если товаров 100, то они должны быть в таблице, если 2 тоже должны быть в таблице, но в первом случае в таблице программным образом установить 100 строк, во втором 2. Спасибо
Добрый день, существует макрос [vba]
Код
Option Explicit Dim myDocument As Word.Document
Sub cardWord() Dim myWord As New Word.Application Dim n As Integer On Error GoTo InStr Set myDocument = myWord.Documents.Open(ThisWorkbook.Path & "/DocWord.doc")
For n = 0 To 10 myDocument.Content.Find.Execute "Товар_" & CStr(n), False, False, False, False, False, True, 1, False, "ТОВАР №" & CStr(n), 2 Next
'Сохранение перед закрытием myDocument.SaveAs (ThisWorkbook.Path & "/Измененная карта_карта.doc") myDocument.Close
'myDocument.Close 'Был отключен myWord.Quit Exit Sub
'Обработчик ошибок InStr: If Err.Description <> "" Then MsgBox "Ошибка " & Err.Description myDocument.Close myWord.Quit End If End Sub
[/vba] Также существует файл Word с таблицей. Задача состоит в том, чтобы сделать так чтобы программа добавили строки в таблицу или удалила если необходимо в зависимости от изменения n. То есть если товаров 100, то они должны быть в таблице, если 2 тоже должны быть в таблице, но в первом случае в таблице программным образом установить 100 строк, во втором 2. СпасибоSashagor1982