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

[pilligrim]

Дамы и господа.
А нельзя просто копи пастом воспользоваться?
Типа

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

Windows("Microsoft Excel").Activate
Selection.Copy
Windows("Microsoft Word").Activate
Paste

[VictorM]

pilligrim, Вы бы хоть попробовали сначала, перед тем как писать

[seergy]

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

[VictorM]

Ну, если у Вас уже

Есть иакрос котрый вставляет в ворд выдел диапозон, ячеек в эксель

попробуйте сразу после вставки применить к таблице

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

Selection.PasteAndFormat (wdFormatPlainText)

хотя не уверен

[seergy]

VictorM
"попробуйте сразу после вставки применить к таблице

Код:

Selection.PasteAndFormat (wdFormatPlainText
код в прикрекл. файле .
ПОМогите чтонибудь придумать, а то книга с программой создаётся в ворде и доступна для других.

[VictorM]

Не знаю, так что ли?

[seergy]

Не знаю, так что ли?

Да здорово. А в коде котрый я вам дал есть возможность выделенный диапозон вставить в ворд можно подправить.
С уважением...

[VictorM]

Чёт я не понял. То что я выложил как раз и вставляет в Word диапазон выделенный в Excel
В текстовом формате
******
p.s. вот еще вариант

[seergy]

вставляет в Word диапазон выделенный мной (т.е к а кой яхочу в Excel

[VictorM]

seergy, ну нужно же хоть немного самому вникать
замените Application.Range("A1:B4").Copy
на Application.Selection.Copy
"и будет вам счастье"