сохранить данные из диапазона в WORD

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

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

сохранить данные из диапазона в WORD (Макросы/Sub)

Ёжж

Дата: Пятница, 04.03.2016, 09:08 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 31

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

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

Excel 2010

Добрый день! Подскажите, как сохранить данные из диапазона A1:E51 (с учетом фильтра) в WORD? Простое копирование не подойдет.
[moder]Если Вас просят переименовать тему, значит нужно ее переименовать, а не создавать дубль![/moder]

К сообщению приложен файл: 4680513.xlsx (12.7 Kb)

Сообщение отредактировал Manyasha - Пятница, 04.03.2016, 10:27

Ответить

Roman777

Дата: Пятница, 04.03.2016, 10:18 | Сообщение № 2

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

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

Сообщений: 980

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

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

Excel 2007, Excel 2013

Ёжж, тут можно найти Готовое решение

Много чего не знаю!!!!

Ответить

KuklP

Дата: Пятница, 04.03.2016, 10:26 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

[vba]

Код

Sub www()
    Dim wO As Object
    Set wO = CreateObject("word.application")
    Sheets("Заявка").Range("A1:E51").SpecialCells(12).Copy
    With Sheets("Лист1").[a1]
        .PasteSpecial Paste:=xlPasteColumnWidths
        .Parent.Paste Worksheets("Лист1").[a1]
    End With
    Sheets("Лист1").Range("A1:E" & Sheets("Лист1").[a65536].End(xlUp).Row + 3).Copy
    wO.documents.Add
    wO.Selection.Paste
    wO.Visible = True
    Set wO = Nothing
End Sub

[/vba]