StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>I will sent two examples for solving your automation problem. The first one is using MailMerge and the second is using bookmarks.</p> <p>The word file looks like this:</p> <p>Using MailMerge (Insert - > Quick Parts -> Field -> Mail merge -> Merge field) First name: «firstName» Last name: «lastName»</p> <p>=======</p> <p>Using Bookmarks( Insert -> BookMark) First name: (<- the bookmark is here, it’s not visible) Last name: </p> <p>And the code is following:</p> <ol> <li><p>Using bookmarks</p> <pre><code> Open("D:/Doc1.doc"); if (oDoc.Bookmarks.Exists("bkmFirstName")) { object oBookMark = "bkmFirstName"; oDoc.Bookmarks.get_Item(ref oBookMark).Range.Text = textBox1.Text; } if (oDoc.Bookmarks.Exists("bkmLastName")) { object oBookMark = "bkmLastName"; oDoc.Bookmarks.get_Item(ref oBookMark).Range.Text = textBox2.Text; } SaveAs("D:/Test/Doc2.doc"); Quit(); MessageBox.Show("The file is successfully saved!"); </code></pre></li> <li><p>Using MailMerge</p> <pre><code> Open("D:/Doc1.doc"); foreach (Field myMergeField in oDoc.Fields) { //iTotalFields++; Range rngFieldCode = myMergeField.Code; String fieldText = rngFieldCode.Text; // GET only MAILMERGE fields if (fieldText.StartsWith(" MERGEFIELD")) { Int32 endMerge = fieldText.IndexOf("\\"); Int32 fieldNameLength = fieldText.Length - endMerge; String fieldName = fieldText.Substring(11, endMerge - 11); fieldName = fieldName.Trim(); if (fieldName == "firstName") { myMergeField.Select(); oWordApplic.Selection.TypeText("This Text Replaces the Field in the Template"); } } } SaveAs("D:/Test/Doc2.doc"); Quit(); MessageBox.Show("The file is successfully saved!"); </code></pre></li> </ol> <p>I've also used some helper methods.</p> <pre><code> ApplicationClass oWordApplic = new Microsoft.Office.Interop.Word.ApplicationClass(); private Microsoft.Office.Interop.Word.Document oDoc = new Document(); public void Open(string strFileName) { object fileName = strFileName; object readOnly = false; object isVisible = true; object missing = System.Reflection.Missing.Value; oDoc = oWordApplic.Documents.Open(ref fileName, ref missing, ref readOnly, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref isVisible, ref missing, ref missing, ref missing, ref missing); oDoc.Activate(); } public void SaveAs(string strFileName) { object missing = System.Reflection.Missing.Value; object fileName = strFileName; oDoc.SaveAs(ref fileName, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing); } public void Quit() { object missing = System.Reflection.Missing.Value; oWordApplic.Application.Quit(ref missing, ref missing, ref missing); } </code></pre> <p>I hope that this implementation will give some ideas for solving your problem.</p>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload