HOW to insert data values in word document

[sal21]

How to insert in this doc the value from Access recordset ?
No idea!

[HansV]

First, open the document in Word.
Insert a bookmark in each location of the document where you want to place a value from your recordset.
Give each bookmark a clear and meaningful name, for example Destinatario and DataFattura.
Save the document.

In your VB6 project, use Automation to start Word, open the document, set the values of the bookmarks, then save the document under another name. Quit Word when you have processed all records.

[sal21]

First, open the document in Word.
Insert a bookmark in each location of the document where you want to place a value from your recordset.
Give each bookmark a clear and meaningful name, for example Destinatario and DataFattura.
Save the document.

In your VB6 project, use Automation to start Word, open the document, set the values of the bookmarks, then save the document under another name. Quit Word when you have processed all records.

FIRST TET, dont work!

Code: Select all

Private Sub FATTURA()

    Dim APP As Object
    Dim DOC As Object
    Set APP = CreateObject("WORD.Application")
    APP.Visible = True

    Set DOC = APP.documents.Open("C:\Lavori_Vb6\HOTEL\Fattura.doc")

    DOC.Bookmarks("IMMAGINE").Select

    DOC.Selection.InlineShapes.AddPicture FileName:="C:\Lavori_Vb6\HOTEL\IMG\RISTORANTE.bmp", LinkToFile:=False, SaveWithDocument:=False
    
    DOC.booksmarks("NOME_AZIENDA").Range.Text = "TEST"
    DOC.printout
    DOC.Close
    Set DOC = Nothing

    APP.quit
    Set APP = Nothing

End Sub

i need t insert an image in bokkmark, is this correct?

[HansV]

Where does it fail? And what is the error message?

[sal21]

Where does it fail? And what is the error message?

Error In:

DOC.Selection.InlineShapes.AddPicture FileName:="C:\Lavori_Vb6\HOTEL\IMG\RISTORANTE.bmp", LinkToFile:=False, SaveWithDocument:=False

[HansV]

Change DOC.Selection to APP.Selection

[HansV]

Or change

Code: Select all

   DOC.Bookmarks("IMMAGINE").Select

    DOC.Selection.InlineShapes.AddPicture FileName:="C:\Lavori_Vb6\HOTEL\IMG\RISTORANTE.bmp", LinkToFile:=False, SaveWithDocument:=False

to

Code: Select all

    DOC.InlineShapes.AddPicture FileName:="C:\Lavori_Vb6\HOTEL\IMG\RISTORANTE.bmp", LinkToFile:=False, SaveWithDocument:=False, Range:=DOC.Bookmarks("IMMAGINE").Range

[sal21]

Or change

Code: Select all

   DOC.Bookmarks("IMMAGINE").Select

    DOC.Selection.InlineShapes.AddPicture FileName:="C:\Lavori_Vb6\HOTEL\IMG\RISTORANTE.bmp", LinkToFile:=False, SaveWithDocument:=False

to

Code: Select all

    DOC.InlineShapes.AddPicture FileName:="C:\Lavori_Vb6\HOTEL\IMG\RISTORANTE.bmp", LinkToFile:=False, SaveWithDocument:=False, Range:=DOC.Bookmarks("IMMAGINE").Range

i test this after..

but see the code write TEST! instead in the bookmark NOME_AZIENDA!!!!

the code:
....

Dim APP As Object
Dim DOC As Object
Set APP = CreateObject("WORD.Application")

Set DOC = APP.documents.Open("C:\Lavori_Vb6\HOTEL\Fattura.doc")

With DOC.Bookmarks
.Item("NOME_AZIENDA").Range.Text = "TEST"
'.Item("ADDRESS").Range.Text = ADDRESS
'.Item("POSTCODE").Range.Text = POSTCODE
'.Item("DESCRIPTION").Range.Text = Description
'.Item("COST").Range.Text = COST
'.Item("GROSS").Range.Text = GROSS
'.Item("VAT").Range.Text = VAT
'.Item("DEPOSIT").Range.Text = DEPOSIT
'.Item("NET").Range.Text = NET
End With
.....

peraphs i need to select the bookmark before .Item("NOME_AZIENDA").Range.Text = "TEST"?

[HansV]

Are you sure that you created bookmarks? They look like hyperlinks to me...

[sal21]

Are you sure that you created bookmarks? They look like hyperlinks to me...

infact!

can you create for me (in the attached doc, in first post) two or tree correct bookmark, named TEST1, TEST2, ...
Tks

[HansV]

Here you go.

S1344.png

Fattura.doc

[sal21]

Here you go.


S1344.png


Fattura.doc

Tks bro!

[sal21]

Or change

Code: Select all

   DOC.Bookmarks("IMMAGINE").Select

    DOC.Selection.InlineShapes.AddPicture FileName:="C:\Lavori_Vb6\HOTEL\IMG\RISTORANTE.bmp", LinkToFile:=False, SaveWithDocument:=False

to

HERE error 4120 parametro errato

Code: Select all

    DOC.InlineShapes.AddPicture FileName:="C:\Lavori_Vb6\HOTEL\IMG\RISTORANTE.bmp", LinkToFile:=False, SaveWithDocument:=False, Range:=DOC.Bookmarks("IMMAGINE").Range

[sal21]

Or change

Code: Select all

   DOC.Bookmarks("IMMAGINE").Select

    DOC.Selection.InlineShapes.AddPicture FileName:="C:\Lavori_Vb6\HOTEL\IMG\RISTORANTE.bmp", LinkToFile:=False, SaveWithDocument:=False

to

HERE error 4120 parametro errato

Code: Select all

    DOC.InlineShapes.AddPicture FileName:="C:\Lavori_Vb6\HOTEL\IMG\RISTORANTE.bmp", LinkToFile:=False, SaveWithDocument:=False, Range:=DOC.Bookmarks("IMMAGINE").Range

In this case peraphas...
Other way are welcome to insert a Little image.

[HansV]

I should have seen that. If LinkToFile is False, SaveWithDocument should be True:

Code: Select all

    DOC.InlineShapes.AddPicture FileName:="C:\Lavori_Vb6\HOTEL\IMG\RISTORANTE.bmp", LinkToFile:=False, SaveWithDocument:=True, Range:=DOC.Bookmarks("IMMAGINE").Range

[sal21]

I should have seen that. If LinkToFile is False, SaveWithDocument should be True:

Code: Select all

    DOC.InlineShapes.AddPicture FileName:="C:\Lavori_Vb6\HOTEL\IMG\RISTORANTE.bmp", LinkToFile:=False, SaveWithDocument:=True, Range:=DOC.Bookmarks("IMMAGINE").Range

super!
Work now!
Tks bro.

[sal21]

I should have seen that. If LinkToFile is False, SaveWithDocument should be True:

Code: Select all

    DOC.InlineShapes.AddPicture FileName:="C:\Lavori_Vb6\HOTEL\IMG\RISTORANTE.bmp", LinkToFile:=False, SaveWithDocument:=True, Range:=DOC.Bookmarks("IMMAGINE").Range

OK.ALL TESTED.

Now, how to save as pdf file the doc filled with new value, and close the doc without save it.

Note:
save as the pdf in c:\mydir\ with a name based the string var named VALORE

[HansV]

Use

Code: Select all

    DOC.ExportAsFixedFormat OutputFileName:="c:\mydir\" & VALORE & ".pdf", ExportFormat:=17
    DOC.Close SaveChanges:=False