Перенос данных между документами без использования буфера обмена

@geopos · Регистрация: 16.10.2013

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

Имеется word-файл-шаблон, в который вставлены DocVariable(ы), Холсты, Закладки и т.п.. В открытом документе на основе шаблона вставляются данные в поля, на холсте примитивами рисуется земельный участок, по закладкам ищутся таблицы, добавляются строки таблицы и разносится разрисованный участком холст по ячейкам.
И это все происходит в цикле, то есть предварительно нужно скопировать шаблон, а лучше хранить временно в памяти. Но есть проблема - в каждой итерации используется местами буфер обмена и поэтому исходный шаблон затирается новыми данными.

Пошаговое описание:
1. Копирую содержимое документа на основе открытого шаблона
Здесь начинается цикл
2. Вношу данные в открытый документ
3. Если будет еще итерация, то вставляю в конец документа скопированный шаблон.
Конец цикла

Проблема: в пункте 2 буфер обмена (скопированный шаблон) затирается. Вот отсюда вопрос как временно сохранить в памяти шаблон для предотвращения его порчи?

@KoGG · 06.07.2015, 16:01

0. Начинается цикл
1. Открываю шаблон из одного и того же места.
2. Сохраняю шаблон каждый раз под новым именем.
3. Если доп . итерация - открываю чистый шаблон копирую в конец документа, закрываю чистый шаблон.
....

@Казанский · 06.07.2015, 16:10

Можно вставлять содержимое файла: Вставка - (Текст) - Объект - Текст из файла...

@geopos · 06.07.2015, 16:26 **[ТС]**

Немного не то,обращаться нужно будет к одному и тому же файлу по несколько раз.
Не знаю можно так, но нужно записать значение Range в переменную или другими словами создать копию этой области в памяти, дабы далее изменения ее не коснулись.

Visual Basic

Sub CopyValueRange()
Dim rng1 As Range
 
ThisDocument.Range.Text = "Hello World!"
Set rng1 = ThisDocument.Range  'здесь нужно взять копию ренжа, не указатель на рендж
 
ThisDocument.Range.Text = "Hello World! Changed string" & Chr(13) & "затем должно вставить rng1 - 'Hello World!' "
 
ThisDocument.Range.Collapse (wdCollapseEnd)
ThisDocument.Range.FormattedText = rng1.FormattedText
End Sub

Если смысл Вам понятен, то такое возможно?

@KoGG · 06.07.2015, 16:33

1. Открываю шаблон - он же рабочий файл
2. Создаю еще временный документ и копирую пустой шаблон в него.
2.2. Начинается цикл
3. Если доп . итерация - из временного документа копирую в конец рабочего документа
...
Закрываю без сохранения временный документ с пустым шаблоном

@Казанский · 06.07.2015, 16:44

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

Немного не то

То есть, нужно копировать-вставлять не исходный шаблон, а уже измененный? Создайте новый временный документ и храните в нем.

Visual Basic

Sub CopyValueRange()
Dim rng1 As Range, d0 As Document, d1 As Document
Set d0 = ThisDocument
ThisDocument.Range.Text = "Hello World!"
Set d1 = Documents.Add
d1.Range.FormattedText = d0.Range.FormattedText
d0.Range.Text = "Hello World! Changed string" & Chr(13) & "затем должно вставить rng1 - 'Hello World!' "
Set rng1 = d0.Range
rng1.Collapse wdCollapseEnd
rng1.FormattedText = d1.Range.FormattedText
d1.Close False
End Sub

@geopos · 06.07.2015, 16:50 **[ТС]**

KoGG, Это понятно.
Программа пишется на делфи, в целях универсальности кода MS Office & OO ответьте на выше заданный вопрос возможно или нет.
Кусок кода реализации задуманного в ОО

Delphi

Doc.CurrentController.Select(Doc.getText);
ooContent := Doc.CurrentController.getTransferable;  // создается КОПИЯ содержимого в ooContent
 
ooCursor := Doc.CurrentController.getViewCursor;
ooCursor.gotoEnd(false);
        
//-------------------------       
// здесь происходят некоторые манипуляции с частью документа с которой совпадает ooContent
//--------------------------
     
ooCursor.collapseToEnd; //gotoEnd(false);
ooCursor.BreakType := 5 ;// Page Break
Doc.GetText.insertControlCharacter(ooCursor, 0, false ); //PARA_BREAK
 
