Automating a word 2010 template with Visual Basic

Question

1.00/5 (1 vote)

See more:

Ok Continuint my venture I learned it would be easier to use a template this the problem I created a bookmark within my template. I can get the template open but where the bookmark is I can not get the data from a textbox in my program to show. What am I doing wrong hee is my code:

VB

               Dim oWord As Microsoft.Office.Interop.Word.Application
               Dim oDoc As Microsoft.Office.Interop.Word.Document

'Start word Document template
        oWord = CreateObject("Word.Application")
        oWord.Visible = True
        oDoc = oWord.Documents.Add("C:\Program Files\QC7\Field Quality Report.dotm")

        oDoc.Bookmarks.Item("District").Range.Text = Customer_Data.CustomerTextBox.Text

        oDoc = Nothing
        oWord = Nothing
        GC.Collect()
        GC.WaitForPendingFinalizers()
        GC.Collect()
        GC.WaitForPendingFinalizers()


        'All done
        Me.Hide()

Posted 16-Aug-12 20:48pm

icecode

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Kenneth Haugland · Accepted Answer · 2012-08-17T05:51:00

Solution 1

Its pretty straight forward, you just forgot to add some nessecary code:
http://msdn.microsoft.com/en-us/library/ad6ks7k0%28v=vs.80%29.aspx[^]

C#

object rng = bookmark.Range;
string bookmarkName = bookmark.Name;

bookmark.Range.Text = newText;

this.Bookmarks.Add(bookmarkName, ref rng);

Posted 17-Aug-12 5:51am

Kenneth Haugland

Updated 18-Aug-12 12:43pm

v2

Comments

icecode 18-Aug-12 18:40pm

I am sorry I just dont see the line of code I am missing in that document

icecode 18-Aug-12 20:25pm

I just dont get it nothing seems to be working can you please evaluate my code :
Private Sub PrintDoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintDoc.Click
Dim oWord As Microsoft.Office.Interop.Word.Application
Dim oDoc As Microsoft.Office.Interop.Word.Document
Dim oRng As Microsoft.Office.Interop.Word.Range

'Start word Document template
oWord = CreateObject("Word.Application")
oWord.Visible = True
oDoc = oWord.Documents.Add("C:\Program Files\QC7\Field Quality Report.dotm")
oRng = oDoc.Bookmarks.Item("\District").Range

oRng.Bookmarks.Item("District").Range.Text = Customer_Data.CustomerTextBox.Text

oDoc = Nothing
oWord = Nothing
GC.Collect()
GC.WaitForPendingFinalizers()
GC.Collect()
GC.WaitForPendingFinalizers()

'All done
Me.Hide()

End Sub

icecode 20-Aug-12 17:50pm

Never mind got it thank you for your help.