Re: Inserting Logo in Header

Charles,

Thanks for your answer. However, I think you have misinterpreted something
from my post. I *AM* using a template. I have three templates, SK Fax, SK
Letter and SK Memo. Each contains the code mentioned to insert a letterhead
logo, which has been saved as AutoText into the header. The only one that
works is SK Fax and I believe that one works because Different First Page
is not checked. The other two templates have Different First Page checked
and the code is not working to insert the logo. It freezes on the portion
that is inserting the logo.

I just found something and modified the code as follows:

If chkLetterhead.Value = True And cmbOffices.Value = "NYLetterhead" Then
ActiveWindow.ActivePane.View.SeekView = wdSeekFirstPageHeader
If ActiveDocument.Bookmarks.Exists("Logo") Then
Set mBmRange = ActiveDocument.Bookmarks("Logo").Range
mBmRange = "NYLetterhead"
mBmRange.InsertAutoText
ActiveDocument.Bookmarks.Add Name:="Logo", Range:=mBmRange
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End If
End If
If chkLetterhead.Value = True And cmbOffices.Value = "DCLetterhead" Then
ActiveWindow.ActivePane.View.SeekView = wdSeekFirstPageHeader
If ActiveDocument.Bookmarks.Exists("Logo") Then
Set mBmRange = ActiveDocument.Bookmarks("Logo").Range
mBmRange = "DCLetterhead"
mBmRange.InsertAutoText
ActiveDocument.Bookmarks.Add Name:="Logo", Range:=mBmRange
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End If
End If

This inserts the logo without freezing, however, the logo bookmark no longer
includes the logo. I need it to be included in the logo bookmark so that
the user can later change from the NY to the DC letterhead.

In the meantime, I will look at some of the articles you pointed out for any
pointers.

Thanks,

Anne P.

"Charles Kenyon" <msnewsgroup@xxxxxxxxxxxxxxxxxxxxxxxxxxxxx> wrote in
message news:Ojm%23RlGjFHA.3436@xxxxxxxxxxxxxxxxxxxxxxx
> There is no way for your client to email a Word document that someone else
> can read and prevent them from saving something that looks like the
> original without the header. Period. If, instead, it is converted to a
> non-editable pdf file it can be a bit more difficult.
>
> Why not use a template for your letterhead rather than a macro? You are
> using a drill press when you need a screw driver. It is over-powered and
> not quite the right tool, unless you have other reasons for using a macro
> that are not apparent.
>
> Take a look at: How to set up letterhead or some other document where you
> want one header on the first page and a different header on other pages.
> http://www.addbalance.com/word/headersfooters.htm This gives step-by-step
> instructions. You can then lock the headers as shown in the article you've
> read, keeping in mind my first statement.
> Some other pages to look at:
>
> Letterhead Tips and Instructions
> http://home.earthlink.net/~wordfaqs/Letterhead.htm
>
> Letterhead Textboxes and Styles tutorial
> http://addbalance.com/word/download.htm#LetterheadTextboxesAndStylesTutorial
>
> Template Basics
> http://www.addbalance.com/usersguide/templates.htm
>
> How to Create a Template - Part 2 - essential reading
> http://www.mvps.org/word/FAQs/Customization/CreateATemplatePart2.htm
>
> Word "Forms"
> http://www.addbalance.com/word/wordwebresources.htm#Forms and
>
> Word for Word Perfect Users
> http://www.addbalance.com/word/wordperfect.htm if you are coming from a WP
> environment (or even if you are not).
>
> If you are interested in creating templates that will work with the letter
> wizard or use that wizard, you should look at the chapter on Advanced
> Document Formatting in Using Office 2003 (or whatever your version is),
> Special Edition, by Ed Bott and Woody Leonhard. It has detailed
> instructions including instructions on getting the fields you want from
> your Outlook Contacts for addressing a letter. (Chapter 19 of SE Using
> Office 2003) You should be able to get this through your public library or
> at Amazon.com
> http://www.amazon.com/exec/obidos/ISBN=0789729555/balancecheckbookA/
>
> Hope this helps,
> --
>
> Charles Kenyon
>
> Word New User FAQ & Web Directory: http://addbalance.com/word
>
> Intermediate User's Guide to Microsoft Word (supplemented version of
> Microsoft's Legal Users' Guide) http://addbalance.com/usersguide
>
> See also the MVP FAQ: http://www.mvps.org/word which is awesome!
> --------- --------- --------- --------- --------- ---------
> This message is posted to a newsgroup. Please post replies
> and questions to the newsgroup so that others can learn
> from my ignorance and your wisdom.
>
>
> "Anne P." <apontillo@xxxxxxxxxxxxxxx> wrote in message
> news:en4kwOGjFHA.576@xxxxxxxxxxxxxxxxxxxxxxx
>> Hi all,
>>
>> I am using the following code to insert a letterhead logo into a
>> document:
>>
>> If chkLetterhead.Value = True And cmbOffices.Value = "NYLetterhead" Then
>> If ActiveDocument.Bookmarks.Exists("Logo") Then
>> Set mBmRange = ActiveDocument.Bookmarks("Logo").Range
>> mBmRange = "NYLetterhead"
>> mBmRange.InsertAutoText
>> ActiveDocument.Bookmarks.Add Name:="Logo", Range:=mBmRange
>> End If
>> End If
>> If chkLetterhead.Value = True And cmbOffices.Value = "DCLetterhead" Then
>> If ActiveDocument.Bookmarks.Exists("Logo") Then
>> Set mBmRange = ActiveDocument.Bookmarks("Logo").Range
>> mBmRange = "DCLetterhead"
>> mBmRange.InsertAutoText
>> ActiveDocument.Bookmarks.Add Name:="Logo", Range:=mBmRange
>> End If
>> End If
>>
>> If the bookmark named "Logo" is on the first page of the document this
>> works just fine. However, if the bookmark is in the header, it freezes.
>> I am using this same code in a different template to insert a logo and it
>> works just fine. The only real difference between these two documents is
>> that the one that works is a Fax cover *** which *DOES NOT* have
>> Different First Page turned on. The other two templates that use it are
>> a Memo and Letter which both *DO* have Different First Page turned on.
>>
>> Also, I have another question regarding headers and footers. I read the
>> following article on the Word MVPS page about preventing users from
>> editing headers/footers in a document:
>> http://word.mvps.org/faqs/customization/ProtectWord2000PlusHeader.htm.
>> First, will the code from this article work in Word 2003? And if it
>> will, can I change the line that reads:
>>
>> Case wdEvenPagesFooterStory, wdEvenPagesHeaderStory, _
>> wdFirstPageFooterStory, wdFirstPageHeaderStory, _
>> wdPrimaryFooterStory, wdPrimaryHeaderStory
>> ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
>>
>> so that only the First Page Header cannot be changed, or does it have to
>> protect all headers and footers? The client wants to lock the header so
>> that when the document is e-mailed no one can delete the firm logo from
>> the header.
>>
>> Thanks,
>>
>> Anne P.
>>
>
>


.