Документ WORD, и поля merge field - VB
Формулировка задачи:
вопрос такой
есть документ ворд с текстом и картинками, в этом тексте есть поля merge field, вопрос такой можно ли из программы открыть этот ВОРДовский документ, и поля merge field заменить записями из рекордсета?
у кого есть опыт, поделитесь?
есть документ ворд с текстом и картинками, в этом тексте есть поля merge field, вопрос такой можно ли из программы открыть этот ВОРДовский документ, и поля merge field заменить записями из рекордсета?
у кого есть опыт, поделитесь?
Решение задачи: «Документ WORD, и поля merge field»
textual
Листинг программы
--- Fields <font color="blue">Property</font> Example
--- This example updates all the fields <font color="blue">in</font> the active document.
ActiveDocument.Fields.Update
--- This example removes all the fields from the main text story <font color="blue">and</font> the footer <font color="blue">in</font> the active document.
<font color="blue">For</font> <font color="blue">Each</font> aField <font color="blue">in</font> ActiveDocument.Fields
aField.Delete
<font color="blue">Next</font> aField
<font color="blue">Set</font> myRange = ActiveDocument.Sections(<font color="darkblue"><b>1</b></font>).Footers _
(wdHeaderFooterPrimary).Range
<font color="blue">For</font> <font color="blue">Each</font> aField <font color="blue">In</font> myRange.Fields
aField.Delete
<font color="blue">Next</font> aField
--- This example adds a <font color="blue">DATE</font> field at the insertion point.
<font color="blue">With</font> Selection
.Collapse Direction:=wdCollapseStart
.Fields.Add Range:=Selection.Range, <font color="blue">Type</font>:=wdFieldDate
<font color="blue">End</font> <font color="blue">With</font>
--- This example adds a mail merge field named <font color="teal">"Title"</font> at the insertion point.
Selection.Collapse Direction:=wdCollapseStart
ActiveDocument.MailMerge.Fields.Add Range:= Selection.Range, _
<font color="blue">Name</font>:= <font color="teal">"Title"</font>