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