Inserting a graphic into a text line at a bookmark

[Tom Ross]

Inserting a graphic into a text line at a bookmark

I have a Purchase Order Access form that generates a Word Document with the
desired content. On the PO form there are several checkboxes that indicate
flags to be placed on the purchase order
..
I use the following code in the process.

-----------
With objWord.ActiveDocument.Bookmarks

If bolMTR Then .item("mtr").Range.Text = Chr(129) & " Certified Mill
Test Reports Required (2 copies)"
If bolMSDS Then .item("msds").Range.Text = Chr(129) & " Material
Safety Data Sheets Required (2 copies)"
If bolCOC Then .item("coc").Range.Text = Chr(129) & " Certificate of
Compliance (2 copies)"
-------------

the Chr(129) prints an empty checkbox. I would like it to print a checked
checkbox.

I guess I can do that
by changing the font and printing a wingding character
inserting a small graphic into that line of the word document

Unfurtunely I can't figure out how do do either. Anybody have any hints.

 

[Alex Ivanov]

Set r= .item("msds").Range
'Use Chr(168) for empty box, so they will look similar
r.Text = Chr(254) & " Material Safety Data Sheets Required (2 copies)"
r.characters.first.font.name="wingdings"

 

[Tom Ross]

Thanks Alex

Set r= .item("msds").Range
'Use Chr(168) for empty box, so they will look similar
r.Text = Chr(254) & " Material Safety Data Sheets Required (2 copies)"
r.characters.first.font.name="wingdings"