Страница 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, Вы бы хоть попробовали сначала, перед тем как писать :confused:

Re: Создать отчет в Word из Excel

Добавлено: 18 мар 2008, 16:18
seergy
VictorM
Не подскажите как сделать макрос , чтобы вставлял дпнные с листа в ворд типа спец ставки без связи с листом, например как текст в формате RTF////
С уважением...

Re: Создать отчет в Word из Excel

Добавлено: 18 мар 2008, 19:33
VictorM
Ну, если у Вас уже
Есть иакрос котрый вставляет в ворд выдел диапозон, ячеек в эксель
попробуйте сразу после вставки применить к таблице

Код: Выделить всё

Selection.PasteAndFormat (wdFormatPlainText)
хотя не уверен :confused:

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 :confused:
В текстовом формате
******
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
"и будет вам счастье" :)