В выложенном alex11100 проекте по автоматизации Word из-под VFP (WordAutomationTutorial.zip) на моем компьютере с установленным Word 2003 не работает кнопочка "Create footer with pagination". Генерируется ошибка.
Чтобы избежать ошибки предлагаю заменить код в методе Command19.Click на следующий:
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.
*-- (с) 19.04.2007 Koltsov R.V. aka rvc44 at www.foxclub.ru
LOCAL i, lcName, lnPageXofY
*-- Select the footer
oRange = oDoc.Sections( 1 ).Footers( 1 ).Range
oRange.Select
*-- Add Page X of Y
*-- Для русского Word 2003 аналогом Upper(oDoc.AttachedTemplate.AutoTextEntries.Item(i).Name)=="PAGE X OF Y"
*-- является выражение Upper(oDoc.AttachedTemplate.AutoTextEntries.Item(i).Name)=="СТР. <№> ИЗ <ВСЕГО>",
*-- где при этом oDoc.AttachedTemplate.AutoTextEntries.Item(i).Value = "стр. * PAGE * из * NUMPAGES *"
*-- Ниже приводится независимый от языка способ определения номера соответствующего элемента автотекста для VFP
*-- Внутри кода заводим счетчик i, т.к. к свойствам объекта j обращаться нельзя из-за "глюкавости" VFP9 & jr
STORE 0 TO i, lnPageXofY
For Each j In oDoc.AttachedTemplate.AutoTextEntries
i = i + 1
lcName = Upper(oDoc.AttachedTemplate.AutoTextEntries.Item(i).Value)
If AT(' PAGE ',lcName)> 0 AND AT(' NUMPAGES ',lcName)> 0
lnPageXofY = oDoc.AttachedTemplate.AutoTextEntries.Item(i).Index
EndIf
EndFor
If !Empty(lnPageXofY)
*-- У меня lnPageXofY=38, а всего элементов автотекста 43
oDoc.AttachedTemplate.AutoTextEntries(lnPageXofY).Insert(oRange,.T.) && RichText=.T.
EndIf
*-- Right align the pagination
oRange.ParagraphFormat.Alignment = 2
*-- Change font of footer
oRange.Font.Name = "Arial"
