Редактирование документа word

@_Vladimir_ · Регистрация: 27.07.2010

Author24 — интернет-сервис помощи студентам

Доброго дня, в цикле создается n-документов word, мне необходимо эти документы не создавать по отдельности, а добавлять в один. Спасибо.

@Ципихович Эндрю · 20.03.2011, 15:31

возможно похожее
Копирование текста между документами Word Копирование текста между док. Word

@~~Busine2009~~ · 20.03.2011, 15:51

_Vladimir_,
значит не надо создавать документы, раз документы не нужны.

@_Vladimir_ · 20.03.2011, 15:55 **[ТС]**

Busine2009,

ну да, мне так и надо чтобы документы не создавались а добавлялись в определенный документ, должен же быть метод типа "OutputTo"

@~~Busine2009~~ · 20.03.2011, 15:58

_Vladimir_,
нужно указать место в документе, куда нужно вставить, и указать, что надо вставить.

@Ципихович Эндрю · 20.03.2011, 16:01

контрол Хоме или контрол Энд например

@~~Busine2009~~ · 20.03.2011, 16:03

Сообщение от Ципихович Эндрю

контрол Хоме или контрол Энд например

я с Range стараюсь работать, если не получается, тогда Selection.

@Ципихович Эндрю · 20.03.2011, 16:06

ну тогда автору вопроса 4 варианта

@_Vladimir_ · 20.03.2011, 16:21 **[ТС]**

спасибо за советы, а нельзя ли оперировать не данными документов (содержимым), а объектами - документами, word ведь умеет добавлять целиком документы через Вставка>Файл...???

@~~Busine2009~~ · 20.03.2011, 16:26

_Vladimir_,

Сервис - Макрос - Начать запись...
Вставка - Файл... - выбираете файл - Вставить.
Сервис - Макрос - Остановить запись.
Сервис - Макрос - Редактор Visual Basic - ищите NewMacros.

@_Vladimir_ · 20.03.2011, 18:45 **[ТС]**

можно примерчик, т.к. код из макроса word у меня не получается перенести в access

@~~Busine2009~~ · 20.03.2011, 19:19

_Vladimir_,
опишите конкретную ситуацию, чтобы я смог воспроизвести на своём компьютере то, что вам нужно.

@_Vladimir_ · 20.03.2011, 21:40 **[ТС]**

есть шаблон pattern.dot, который занимает одну страницу, мне надо сформировать n страниц в документе на основании этого шаблона (у всех разные данные)
Вот существующий код, который создает n документов:

Visual Basic

For i = 1 To n
        
    strPathWordTmp = strPathWord & i & ".doc"
    fso.CreateFolder (strToMainFolder)
 
    strSQL = "SELECT ******;"
    Set rs = CurrentDb.OpenRecordset(strSQL)
        
    Set appCurRep = New Word.Application
    appCurRep.Documents.Add strPathDot
    With appCurRep.ActiveDocument
        .Bookmarks.Item("num").Range.Text = rs.Fields(0)
        ' **************************************
         .SaveAs strPathWordTmp
     End With
        
        appCurRep.Quit
        Set appCurRep = Nothing
        
Next i

Добавлено через 2 часа 9 минут
так добавляемый документ заменяет предыдущее содержимое объекта appReport, а надо чтобы добавлял

Visual Basic

Set appReport = New Word.Application 'added
With appReport.Application
    .Documents.Add "D:\debtorsPerApartment\Word\1.doc"
    .Documents.Add "D:\debtorsPerApartment\Word\2.doc"
    .Documents.Add "D:\debtorsPerApartment\Word\3.doc"
appReport.ActiveDocument.SaveAs CurrentProject.Path & "\Word\AllReports.doc"
appReport.Quit
Set appReport = Nothing
End With

@~~Busine2009~~ · 21.03.2011, 12:18

_Vladimir_,
какая модель Office у вас.
Есть такое понятие Слияние. Вам оно не подходит или вы не знаете, что это такое?

@_Vladimir_ · 21.03.2011, 14:19 **[ТС]**

Сообщение от Busine2009

Есть такое понятие Слияние. Вам оно не подходит или вы не знаете, что это такое?

не подходит,
а вообще все эти объединения документов надо были для того, чтобы пользователю проще было распечатывать группы документов,
пока оптимальным для меня остается решение использование Проводника Windows для печати выделенных документов

@~~Busine2009~~ · 21.03.2011, 15:13

А сами файлы в электронном виде нужны или это нужно только для распечатки на принтере?
А запрос можно сделать в Access, чтобы он содержал все данные, необходимые для вставки в Word?

@_Vladimir_ · 21.03.2011, 22:50 **[ТС]**

Busine2009,

1. Файлы в электронном виде нужны (для рассылки...)
2. Можно, но очень трудоемко, т.к. там текст разных форматов, да и элемент типа изображение присутствует.

