Страница 2 из 10
Re: Создать отчет в Word из Excel
Добавлено: 18 мар 2008, 12:57
pilligrim
Дамы и господа.
А нельзя просто копи пастом воспользоваться?
Типа
Код: Выделить всё
Windows("Microsoft Excel").Activate
Selection.Copy
Windows("Microsoft Word").Activate
Paste
Re: Создать отчет в Word из Excel
Добавлено: 18 мар 2008, 13:09
VictorM
pilligrim, Вы бы хоть попробовали сначала, перед тем как писать

Re: Создать отчет в Word из Excel
Добавлено: 18 мар 2008, 16:18
seergy
VictorM
Не подскажите как сделать макрос , чтобы вставлял дпнные с листа в ворд типа спец ставки без связи с листом, например как текст в формате RTF////
С уважением...
Re: Создать отчет в Word из Excel
Добавлено: 18 мар 2008, 19:33
VictorM
Ну, если у Вас уже
Есть иакрос котрый вставляет в ворд выдел диапозон, ячеек в эксель
попробуйте сразу после вставки применить к таблице
Код: Выделить всё
Selection.PasteAndFormat (wdFormatPlainText)
хотя не уверен

Re: Создать отчет в Word из Excel
Добавлено: 18 мар 2008, 20:29
seergy
VictorM
"попробуйте сразу после вставки применить к таблице
Код:
Selection.PasteAndFormat (wdFormatPlainText
код в прикрекл. файле .
ПОМогите чтонибудь придумать, а то книга с программой создаётся в ворде и доступна для других.
Re: Создать отчет в Word из Excel
Добавлено: 18 мар 2008, 21:15
VictorM
Не знаю, так что ли?
Re: Создать отчет в Word из Excel
Добавлено: 18 мар 2008, 22:18
seergy
VictorM писал(а):Не знаю, так что ли?
Да здорово. А в коде котрый я вам дал есть возможность выделенный диапозон вставить в ворд можно подправить.
С уважением...
Re: Создать отчет в Word из Excel
Добавлено: 18 мар 2008, 22:28
VictorM
Чёт я не понял. То что я выложил как раз и вставляет в Word диапазон выделенный в Excel
В текстовом формате
******
p.s. вот еще вариант
Re: Создать отчет в Word из Excel
Добавлено: 18 мар 2008, 23:21
seergy
вставляет в Word диапазон выделенный мной (т.е к а кой яхочу в Excel
Re: Создать отчет в Word из Excel
Добавлено: 18 мар 2008, 23:31
VictorM
seergy, ну нужно же хоть немного самому вникать

замените
Application.Range("A1:B4").Copy
на
Application.Selection.Copy
"и будет вам счастье"
