Comments on: Automating Word

By: thiago

thiago — Mon, 17 Nov 2008 14:42:00 +0000

it works (well) with words, but i need do replace some graphics from excel to word… i marked the graphics in word with “bookmarks” but i don’t know the next step…

By: Aaron Love

Aaron Love — Thu, 13 Mar 2008 19:53:00 +0000

Love it. Over the years, I’ve come to beleive that if my boss(es) could think of it, it could be coded. Inserting data from an Excel document to a Word document via VBA was a challenage. I knew that the Word bookmarks were the key. Could not have done it without you. Thanks!!

By: Jon Peltier

Jon Peltier — Fri, 24 Aug 2007 13:21:00 +0000

There are occasional instances in which For Each doesn't work reliably in collections. I have read that "For Each co In ActiveSheet.ChartObjects" sometimes misses a chart, but I don't recall ever seeing it, and I've done a few charts in my day. I do know I had problems with Word Bookmarks, and what I did was like this:

Redim sBkmk(1 to .BookMarks.Count)
For iBkmk = 1 to .BookMarks.Count
sBkmk(iBkmk) = .BookMarks(iBkmk).Name
Next

and then I called each bookmark by name when processing it (and probably debug.printing its name to help track it).

By: Ollie

Ollie — Fri, 24 Aug 2007 00:45:00 +0000

I put the call to FillBookmark inside a For loop:

FOR each bm in mainDoc.bookmarks
...
FillBookmark mainDoc, sName, "bmWinner"
...
next

But, the bm never increments. What is going on here with the doc reference... How can I get the loop to work or why does it not go to the next bm?

Ollie

By: Mike "the dude"

Mike "the dude" — Tue, 12 Apr 2005 21:22:00 +0000

I know this is a few months later...
In C# :

object o1 = "Text1?;

Word.Application wordApp = new Word.ApplicationClass();
object fileName = @"C:yourfile.doc";
object missing = Type.Missing;

Word.Document dCurrentDoc = wordApp.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);

dCurrentDoc.Activate();

string strg = wordApp.ActiveDocument.FormFields.Item(ref o1).Result;

this will give you the contents of the FormField. Hint: make sure that the Document is Protected during addition of text to the FormFields otherwise the Formfield is deleted and only the text is left.

Hope this helps someone...
Mike

By: Joao Pereira

Joao Pereira — Mon, 28 Mar 2005 16:04:00 +0000

hi!!!

anyone has this in c# ??

best regards from portugal,
Joao

By: Tim Francis-Wright

Tim Francis-Wright — Wed, 02 Feb 2005 21:52:00 +0000

I know from experience that this technique works quite welluntil and unless users delete bookmarks. And it’s very easy for users to delete bookmarks in Word.

By: Dick

Dick — Wed, 02 Feb 2005 20:45:00 +0000

pwf: There is a sub and a function. The function got screwed up when I migrated servers, but it’s fixed now. Make sure you copy the function to your project and it should work.

By: Problems with FillBookmark

Problems with FillBookmark — Wed, 02 Feb 2005 14:29:00 +0000

Hello

I tried to use this example, but the FillBookmark does not work.

I get a error "Sub or function not defined". Could you help me, what is wrong?

Sub CreateWordDoc()

Dim wdApp As Object
Dim wdDoc As Object
Dim rCell As Range
Dim rRng As Range
Dim lScore As Long
Dim sName As String

Set rRng = Sheet1.Range("A2:A6?)
lScore = 100 'set the max possible score

'loop through the range
For Each rCell In rRng.Cells
'if the score is less than previous
If rCell.Offset(0, 1).Value < lScore Then
'store the data as variables
lScore = rCell.Offset(0, 1).Value
sName = rCell.Value
End If
Next rCell

'open the word documents
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open("C:AutoWord.doc")

'replace the bookmarks with the variables
FillBookmark wdDoc, sName, "bmWinner"
FillBookmark wdDoc, lScore, "bmScore", "0?

'show the word document
wdApp.Visible = True

End Sub

Br. Jan

By: Dale Dunphy

Dale Dunphy — Fri, 03 Sep 2004 04:52:00 +0000

The code seemed to run okay and changed the Word document. However, now I am getting a message that the document is read-only and do I want to create another copy.

Is there a bug somewhere that the document is not closed properly. Now, I cannot delete or re-save over the Word document.

Many thanks,