@~~Busine2009~~ · 22.03.2011, 09:24

_Vladimir_,
есть такое предложение: данные в ходе цикла помещайте не в Word, а создайте временную таблицу в Access и в неё помещайте данные. После того, как код завершит работу, появится новая таблица в Access - сделайте слияние в Word с этой таблицей.

@_Vladimir_ 57 / 55 / 10 Регистрация: 27.07.2010 Сообщений: 279
	21.03.2011, 22:50 [ТС]	17
	Busine2009, 1. Файлы в электронном виде нужны (для рассылки...) 2. Можно, но очень трудоемко, т.к. там текст разных форматов, да и элемент типа изображение присутствует. 0

@_Vladimir_ 57 / 55 / 10 Регистрация: 27.07.2010 Сообщений: 279
		1
	Редактирование документа word 20.03.2011, 15:23. Показов 7022. Ответов 17 Метки нет (Все метки) Доброго дня, в цикле создается n-документов word, мне необходимо эти документы не создавать по отдельности, а добавлять в один. Спасибо. 0

@Ципихович Эндрю 1583 / 553 / 71 Регистрация: 10.04.2009 Сообщений: 9,025
	20.03.2011, 15:31	2
	возможно похожее Копирование текста между документами Word Копирование текста между док. Word 0

@~~Busine2009~~ Заблокирован
	20.03.2011, 15:51	3
	_Vladimir_, значит не надо создавать документы, раз документы не нужны. 0

@_Vladimir_ 57 / 55 / 10 Регистрация: 27.07.2010 Сообщений: 279
	20.03.2011, 15:55 [ТС]	4
	Busine2009, ну да, мне так и надо чтобы документы не создавались а добавлялись в определенный документ, должен же быть метод типа "OutputTo" 0

@~~Busine2009~~ Заблокирован
	20.03.2011, 15:58	5
	_Vladimir_, нужно указать место в документе, куда нужно вставить, и указать, что надо вставить. 0

@Ципихович Эндрю 1583 / 553 / 71 Регистрация: 10.04.2009 Сообщений: 9,025
	20.03.2011, 16:01	6
	контрол Хоме или контрол Энд например 0

@~~Busine2009~~ Заблокирован
	20.03.2011, 16:03	7
	Сообщение от Ципихович Эндрю контрол Хоме или контрол Энд например я с Range стараюсь работать, если не получается, тогда Selection. 0

@Ципихович Эндрю 1583 / 553 / 71 Регистрация: 10.04.2009 Сообщений: 9,025
	20.03.2011, 16:06	8
	ну тогда автору вопроса 4 варианта 0

@_Vladimir_ 57 / 55 / 10 Регистрация: 27.07.2010 Сообщений: 279
	20.03.2011, 16:21 [ТС]	9
	спасибо за советы, а нельзя ли оперировать не данными документов (содержимым), а объектами - документами, word ведь умеет добавлять целиком документы через Вставка>Файл...??? 0

@~~Busine2009~~ Заблокирован
	20.03.2011, 16:26	10
	_Vladimir_, Сервис - Макрос - Начать запись... Вставка - Файл... - выбираете файл - Вставить. Сервис - Макрос - Остановить запись. Сервис - Макрос - Редактор Visual Basic - ищите NewMacros. 2

@~~Busine2009~~ Заблокирован
	21.03.2011, 15:13	16
	А сами файлы в электронном виде нужны или это нужно только для распечатки на принтере? А запрос можно сделать в Access, чтобы он содержал все данные, необходимые для вставки в Word? 0

	22.03.2011, 09:24

Опции темы

@_Vladimir_ 57 / 55 / 10 Регистрация: 27.07.2010 Сообщений: 279
	20.03.2011, 18:45 [ТС]	11
	можно примерчик, т.к. код из макроса word у меня не получается перенести в access 0

@~~Busine2009~~ Заблокирован
	20.03.2011, 19:19	12
	_Vladimir_, опишите конкретную ситуацию, чтобы я смог воспроизвести на своём компьютере то, что вам нужно. 0

@~~Busine2009~~ Заблокирован
	21.03.2011, 12:18	14
	_Vladimir_, какая модель Office у вас. Есть такое понятие Слияние. Вам оно не подходит или вы не знаете, что это такое? 0

@_Vladimir_ 57 / 55 / 10 Регистрация: 27.07.2010 Сообщений: 279
	21.03.2011, 14:19 [ТС]	15
	Сообщение от Busine2009 Есть такое понятие Слияние. Вам оно не подходит или вы не знаете, что это такое? не подходит, а вообще все эти объединения документов надо были для того, чтобы пользователю проще было распечатывать группы документов, пока оптимальным для меня остается решение использование Проводника Windows для печати выделенных документов 0