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

@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 отказывается присваивать значение.

Новые блоги и статьи
Как клонировать определенную ветку в Git bytestream 24.01.2025 Одной из ключевых функций Git является возможность клонирования веток, что позволяет создавать локальные копии удаленных репозиториев и работать с определенными версиями проекта. Этот механизм. . .	Как в цикле обойти строки DataFrame в Pandas Python bytestream 24.01.2025 DataFrame представляет собой одну из основных структур данных в библиотеке Python Pandas, которая организует информацию в виде двумерной таблицы с строками и столбцами. Эта структура данных особенно. . .	Как получить имя текущей ветки в Git bytestream 24.01.2025 При работе с Git часто возникает необходимость определить имя текущей ветки, в которой ведется разработка. Знание текущей ветки является критически важным аспектом для эффективного управления. . .	Как отсортировать массив объектов по значению поля объекта в JavaScript bytestream 24.01.2025 При разработке веб-приложений на JavaScript разработчики часто сталкиваются с необходимостью работать с массивами объектов. Эти структуры данных представляют собой упорядоченные наборы элементов, где. . .	Ошибка "src refspec master does not match any" при пуше коммита в Git bytestream 24.01.2025 При работе с системой контроля версий Git разработчики нередко сталкиваются с различными ошибками, одной из которых является сообщение "src refspec master does not match any". Эта ошибка возникает. . .	Как округлить не более двух цифр после запятой в JavaScript bytestream 24.01.2025 При работе с числами в JavaScript разработчики часто сталкиваются с необходимостью округления десятичных значений до определенного количества знаков после запятой. Это особенно важно при работе с. . .
Как сделать UPDATE из SELECT в SQL Server hw_wired 24.01.2025 В современных системах управления базами данных операции обновления и выборки данных являются фундаментальными инструментами для работы с информацией. SQL Server предоставляет мощные команды UPDATE и. . .	Как вставить элемент в массив на указанный индекс в JavaScript hw_wired 24.01.2025 Массивы являются одной из фундаментальных структур данных в JavaScript, предоставляющей разработчикам мощный инструмент для хранения и управления упорядоченными наборами данных. Они позволяют хранить. . .	Чем отличаются HashMap и Hashtable в Java hw_wired 24.01.2025 В мире разработки на Java существует множество инструментов для работы с коллекциями данных, и среди них особое место занимают структуры данных для хранения пар ключ-значение. HashMap и Hashtable. . .	Как конвертировать видео в GIF hw_wired 24.01.2025 В современном мире анимированные изображения стали неотъемлемой частью цифровой коммуникации. Формат GIF (Graphics Interchange Format) представляет собой особый тип файлов, который позволяет. . .	Как скопировать текст в буфер обмена на JavaScript во всех браузерах hw_wired 24.01.2025 Копирование текста в буфер обмена стало неотъемлемой частью современных веб-приложений, значительно улучшающей пользовательский опыт и упрощающей работу с контентом. В эпоху активного обмена. . .	Как скрыть клавиатуру на Android hw_wired 24.01.2025 При разработке Android-приложений часто возникает необходимость управлять видимостью экранной клавиатуры для улучшения пользовательского опыта. Одним из наиболее эффективных способов контроля. . .

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

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

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

@KoGG 5613 / 1596 / 415 Регистрация: 23.12.2010 Сообщений: 2,397 Записей в блоге: 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