V.urgent

I have a form which extracts every field to a bookmark in a word document.. which is not a problem with Office XP, but it crashes out with Office 2k, HELP!

I have searched through the references for something else to add, but maybe i'm missing something :)

Any help would be much appreciated.

Regards,

Paul.

What code are you using???
Could you post it here?

Woka

PS You're brave posting your mobile number of here :D Bit dodgy, or is it for free advertising? ;)

Actually I am running Office 2k, could you zip up your app???

Woka

Here is the code...

VB Code:

Private Sub Command1_Click()
FileSystem.SetAttr ("c:\fleet aid ltd\estimates\" & boxestimateno & ".txt"), vbNormal
Dim WordObject As Word.Application
Set WordObject = CreateObject("Word.Application")
 
     With WordObject
     .Documents.Open ("c:\Fleet Aid Ltd\config\invoice.doc")
     .ActiveDocument.Bookmarks("estimateno").Select
     .Selection.Text = (boxestimateno.Text)
     .ActiveDocument.Bookmarks("yourref").Select
     .Selection.Text = (boxyourref)
     .ActiveDocument.Bookmarks("fao").Select
     .Selection.Text = (boxfao.Text)
     .ActiveDocument.Bookmarks("invoiceaddr1").Select
     .Selection.Text = (boxinvoiceaddr1)
     .ActiveDocument.Bookmarks("invoiceaddr2").Select
     .Selection.Text = (boxinvoiceaddr2)
     .ActiveDocument.Bookmarks("invoiceaddr3").Select
     .Selection.Text = (boxinvoiceaddr3)
     .ActiveDocument.Bookmarks("invoiceaddr4").Select
     .Selection.Text = (boxinvoiceaddr4)
     .ActiveDocument.Bookmarks("invoiceaddr5").Select
     .Selection.Text = (boxinvoiceaddr5)
     .ActiveDocument.Bookmarks("creditdate").Select
     .Selection.Text = (boxinvoicedate)
     .ActiveDocument.Bookmarks("regno").Select
     .Selection.Text = (boxregno)
     .ActiveDocument.Bookmarks("make").Select
     .Selection.Text = (boxmake)
     .ActiveDocument.Bookmarks("model").Select
     .Selection.Text = (boxmodel)
     .ActiveDocument.Bookmarks("part1").Select
     .Selection.Text = (boxpart1)
     .ActiveDocument.Bookmarks("part2").Select
     .Selection.Text = (boxpart2)
     .ActiveDocument.Bookmarks("part3").Select
     .Selection.Text = (boxpart3)
     .ActiveDocument.Bookmarks("cost1").Select
     .Selection.Text = (boxpart4)
     .ActiveDocument.Bookmarks("cost2").Select
     .Selection.Text = (boxpart5)
     .ActiveDocument.Bookmarks("cost3").Select
     .Selection.Text = (boxcost3)
     .ActiveDocument.Bookmarks("cost4").Select
     .Selection.Text = (boxcost4)
     .ActiveDocument.Bookmarks("cost5").Select
     .Selection.Text = (boxcost5)
     .ActiveDocument.Bookmarks("balancedue").Select
     .Selection.Text = (boxbalance)
     .ActiveDocument.Bookmarks("vat").Select
     .Selection.Text = (boxvat)
     .ActiveDocument.Bookmarks("total").Select
     .Selection.Text = (boxtotal)
     .ActiveDocument.Bookmarks("totalbottom").Select
     .Selection.Text = (boxtotal)
     .ActiveDocument.Bookmarks("invoiceaddr1bottom").Select
     .Selection.Text = (boxinvoiceaddr1)
     .ActiveDocument.Bookmarks("labour").Select
     .Selection.Text = (boxlabour)
     .ActiveDocument.Bookmarks("paint").Select
     .Selection.Text = (boxpaint)
     .ActiveDocument.Bookmarks("sundries").Select
     .Selection.Text = (boxsundries)
     .ActiveDocument.Bookmarks("assessor").Select
     .Selection.Text = (boxassessor)
     .ActiveDocument.Bookmarks("recovery").Select
     .Selection.Text = (boxrecovery)
     .ActiveDocument.Bookmarks("other").Select
     .Selection.Text = (boxothercharge)
     .ActiveDocument.Bookmarks("optiflex").Select
     .Selection.Text = (boxoptiflex)
     .ActiveDocument.Bookmarks("lubricants").Select
     .Selection.Text = (boxlubricants)
     .ActiveDocument.Bookmarks("antifreeze").Select
     .Selection.Text = (boxantifreeze)
     .ActiveDocument.Bookmarks("rustproof").Select
     .Selection.Text = (boxrustproof)
     .ActiveDocument.Bookmarks("valeting").Select
     .Selection.Text = (boxvaleting)
     .ActiveDocument.Bookmarks("mot").Select
     .Selection.Text = (boxMOT)
    End With
   WordObject.Visible = False
       
       WordObject.ActiveDocument.PrintOut
       WordObject.ActiveDocument.PrintOut
       WordObject.ActiveDocument.PrintOut
       WordObject.ActiveDocument.SaveAs FileName:=("c:\Fleet Aid ltd\printedinvoices\" & boxestimateno.Text)
       WordObject.ActiveDocument.Close
End Sub

Any ideas, please...

Regards,

Paul.

Can you attach the word doc...I don't have one set up with all the label sin place :(

What line does it crash out on, and what error do you get?

Woka

:cool: :cool: :cool:

Don't worry all, i've solved it. I activated Word 10.0 reference, which automatically removes all other word references like Word 9.0 (the one i wanted)

I just removed word 10.0 and word 9.0 appeared ! :)

Thanks anyway for the quick response...

Regards,

Paul.