V.urgent

[VisionIT]

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.

[Wokawidget]

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

Woka

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

[Wokawidget]

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

Woka

[VisionIT]

Here is the 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.

[Wokawidget]

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

[VisionIT]

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.