Несколько строк из excel в один лист рассылки word

Вход

Регистрация

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

= Мир MS Excel/Несколько строк из excel в один лист рассылки word - Мир MS Excel

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

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

Несколько строк из excel в один лист рассылки word (Word)

Несколько строк из excel в один лист рассылки word

John565

Дата: Среда, 24.06.2015, 12:09 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

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

Excel 2007

Всем привет. Есть таблица с одинаковыми id как на рисунке. Как сделать так что бы в рассылку в ворде на первую страницу вставляло строки с id 1, на вторую страницу с id 2 и т.д.

Ответить

KSV

Дата: Среда, 24.06.2015, 12:38 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

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

Excel 2013

см. здесь

макросом, в вашем случае, это будет так: (см. вложенный файл)
[vba]

Код

Private Sub CopyToWord()
     Dim i&, n&, v(), WA As Object, WR As Object
     Set WA = CreateObject("Word.Application")
     v = Cells(1, 1).CurrentRegion.Value
     For i = 2 To UBound(v)
         If n <> v(i, 1) Then
             n = v(i, 1)
             Set WR = WA.Documents.Add.Range
             WR.Text = v(i, 2) & " (" & v(i, 3) & ")"
         Else
             With WR
                 .SetRange .End, .End
                 .InsertBreak 7 ' wdPageBreak
                 .InsertAfter v(i, 2) & " (" & v(i, 3) & ")"
             End With
         End If
     Next
     WA.Visible = True
     WA.Activate
     Set WA = Nothing
End Sub

[/vba]

К сообщению приложен файл: CopyToWord.xls (38.0 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал KSV - Среда, 24.06.2015, 13:18

Ответить

Несколько строк из excel в один лист рассылки word (Word)

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