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 / Page Layout / March 2005

Tip: Looking for answers? Try searching our database.

Nested IncludePicture troubles in header table

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Birgit - 03 Feb 2005 15:56 GMT
Hi all!
I have a template where many different logos (.jpgs) are being inserted into
the header of the document. I have the following nested fields in a table in
the header:

{If {DocProperty "Logo1"} = " " "" {IncludePicture {DocProperty "Logo1"}}}

Clear text: if the document property of Logo1 contains only a space do
nothing, otherwise insert the picture with path and name as found in
document property Logo1.

document property Logo1 may contain text as C:\\huisstijl\\testlogo.jpg

On my test PC I run Win XP with Office 2003 SP1. In Office 97 all of this
has worked very well.

It works fine in the body of the template. It does nothing in the header
(also does not work if I remove the table). There are no troubles if I
directly insert the text that is contained in the document property like
this: {If {DocProperty "Logo1"} = " " "" {IncludePicture
C:\\huisstijl\\testlogo.jpg}}. To me this is strange behaviour.

I swap displaying the logo (e-mail) with not displaying the logo (print on
logo paper). So it has always seemed sensible to use this construction with
document properties.

Has something changed fundamentally from Office 97? Does anyone have a
better idea than muking around with bookmarks en recreating the
includePicture field with VBA each time a user decides to display/not
display the bookmark?

Any help and hints are appreciated.
Birgit
Cindy M  -WordMVP- - 08 Feb 2005 10:56 GMT
Hi Birgit,

They changed how the nested fields interpet paths coming in from another field.
Remove the second backspace, so that the elements of the path in the document
property are separated by only a single backslash.

> I have a template where many different logos (.jpgs) are being inserted into
> the header of the document. I have the following nested fields in a table in
[quoted text clipped - 10 lines]
> On my test PC I run Win XP with Office 2003 SP1. In Office 97 all of this
> has worked very well.

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail :-)
Birgit - 08 Feb 2005 17:31 GMT
Thanks Cindy,
In which version of Office does this change? And how can I check the user's
version of Office? The code needs to run on all versions unfortunately.

Birgit

"Cindy M -WordMVP-" <C.Meister-C@hispeed.ch> schreef in bericht
news:VA.0000a783.004ec8b3@speedy...
> Hi Birgit,
>
[quoted text clipped - 30 lines]
> reply
> in the newsgroup and not by e-mail :-)
Cindy M  -WordMVP- - 09 Feb 2005 11:04 GMT
Hi Birgit,

> In which version of Office does this change? And how can I check the user's
> version of Office? The code needs to run on all versions unfortunately.

I think it was in 2000. You can check which version using Application.Version

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)
Birgit - 15 Feb 2005 11:15 GMT
Hi Cindy,
thank you very much for your help. I will try this.

Birgit

"Cindy M -WordMVP-" <C.Meister-C@hispeed.ch> schreef in bericht
news:VA.0000a797.00652947@speedy...
> Hi Birgit,
>
[quoted text clipped - 12 lines]
> This reply is posted in the Newsgroup; please post any follow question or
> reply in the newsgroup and not by e-mail :-)
Birgit - 21 Feb 2005 10:46 GMT
Hi all, hi Cindy,
I find I have to use the following code just once after the document has
been assigned its proper logo (I'm glad I don't have to swap logo's once
they are set):

Dim afield As Field
For Each afield In
ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Fields
   On Error Resume Next
   If afield.LinkFormat.AutoUpdate = False Then afield.LinkFormat.Update
Next afield

This way the docproperty inside the includepicture seems to be converted to
the text of the documentproperty. The application.version suggestion works
as a treat with this.

I'll implement this for all headers and I think I'll be set.

Thanks again,
Birgit
"Cindy M -WordMVP-" <C.Meister-C@hispeed.ch> schreef in bericht
news:VA.0000a797.00652947@speedy...
> Hi Birgit,
>
[quoted text clipped - 12 lines]
> This reply is posted in the Newsgroup; please post any follow question or
> reply in the newsgroup and not by e-mail :-)
Birgit - 21 Feb 2005 13:29 GMT
Hi all,
I now run into problems on updating my second page header which is
unfortunately not completely the same as the firstpage header because it
contains a pagenumber.

If there is not yet a second page when the code is run then the following
code will not give a proper result: No logo if user creates a second page :(
Any suggestions except to temporarily create a second page?

Birgit
code below:

   For i = 1 To myDoc.Sections.Count
       ' update header (mydoc is generally the active document)
       myDoc.Sections(i).Headers(wdHeaderFooterFirstPage).Range.Fields.Update
       'update non-updatables
       For Each afield In
myDoc.Sections(i).Headers(wdHeaderFooterFirstPage).Range.Fields
           On Error Resume Next
           If afield.LinkFormat.AutoUpdate = False Then
afield.LinkFormat.Update
       Next afield
       'update header
       myDoc.Sections(i).Headers(wdHeaderFooterPrimary).Range.Fields.Update
       'update non-updatables
       For Each afield In
myDoc.Sections(i).Headers(wdHeaderFooterPrimary).Range.Fields
           On Error Resume Next
           If afield.LinkFormat.AutoUpdate = False Then
afield.LinkFormat.Update
       Next afield
   Next i

I wrote earlier today:
> Hi all, hi Cindy,
> I find I have to use the following code just once after the document has
[quoted text clipped - 34 lines]
>> This reply is posted in the Newsgroup; please post any follow question or
>> reply in the newsgroup and not by e-mail :-)
Birgit - 01 Mar 2005 08:20 GMT
Hi all,
I found a solution to this problem myself: I use a Ref-field which refers to
the includepicture-field on the first page. This works even if the bookmark
is in the body of the document (which I do not run the updatefunction of
non-updatable fields on)

Birgit

> Hi all,
> I now run into problems on updating my second page header which is
[quoted text clipped - 72 lines]
>>> or
>>> reply in the newsgroup and not by e-mail :-)

Rate this thread:






 
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.