Word docvariable как изменить

Я делал так (пользовался формами).
1. MSWord -> RClick на панелях инструментов Ворда -> «Формы» (чтобы отобразить панель инструментов «Формы»)
2. На панели инструментов «Формы» — LClick «Текстовое поле» -> В документе появится текстовое поле (серенькое, если затенение полей формы включено)
3. RClick на появившемся поле в документе -> Свойства
4. В окне «Параменты текстового поля» -> «Параменты поля/Закладка:» вводим, например, «MyTextField1» -> ОК
5. В текстовом поле документа (сереньком) вводим какой-нибудь текст, например, «QWERTY»
6. В ВБА (Alt+F11) -> пишем:

Sub tt()
    MsgBox ThisDocument.FormFields.Item("MyTextField1").Range.Text
End Sub

7. F5 на макросе и видим на экране «QWERTY» ! Или «ЙЦУКЕН», как у меня, что в общем-то тоже радует глаз!

Я, кстати, ещё и защиту документа включал, чтобы «никто » не мог исправить ничего, кроме данных форм…

Пойдёт? Извиняюсь, что так подробно, вдруг всё-таки кто-ньть читать будет

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах

Pоwerеd by рhpВB © 2001, 2005 рhpВB Grouр
Русская поддержка phрВB

ИТ-записки Чорнага кашака

Язык программирования самого высокого уровня содержит всего несколько команд для управления программистами

15 мар. 2010 г.

Использование полей и закладок при работе с MS Word из Delphi

В предыдущей заметке «Поиск и замена текста в документе MS Word из Delphi» я рассказывал, как дорабатывал старый модуль, который генерирует клиентам компании письма в формате MS Word с помощью поиска и замены текста. Сдав модуль заказчикам, я в свободное от работы время, переделал его. Вместо поиска и замены использовал поля с переменными (DocVariable).
В шаблон письма с помощью макроса добавил переменные

Sub AddFields()
ThisDocument.Variables.Add «FIO», «FIO»
ThisDocument.Variables.Add «ADDRESS», «ADDRESS»
.
End Sub

и расставил поля по тексту шаблона. В макросе у метода Add первый параметр – название переменной, а второй – ее значение. Я специально сделал их одинаковыми, чтобы пользователям было проще и нагляднее редактировать шаблоны.
Затем внес изменения в методы модуля работающие с MS Word. Если опустить все детали и различную логику, то упрощенно работа с MS Word выглядит так:

Var
wa: WordApplication;
ovDotName, ovFileName: OleVariant;
i: Integer;
q: TSDQuery;
.
begin
.
wa := CreateComObject(CLASS_WordApplication) as _Application;
ovDotName := ‘какой то шаблон.dot’;
wa.Documents.Add(ovDotName, EmptyParam, EmptyParam, EmptyParam);

