Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Добавление и удаление строк в таблице Word
Sashagor1982 Дата: Воскресенье, 12.03.2023, 14:56 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 287
Репутация: -6 ±
Замечаний: 0% ±

Excel 2007
Добрый день, существует макрос
[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. Спасибо
К сообщению приложен файл: 111.rar (17.1 Kb)
 
Ответить
СообщениеДобрый день, существует макрос
[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
Дата добавления - 12.03.2023 в 14:56
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!