Уважаемые форумчане, подскажите пожалуйста, существует ли техническая возможность в vba создать макрос переноса данных из EXCEL при условии, что заполнен только левый столбец, в Word. При чем количество заполненных ячеек не ограничено, но каждая новая ячейка это новая строка в Word, то есть должен присутствовать символ конца строки.
Должно быть:
Уважаемые форумчане, подскажите пожалуйста, существует ли техническая возможность в vba создать макрос переноса данных из EXCEL при условии, что заполнен только левый столбец, в Word. При чем количество заполненных ячеек не ограничено, но каждая новая ячейка это новая строка в Word, то есть должен присутствовать символ конца строки.
Sub PasteToWord() Range("A5:A60").Copy Dim WDApp As Word.Application Set WDApp = CreateObject("Word.Application") WDApp.Visible = True WDApp.Documents.Add WDApp.Selection.PasteAndFormat (wdFormatPlainText) End Sub
[/vba] Только подключите сначала библиотеку tools -- references -- microsoft word .....
Так? [vba]
Код
Sub PasteToWord() Range("A5:A60").Copy Dim WDApp As Word.Application Set WDApp = CreateObject("Word.Application") WDApp.Visible = True WDApp.Documents.Add WDApp.Selection.PasteAndFormat (wdFormatPlainText) End Sub
[/vba] Только подключите сначала библиотеку tools -- references -- microsoft word .....SLAVICK
Иногда все проще чем кажется с первого взгляда.
Сообщение отредактировал SLAVICK - Вторник, 29.12.2015, 13:55
Sub pasteInWord() Set objWord = CreateObject("Word.Application") Set doc = objWord.Documents.Add objWord.Visible = 1 Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row).Copy doc.Content.PasteAndFormat (22) Set doc = Nothing: Set objWord = Nothing End Sub
[/vba] [offtop] SLAVICK, долго же я писала [/offtop]
так подойдет? [vba]
Код
Sub pasteInWord() Set objWord = CreateObject("Word.Application") Set doc = objWord.Documents.Add objWord.Visible = 1 Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row).Copy doc.Content.PasteAndFormat (22) Set doc = Nothing: Set objWord = Nothing End Sub
[/vba] [offtop] SLAVICK, долго же я писала [/offtop]Manyasha
ЯД: 410013299366744 WM: R193491431804
Сообщение отредактировал Manyasha - Вторник, 29.12.2015, 13:58
а каким образом переносить данные из определенной ячейки экселя в определенную строку ворда? Тоже макросы? Других способов не существует? Если только с макросами, то какой пример посмотреть?
а каким образом переносить данные из определенной ячейки экселя в определенную строку ворда? Тоже макросы? Других способов не существует? Если только с макросами, то какой пример посмотреть?ovechkin1973
Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.
Примеров очень много. Начните с главного - описания вашей цели, приложите файл/ы примеры - словом все по правилам. И обязательно в новой - своей - теме.
Примеров очень много. Начните с главного - описания вашей цели, приложите файл/ы примеры - словом все по правилам. И обязательно в новой - своей - теме.TimSha
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
[/offtop]
