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

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

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

Доброго дня, в цикле создается 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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
1
2
3
4
5
6
7
8
9
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 с этой таблицей.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@_Vladimir_ 57 / 55 / 10 Регистрация: 27.07.2010 Сообщений: 279

	Редактирование документа word 20.03.2011, 15:23. Показов 7532. Ответов 17 Метки нет (Все метки) Доброго дня, в цикле создается n-документов word, мне необходимо эти документы не создавать по отдельности, а добавлять в один. Спасибо. 0

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

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	20.03.2011, 15:51
	_Vladimir_, значит не надо создавать документы, раз документы не нужны. 0

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

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	20.03.2011, 15:58
	_Vladimir_, нужно указать место в документе, куда нужно вставить, и указать, что надо вставить. 0

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

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

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

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	20.03.2011, 16:26
	_Vladimir_, Сервис - Макрос - Начать запись... Вставка - Файл... - выбираете файл - Вставить. Сервис - Макрос - Остановить запись. Сервис - Макрос - Редактор Visual Basic - ищите NewMacros. 2

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

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	20.03.2011, 19:19
	_Vladimir_, опишите конкретную ситуацию, чтобы я смог воспроизвести на своём компьютере то, что вам нужно. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	21.03.2011, 12:18
	_Vladimir_, какая модель Office у вас. Есть такое понятие Слияние. Вам оно не подходит или вы не знаете, что это такое? 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	21.03.2011, 15:13
	А сами файлы в электронном виде нужны или это нужно только для распечатки на принтере? А запрос можно сделать в Access, чтобы он содержал все данные, необходимые для вставки в Word? 0

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

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	22.03.2011, 09:24
	_Vladimir_, есть такое предложение: данные в ходе цикла помещайте не в Word, а создайте временную таблицу в Access и в неё помещайте данные. После того, как код завершит работу, появится новая таблица в Access - сделайте слияние в Word с этой таблицей. 0