For i := 0 to q.FieldCount-1 do
MSWordSetVariable(q.Fields[i].FieldName, q.Fields[i].AsString);
.
ovFileName := ‘письмо любимому клиенту.doc’;
wa.ActiveDocument.SaveAs(ovFileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
.

Вот такая логика у индусов, писавших этот кусок MS Word.

После присвоения значений всем переменным, осталось только дать команду полям обновиться новыми значениями переменных. Для этого в VBA у коллекции объектов полей (Fields) есть метод Update:

А для того, чтобы избежать дальнейшего обновления полей, избавимся от их связи с переменными:

У каждого структурного элемента документа (заметки, колонтитула, сноски и т.д.) своя коллекция объектов полей, поэтому, если документ, как у меня, состоит из разных структурных элементов, то методы Update и Unlink необходимо вызвать для каждого из этих элементов. Для этого перебираем все элементы коллекции StoryRanges.

procedure MSWordUpdateStoryRanges;
Var
StoryRanges: Word2000.StoryRanges;
StoryRange: Word2000.Range;
iStoryIndex: integer;
Begin
StoryRanges := wa.ActiveDocument.StoryRanges;
For iStoryIndex := wdMainTextStory to wdFirstPageFooterStory do
Try
StoryRange := StoryRanges.Item(iStoryIndex);
If StoryRange <> nil then
begin
StoryRange.Fields.Update;
StoryRange.Fields.Unlink;

While (StoryRange.NextStoryRange <> nil) do
begin
StoryRange := StoryRange.NextStoryRange;
StoryRange.Fields.Update;
StoryRange.Fields.Unlink;
end;
end;
Except
StoryRange := nil;
End;
End;

И вызываю ее перед сохранением документа.

Все бы ничего, но часть текста передаваемого из программы в MS Word необходимо было выводить жирным шрифтом. А это через переменные не сделать 🙁 В подобном случае «поиск и замену текста» можно заменить на «переход к закладке и вывод текста». Например, в шаблон вставляем закладку с именем ‘писать текст сюда’, а в программе пишем:

Вот и все 🙂
Раннее связывание и использование полей/закладок дало существенный рост скорости генерации писем. Если на 500-х различных документах этого было почти не заметно, то при генерации 15 000 документов, прирост скорости составил 30% (специально проверил несколько раз на одних и тех же исходных данных).

Adblock
detector

Нравится ресурс? Помоги проекту!

Работа с полями(WORD)
, никак не пойму как сделать…

• Подписаться на тему
• Сообщить другу
• Скачать/распечатать тему

Сообщ. #1 , 18.03.08, 07:33
	Есть документ, в нем есть поля. Допустем вот содержание: Имя {DOCVARIABLE str1 * MERGEFORMAT} Номер {DOCVARIABLE str2 * MERGEFORMAT} как мне из VB вместо str1 и str2 вставить свое значени? Получить я могу, а вот как свое воткнуть…

Old Bat	Сообщ. #2 , 18.03.08, 12:42
Moderator Рейтинг (т): 128	изменять значения переменных документа нельзя, можно только удалить переменную и создать новую с тем же именем и другим значением ActiveDocument.Variables(x).Delete ActiveDocument.Variables.Add …

Bubaylo	Сообщ. #3 , 18.03.08, 12:44
	Old Bat А как мне быть в моем случае? : Имя str1 Номер str2 как мне разместить эти переменные напротив нужной строки и предовать им мои значения?

Old Bat	Сообщ. #4 , 18.03.08, 12:56
Moderator Рейтинг (т): 128	для изменения значения работай с переменными как описано выше, затем вставляй соотв. поле в документ (Вставка-поле..), в качестве имени DOCVARIABLE указывай имя созданной переменной

Bubaylo	Сообщ. #5 , 18.03.08, 13:44
	Old Bat Т.е. мне нужно сначала в самом документе созать переменную, потом ее связать с полем или можно просто добавить переменную к документу, а потом их связать? Правильно? Я весь мозг себе уже взорвал…

Old Bat	Сообщ. #6 , 18.03.08, 15:59
Moderator Рейтинг (т): 128	Цитата Bubaylo @ 18.03.08, 13:44 нужно сначала в самом документе созать переменную, потом ее связать с полем

kosten	Сообщ. #7 , 05.11.14, 14:23
	Подниму тему. Коллеги, подскажите, как получить список всех DocVariable документа?

Akina	Сообщ. #8 , 05.11.14, 15:01
	А перебрать коллекцию ActiveDocument.Variables не судьба? у каждого итема есть свойства Name и Value, читай не хочу…

kosten	Сообщ. #9 , 06.11.14, 18:16
	Цитата Akina @ 05.11.14, 15:01 А перебрать коллекцию ActiveDocument.Variables не судьба? у каждого итема есть свойства Name и Value, читай не хочу… Спасибо. Я не знаток VBA поэтому и спрашиваю про элементарные вещи.

Akina	Сообщ. #10 , 07.11.14, 05:44
	Dim var As Variable For Each var In ActiveDocument.Variables   Debug.Print var.Name, var.Value Next

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

• Предыдущая тема
• VB for Application
• Следующая тема

[ Script execution time: 0,0311 ]   [ 16 queries used ]   [ Generated: 14.04.23, 20:45 GMT ]