Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Word / Programming / November 2004

Tip: Looking for answers? Try searching our database.

Inserting a graphic into a text line at a bookmark

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Tom Ross - 29 Nov 2004 20:11 GMT
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 - 30 Nov 2004 05:46 GMT
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"

Signature

Please reply to NG only. This email is not monitored.
Alex.

> Inserting a graphic into a text line at a bookmark
>
[quoted text clipped - 25 lines]
>
> Unfurtunely I can't figure out how do do either.  Anybody have any hints.
Tom Ross - 30 Nov 2004 17:14 GMT
Thanks Alex

> Set r= .item("msds").Range
> 'Use Chr(168) for empty box, so they will look similar
[quoted text clipped - 30 lines]
> >
> > Unfurtunely I can't figure out how do do either.  Anybody have any hints.
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.