Как записать данные в файл MS Word

@Мари_Мари · Регистрация: 01.07.2011

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

Есть файл word. как его можно заполнить через делфи? если такое конечно вообще возможно. я в делфи разбираюсь плохо.
проект делфи связан с бд access. нужно чтобы было так: занёс через делфи данные в документ определенные и распечатал, чтобы получится как отчет.

@ROVERROVER · 06.05.2015, 19:42

спасибо, все отображается! а можете объяснить как отправить ячейки в word с помощью этого DBLukcupComboBox?

@Игорь[Igor] · 06.05.2015, 20:21

Выше уже писал, бери значения с той таблице с которой связан DBLukcupComboBox

Delphi
1
ADOTable1.fieldbyname('FIO').AsString

@ROVERROVER · 07.05.2015, 10:24

спасибо за помощь

@Владислав-2012 · 17.06.2015, 11:36

Сможете помочь с ошибкой, которая возникает на wdDoc.Content;

@Mawrat · 17.06.2015, 15:05

Сообщение от Владислав-2012

Сможете помочь с ошибкой, которая возникает на wdDoc.Content;

Предлагаю этот код:

Delphi
1
2
  wdRng := wdDoc.Content;
  wdRng.Start := wdRng.End;

заменить на такой:

Delphi
1
2
3
4
5
6
7
  //Получаем ссылку на интерфейс диапазона в конце документа.
  //В конце документа всегда расположен невидимый символ специального назначения.
  //Который обозначает конец документа. Вот на этом символе мы и определяем
  //диапазон. Если этот специальный символ удалить или заменить, то в конце
  //документа автоматически появится новый такой же символ. Поэтому структура
  //документа при этом не нарушается.
  wdRng := wdDoc.Range.Characters.Last;

@Владислав-2012 · 17.06.2015, 17:49

а как вставить разрыв страницы?

@Владислав-2012 · 17.06.2015, 18:02