Doc.currentController.insertTransferable(ooContent); // самое примечательное, что вставленная копия содержимого в 
                                                                        //  ooContent осталась без изменений

Добавлено через 4 минуты
Казанский, наоборот нужно вставлять ранее скопированный "чистый" шаблон в конец документа. Решение конечно есть наделать кучу экземпляров Documents, но хотелось бы как в ОО.

SoftIce · 06.07.2015, 17:07

geopos, так?

@geopos · 06.07.2015, 17:11 **[ТС]**

Да! Наконец кто-то понял. Это эксель, как насчет Ворда?

SoftIce · 06.07.2015, 17:12

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

Имеется word-файл-шаблон

Невнимательно прочитал Ваше сообщение и привел пример для Excel
Для Ворда, наверное, тоже как-то так.

@geopos · 06.07.2015, 17:20 **[ТС]**

Спасибо, попозже буду пробовать. Оказывается вместо Range нужно определить тип Variant, иначе без "set" Range отказывается присваивать значение.

@geopos 0 / 0 / 0 Регистрация: 16.10.2013 Сообщений: 46
		1
	Перенос данных между документами без использования буфера обмена 06.07.2015, 15:48. Показов 2593. Ответов 10 Метки нет (Все метки) Имеется word-файл-шаблон, в который вставлены DocVariable(ы), Холсты, Закладки и т.п.. В открытом документе на основе шаблона вставляются данные в поля, на холсте примитивами рисуется земельный участок, по закладкам ищутся таблицы, добавляются строки таблицы и разносится разрисованный участком холст по ячейкам. И это все происходит в цикле, то есть предварительно нужно скопировать шаблон, а лучше хранить временно в памяти. Но есть проблема - в каждой итерации используется местами буфер обмена и поэтому исходный шаблон затирается новыми данными. Пошаговое описание: 1. Копирую содержимое документа на основе открытого шаблона Здесь начинается цикл 2. Вношу данные в открытый документ 3. Если будет еще итерация, то вставляю в конец документа скопированный шаблон. Конец цикла Проблема: в пункте 2 буфер обмена (скопированный шаблон) затирается. Вот отсюда вопрос как временно сохранить в памяти шаблон для предотвращения его порчи? 0

@KoGG 5613 / 1596 / 415 Регистрация: 23.12.2010 Сообщений: 2,393 Записей в блоге: 1
	06.07.2015, 16:01	2
	0. Начинается цикл 1. Открываю шаблон из одного и того же места. 2. Сохраняю шаблон каждый раз под новым именем. 3. Если доп . итерация - открываю чистый шаблон копирую в конец документа, закрываю чистый шаблон. .... 0

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	06.07.2015, 16:10	3
	Можно вставлять содержимое файла: Вставка - (Текст) - Объект - Текст из файла... 0

@KoGG 5613 / 1596 / 415 Регистрация: 23.12.2010 Сообщений: 2,393 Записей в блоге: 1
	06.07.2015, 16:33	5
	1. Открываю шаблон - он же рабочий файл 2. Создаю еще временный документ и копирую пустой шаблон в него. 2.2. Начинается цикл 3. Если доп . итерация - из временного документа копирую в конец рабочего документа ... Закрываю без сохранения временный документ с пустым шаблоном 0

SoftIce es geht mir gut 11272 / 4756 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	06.07.2015, 17:07	8
	geopos, так? Миниатюры 0

@geopos 0 / 0 / 0 Регистрация: 16.10.2013 Сообщений: 46
	06.07.2015, 17:11 [ТС]	9
	Да! Наконец кто-то понял. Это эксель, как насчет Ворда? 0

SoftIce es geht mir gut 11272 / 4756 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	06.07.2015, 17:12	10
	Сообщение от geopos Имеется word-файл-шаблон Невнимательно прочитал Ваше сообщение и привел пример для Excel Для Ворда, наверное, тоже как-то так. 0

@geopos 0 / 0 / 0 Регистрация: 16.10.2013 Сообщений: 46
	06.07.2015, 17:20 [ТС]	11
	Спасибо, попозже буду пробовать. Оказывается вместо Range нужно определить тип Variant, иначе без "set" Range отказывается присваивать значение. 0