Nested IncludePicture troubles in header table

B

Birgit

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
 
C

Cindy M -WordMVP-

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
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.
Click to expand...

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 :)
 
B

Birgit

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
 
C

Cindy M -WordMVP-

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.
Click to expand...
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 :)
 
B

Birgit

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
 
B

Birgit

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:
 
B

Birgit

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
 
Top