1 Тема от Voha_svv

  • Voha_svv
  • рядовой
  • Неактивен
  • Зарегистрирован: 02.06.2014
  • Сообщений: 4

Тема: Форматирования текста в Worde с помощью макроса

Sub Кнопка1()
Dim AppWord As Word.Application
    Set AppWord = CreateObject("Word.Application")
    AppWord.Documents.Add
    AppWord.Visible = True
    Range("A1000:D1010").Copy 'шапка отчета
    AppWord.Selection.Paste
    Range("A1:E1").Copy 'название колонок
    AppWord.Selection.Paste
    Range("A997:E997").Copy 'входящие остатки
    AppWord.Selection.Paste
    For i = 2 To 999
    If Cells(i, 6) = 1 Then
    Range(Cells(i, 1), Cells(i, 5)).Copy 'строки для вывода
    AppWord.Selection.Paste
    End If
    Next
    Range("A1010:E1012").Copy ' подписанты
    AppWord.Selection.Paste
    Application.CutCopyMode = False
    Set AppWord = Nothing
End Sub

Помогите отформатировать, выведенную из excel в word, таблицу с помощью макроса в excel. Файл могу сбросить на e-mal

2 Ответ от shanemac51

  • shanemac51
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 05.03.2012
  • Сообщений: 467
  • Поблагодарили: 119

Re: Форматирования текста в Worde с помощью макроса

Файл могу сбросить на e-mal

---------------------
жду  shanemac51@yandex.ru

3 Ответ от Voha_svv

  • Voha_svv
  • рядовой
  • Неактивен
  • Зарегистрирован: 02.06.2014
  • Сообщений: 4

Re: Форматирования текста в Worde с помощью макроса

сбросил