VBA and word

[amit_m04]

Hii all

i have a prob, i have created a word template with some Bookmark on it and i just want to take the values from VB an put it in the word template and get a printout and also save it as different name,
but when i tried it out the that has the bookmark is replacing the values and is not saving as new file how should i work...?

[Comintern]

Use a normal .doc file instead of a .dot file, and then call the .SaveAs("Filename") method of your document object. Actual templates are a pain to deal with IMHO (even when you aren't coding to them). You can print it out by calling the .PrintOut method.

[amit_m04]

okay but what if i justr want to take the values from the vb and then put them on a word file and then just get a print out but dont want to save it how to do that..?

[Comintern]

okay but what if i justr want to take the values from the vb and then put them on a word file and then just get a print out but dont want to save it how to do that..?

Something like this:

Private Sub FillDocAndPrint()
 
    Dim oDoc As Word.Document, oWord As Word.Application
    
    Set oWord = New Word.Application
    Set oDoc = oWord.Documents.Open("Template.doc")
    
    With oDoc
        .Bookmarks("One").Range.Text = "Foo"
        .Bookmarks("Two").Range.Text = "Bar"
    End With
    
    oDoc.PrintOut
    oDoc.Close (wdDoNotSaveChanges)
    
    Do While oWord.BackgroundPrintingStatus <> 0
        DoEvents        'Wait until the print is done.
    Loop
    
    oWord.Quit
        
End Sub

[Hack]

Moved to office development