И у меня все равно ошибку выводит(

@Mawrat · 17.06.2015, 22:38

Для проверки, работающий проект с записью текста и таблиц в документ MS Word (без использования закладок).

@Владислав-2012 · 18.06.2015, 00:26

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
procedure TForm2.Action1Execute(Sender: TObject);
const
  wdAlignParagraphCenter = 1;
  wdAlignParagraphLeft = 0;
  wdAlignParagraphRight = 2;
  wdLineStyleSingle = 1;
var
  wdApp, wdDoc, wdRng, wdTable : Variant;
  i, j, Res : Integer;
  D : TDateTime;
  Bm : TBookMark;
  Sd : TSaveDialog;
begin
  Sd := SaveDialog1;
  if Sd.InitialDir = '' then Sd.InitialDir := ExtractFilePath( ParamStr(0));
  if not Sd.Execute then Exit;
   if FileExists(Sd.FileName) then begin
    Res := MessageBox(0, 'Файл с заданным именем уже существует. Перезаписать?'
      ,'Внимание!', MB_YESNO + MB_ICONQUESTION + MB_APPLMODAL);
    if Res <> IDYES then Exit;
  end;
  try
    wdApp := CreateOleObject('Word.Application');
  except
    MessageBox(0, 'Не удалось запустить MS Word. Действие отменено.'
      ,'Внимание!', MB_OK + MB_ICONERROR + MB_APPLMODAL);
    Exit;
  end;
   wdApp.Visible := True;
   wdDoc := wdApp.Documents.Add;
   wdApp.ScreenUpdating := False;
  try
    wdRng := wdDoc.Content;
    wdRng.InsertAfter('Начальнику Департамента       '+#9+ #13#10);
    wdRng.InsertAfter('Росприроднадзора по           '+#9+ #13#10);
    wdRng.InsertAfter('Приволжскому федеральному     '+#9+ #13#10);
    wdRng.InsertAfter('округу                        '+#9+ #9+ #13#10);
    wdRng.InsertAfter('Ивану Ивановичу Иванову       '+#9+ #13#10);
    wdRng.ParagraphFormat.Alignment := wdAlignParagraphright;
    wdRng.Font.Name := 'Times New Roman';
    wdRng.Font.Bold := false;
    wdRng.Font.Size := 10;
      // шапка документа
    wdRng.InsertAfter(#13#10);
    wdRng.Start := wdRng.End;
    wdRng.ParagraphFormat.Reset;
    wdRng.Font.Reset;
    wdRng.InsertAfter('ЗАЯВЛЕНИЕ');
    wdRng.Font.Name := 'Times New Roman';
    wdRng.Font.Bold := TRUE;
    wdRng.Font.Size := 14;
    wdRng.ParagraphFormat.Alignment := wdAlignParagraphcenter;
    wdRng.InsertAfter(#13#10);
      // загoловок
     wdRng.Start := wdRng.End;
    wdRng.Font.Reset;
    wdRng.InsertAfter('о подтверждении отнесения вида отхода к конкретному');
    wdRng.InsertAfter(#13#10);
    wdRng.InsertAfter('классу опасности для окружающей среды');
    wdRng.Font.Name := 'Times New Roman';
    wdRng.Font.Bold := false;
    wdRng.Font.Size := 10;
    wdRng.InsertAfter(#13#10);
    //перед шапкой таблицы
     wdRng.InsertAfter(#13#10);
    wdRng.Start := wdRng.End;
    wdRng.ParagraphFormat.Reset;
    wdRng.Font.Reset;
    wdRng.InsertAfter('Регистрационный номер № _____________ от «____» ____________ 2015 года');
    wdRng.Font.Name := 'Times New Roman';
    wdRng.Font.Bold := false;
    wdRng.Font.Size := 10;
    wdRng.ParagraphFormat.Alignment := wdAlignParagraphleft;
    wdRng.InsertAfter(#13#10);
     // Заголовок
    wdRng.Start := wdRng.End;
    wdRng.ParagraphFormat.Reset;
    wdRng.Font.Reset;
    wdRng.InsertAfter('Организация:');
    wdRng.Font.Name := 'Times New Roman';
    wdRng.Font.Bold := false;
    wdRng.Font.Size := 10;
    wdRng.ParagraphFormat.Alignment := wdAlignParagraphleft;
     // Таблица.
    if not IBQuery1.Active then IBQuery1.Open;
    wdRng.Start := wdRng.End;
    wdTable := wdDoc.Tables.Add(wdRng.Characters.Last, 8, 3);
    wdTable.Columns.item(1).Width:=20;
    wdTable.Columns.item(1).Width:=100;
    wdTable.Columns.item(1).Width:=70;
    wdTable.Borders.InsideLineStyle := wdLineStyleSingle;
    wdTable.Borders.OutsideLineStyle := wdLineStyleSingle;
    wdRng.ParagraphFormat.Reset;
    wdRng.ParagraphFormat.Alignment := wdAlignParagraphleft;
    wdTable.Cell(1, 2).Range.Text := 'Полное наименование юридического лица ';
   wdTable.Cell(2, 2).Range.Text := 'Сокращенное наименование' ;
   wdTable.Cell(3, 2).Range.Text := 'Организационно-правовая форма' ;
   wdTable.Cell(4, 2).Range.Text := 'Место нахождения (из Устава)' ;
   wdTable.Cell(5, 2).Range.Text := 'ОГРН (основной государственный номер записи о создании юридического лица)' ;
   wdTable.Cell(6, 2).Range.Text := 'ИНН (идентификационный номер плательщика)' ;
   wdTable.Cell(7, 2).Range.Text := 'КПП (код причины постановки на учет)' ;
   wdTable.Cell(8, 2).Range.Text := 'Коды ОКВЭД' ;
     for i := 0 to 8 do
     wdTable.Cell(i, 1 ).Range.Text := i;
      IBQuery1.DisableControls;
      Bm := ibquery1.GetBookMark;
      ibquery1.First;
   for i := 0 to 8 do
     begin
      wdTable.Cell(i, 3).Range.Text := ibquery1.Fields[i].AsString;
      ibquery1.Next;
     end;
    ibquery1.GotoBookMark(Bm);
    ibquery1.EnableControls;
     wdRng.Start := wdRng.End;
   // wdRng := wdDoc.Range.Characters.Last;
    wdRng.InsertAfter('просит подтвердить отнесение вида отходов к конкретному классу опасности  ');
    wdRng.InsertAfter(#13#10);
    wdRng.InsertAfter('для окружающей среды в соответствии с прилагаемым перечнем отходов. ');
    wdRng.Font.Reset;
    wdRng.Font.Name := 'Times New Roman';
    wdRng.Font.Bold := false;
    wdRng.Font.Size := 12;
    wdRng.InsertAfter(#13#10);
     D := Now;
    wdRng.Start := wdRng.End;
    wdRng.Font.Reset;
    wdRng.InsertAfter(#13#10);
    wdRng.InsertAfter('Генеральный директор');
    wdRng.InsertAfter(#13#10);
    wdRng.InsertAfter('ЗАО "Михайловский сахарник"      _________________ /Шаталин Сергей Викторович/');
    wdRng.InsertAfter(#9+#9+#9+#9+#9+#9+#9+#9+'(подпись)'+#9+#9+#9+'(ФИО)');
    wdRng.InsertAfter(#13#10);
    D := Now;
    wdRng.InsertAfter('Телефон: (83140) 54-6-26 ' + FormatDateTime('dd.mm.yyyy', D) +'года');
    wdRng.Font.Name := 'Times New Roman';
    wdRng.Font.Bold := false;
    wdRng.Font.Size := 10;
    wdRng.InsertAfter(#13#10);
    wdRng.InsertAfter('Дата: ' + FormatDateTime('dd.mm.yyyy', D) + #13#10);
    wdRng.Start := wdRng.End;
 //   wdRng := wdDoc.Range.Characters.Last;
    wdRng.InsertAfter(#13#10);
    wdRng.InsertAfter('Протокол расчета класса опасности отхода');
    wdRng.Font.Name := 'Times New Roman';
    wdRng.Font.Bold := true;
    wdRng.Font.Size := 14;
    wdRng.InsertAfter(#13#10);
        wdRng.Start := wdRng.End;
 //   wdRng := wdDoc.Range.Characters.Last;
    wdRng.InsertAfter('Наименование отхода: ссылка на запрос');
    wdRng.InsertAfter('Код вида отхода по ФККО: ссылка на запрос');
    wdRng.InsertAfter('Наименование вида отхода по ФККО: ссылка на запрос');
    wdRng.InsertAfter('Расчет класса опасности отхода выполнен в соответствии с «Критериями отнесения ');
    wdRng.InsertAfter('опасных отходов к классу опасности для окружающей природной среды», утвержденными ');
    wdRng.InsertAfter('приказом МПР России от 15 июня 2001 г. № 511.');
    wdRng.InsertAfter('Перечень веществ, составляющих отход (далее — компонентов отхода) и их');
    wdRng.InsertAfter('количественное содержание установлены по составу исходного сырья и технологическим');
    wdRng.InsertAfter('процессам его переработки (или по результатам количественного химического анализа в ');
    wdRng.InsertAfter('аккредитованной лаборатории), прилагаемых к настоящему протоколу. ');
    wdRng.InsertAfter(#13#10);
    wdRng.InsertAfter('Результаты расчета по компонентам отхода:');
wdRng.Start := wdRng.End;
    wdTable := wdDoc.Tables.Add(wdRng.Characters.Last, 2, QWiev.Fields.Count);
    //Параметры линий
    wdTable.Borders.InsideLineStyle := wdLineStyleSingle;
    wdTable.Borders.OutsideLineStyle := wdLineStyleSingle;
    wdRng.ParagraphFormat.Reset;
    wdRng.ParagraphFormat.Alignment := wdAlignParagraphLeft;
    //Оформление шапки.
    wdRng := wdTable.Rows.Item(1).Range; //Диапазон первой строки.
    wdRng.ParagraphFormat.Alignment := wdAlignParagraphCenter;
    wdRng.Font.Size := 10;
    wdRng.Font.Bold := True;
    wdRng := wdTable.Rows.Item(2).Range; //Диапазон второй строки.
    wdRng.ParagraphFormat.Alignment := wdAlignParagraphLeft;
    wdRng.Font.Size := 10;
    wdRng.Font.Bold := False;
    //Записываем шапку таблицы.
    for i := 0 to DBGrideh1.FieldCount-1 do
      wdTable.Cell(1, i + 1).Range.Text :=  DBGrideh1.Columns[i].Title.Caption;
    //Записываем данные таблицы.
    QWiev.DisableControls;
    Bm := QWiev.GetBookMark;
    QWiev.First;
    i := 1;
    while not QWiev.Eof do
     begin
      Inc(i);
       if i > 2 then wdTable.Rows.Add;
         for j := 0 to QWiev.Fields.Count-1 do
           wdTable.Cell(i, j + 1).Range.Text := QWiev.Fields[j].AsString;
      QWiev.Next;
     end;
     QWiev.GotoBookMark(Bm);
    QWiev.EnableControls;
// начало послетабличных строк 3шт
    wdRng.Start := wdRng.End;
    wdRng.Font.Reset;
    wdRng.InsertAfter('Суммарный %' + DBGridEh1.Columns[1].Footer.sumvalue);
    wdRng.InsertAfter(#13#10);
    wdRng.InsertAfter('Показатель К степени опасности отхода:'+DBGridEh1.Columns[4].Footer.sumvalue);
    wdRng.InsertAfter(#13#10);
    wdRng.InsertAfter('Класс опасности отхода:  ');
    wdRng.InsertAfter(#13#10);
    wdRng.Font.Name := 'Times New Roman';
    wdRng.Font.Bold := false;
    wdRng.Font.Size := 10;
    wdRng.InsertAfter(#13#10);
  finally
      wdApp.ScreenUpdating := True;
  end;
  wdApp.DisplayAlerts := False;
  try
    wdDoc.SaveAs(FileName:=Sd.FileName);
  finally
    wdApp.DisplayAlerts := True; .
  end;
end;

@Владислав-2012 · 18.06.2015, 00:29

помогите пожалуйста с кодом, я и разрыв страницы и начинание с последнего символа, у меня постоянно пишет ошибки

wdTable := wdDoc.Tables.Add(wdRng.Characters.Last, 2, QWiev.Fields.Count); на вот это сейчас жалуется

@Mawrat · 18.06.2015, 01:21

Если определён пустой диапазон:

Delphi
1
  wdRng.Start := wdRng.End;

то в нём нет ни одного символа, а значит нет последнего символа. Поэтому попытка определить диапазон на последнем символе пустого диапазона - приведёт к ошибке.
В данном случае для определения таблицы надо использовать сам пустой диапазон.
Т. е., в данном случае, надо строку:

Delphi
1
  wdTable := wdDoc.Tables.Add(wdRng.Characters.Last, 2, QWiev.Fields.Count);

заменить на:

Delphi
1
  wdTable := wdDoc.Tables.Add(wdRng, 2, QWiev.Fields.Count);

@Владислав-2012 · 18.06.2015, 08:19

wdRng := wdDoc.Range.Characters.Last; он на все такие строчки жалуется, но без них последовательность строк путается

@Mawrat · 18.06.2015, 10:42

Сообщение от Владислав-2012

wdRng := wdDoc.Range.Characters.Last; он на все такие строчки жалуется, но без них последовательность строк путается

Надо попробовать выполнить программу из поста #28. В ней используется обращение к wdDoc.Range.Characters.Last. Если проверочная программа отработает без ошибок, значит проблему надо искать в коде обсуждаемого проекта. Если при выполнении проверочной программы произойдут ошибки - значит, проблема с MS Office или с совместимостью программа/MS Office/система. В этом случае надо попробовать позапускать программу на других компьютерах с другой версией MS Office и, возможно - с другой версией Windows.

@Владислав-2012 · 18.06.2015, 11:08

С той программой тоже проблема=(

@Mawrat · 18.06.2015, 11:12

Сообщение от Владислав-2012

С той программой тоже проблема=(

Понятно... Значит, какая-то проблема совместимости с версией MS Office. А какая версия MS Office установлена? Я проверочную программу испытывал на версиях MS Office 2003, 2007 и 2010 - отрабатывало всё без ошибок.

@Владислав-2012 · 18.06.2015, 11:13

Microsoft Word 2010

@Mawrat · 18.06.2015, 11:23

Должно работать - я проверял, в том числе, на этой версии.
Владислав-2012, попробуй выполнить вот этот VBA в MS Word:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Sub Sub1()
  Dim wdDoc As Word.Document
  Dim wdTable As Word.Table
  Dim wdRng As Word.Range
  
  Set wdDoc = Application.Documents.Add
  Set wdRng = wdDoc.Range.Characters.Last
  
  wdRng.InsertAfter "Таблица 1."
  
  'Определяем диапазон в конце документа.
  'Set wdRng = wdDoc.Range.Characters.Last
  'Определяем пустой диапазон в конце текущего диапазона wdRng.
  wdRng.Start = wdRng.End
  
  Set wdTable = wdDoc.Tables.Add(wdRng, 2, 2)
  wdTable.Borders.InsideLineStyle = wdLineStyleSingle
  wdTable.Borders.OutsideLineStyle = wdLineStyleSingle
End Sub

Будут ошибки или нет?

@Владислав-2012 · 18.06.2015, 11:32

Это макрос?

Добавлено через 2 минуты
На семерке сработало, а на вирт машине, стоит версия без макросов, мб в этом причина?

@Mawrat · 18.06.2015, 11:44

Да, код как макрос можно вставить.

Делается так:
На ленте надо выбрать: вкладка "Разработчик" - Visual Basic - на заголовке проекта по правой кнопке мыши открыть контекстное меню - Insert - Module - появится окно редактора - в это окно вставить код VBA, который я в предыдущем посте показал. И, затем, надо выполнить процедуру Sub1 - щелкнуть левой кнопкой мыши в теле этой процедуры и на панели инструментов нажать кнопку "Run Sub/User Form" или через меню Run - Run Sub/User Form.

Добавлено через 47 секунд

Сообщение от Владислав-2012

На семерке сработало, а на вирт машине, стоит версия без макросов, мб в этом причина?

А, понятно... Да, скорее всего в этом причина. Сейчас расскажу, как исправить.

Добавлено через 10 минут
Надо сделать так. MS Word - Большая офисная кнопка слева вверху - кнопка "Параметры Word" - слева в списке выбрать: "Центр управления безопасностью" - справа кнопка "Параметры центра управления безопасностью..." - в появившемся окне в списке слева выбрать: "Параметры макросов" - и в правой части окна задать:
- "Отключить все макросы с уведомлением", либо: "Включить все макросы".
- "Доверять доступ к объектной модели" - можно поставить галочку на этой настройке. Хотя в данном случае её отсутствие не должно создавать помеху.

Добавлено через 1 минуту
После этого код, работающий с MS Word, должен заработать без ошибок.

@Владислав-2012 · 18.06.2015, 11:51

к сожалению это не исправило проблему-( wdRng := wdDoc.Range.Characters.Last; все равно прерывает работу

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

@ROVERROVER 0 / 0 / 0 Регистрация: 30.04.2015 Сообщений: 13
	06.05.2015, 19:42
	спасибо, все отображается! а можете объяснить как отправить ячейки в word с помощью этого DBLukcupComboBox? 0

@ROVERROVER 0 / 0 / 0 Регистрация: 30.04.2015 Сообщений: 13
	07.05.2015, 10:24
	спасибо за помощь 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	17.06.2015, 11:36
	Сможете помочь с ошибкой, которая возникает на wdDoc.Content; Миниатюры 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	17.06.2015, 17:49
	а как вставить разрыв страницы? 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	17.06.2015, 18:02
	И у меня все равно ошибку выводит( Миниатюры 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	18.06.2015, 00:29
	помогите пожалуйста с кодом, я и разрыв страницы и начинание с последнего символа, у меня постоянно пишет ошибки wdTable := wdDoc.Tables.Add(wdRng.Characters.Last, 2, QWiev.Fields.Count); на вот это сейчас жалуется Миниатюры 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	18.06.2015, 08:19
	wdRng := wdDoc.Range.Characters.Last; он на все такие строчки жалуется, но без них последовательность строк путается 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	18.06.2015, 11:08
	С той программой тоже проблема=( 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	18.06.2015, 11:13
	Microsoft Word 2010 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	18.06.2015, 11:32
	Это макрос? Добавлено через 2 минуты На семерке сработало, а на вирт машине, стоит версия без макросов, мб в этом причина? 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	18.06.2015, 11:51
	к сожалению это не исправило проблему-( wdRng := wdDoc.Range.Characters.Last; все равно прерывает работу 0