Extracting and Modifying Field Code

[Jayawanth]

In an INCLUDEPICTURE field, I use embedded field for storing relative path
for my image files -
INCLUDEPICTURE \d "{FILENAME \p}\\..\\Images\\Chap 2\\Circulatory
System.jpg" \* MERGEFORMATINET

When we retrieve the Field.Code.Text in VBA, sometimes I am getting the
evaluated absolute path (i.e. c:\\...) and sometimes the relative path
({FILENAME...).

Q: How do we access the actual field code stored? Where ever there is an
absolute path I want to change it to relative path.
- Jayawanth

 

[Graham Mayor]

Frankly I don't see how that field construction would produce a valid path
under any circumstances. The filename and path of the current document added
to the start of the path of the image is destined not to work. It would
produce something like
"c:\\path\\documentname.doc \\.. \\Images\\Chap 2\\Circulatory System.jpg"
which doesn't work for me

What is it that you actually want in your document.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Peter Jamieson]

The approach does work as long as you ensure you are not inserting extra
spaces in your constructed path name

Try e.g. the thread at

http://groups.google.co.uk/group/mi...eson+includepicture+filename#87bc0deab0ca79c7

("More stupid INCLUDEPICTURE questions" thread in the mailmerge.fields
group, 01 Feb 2007)

or jump straight to macropod's summary of the approach at

http://www.wopr.com/index.php?showtopic=670027

Peter Jamieson

http://tips.pjmsn.me.uk

 

[Peter Jamieson]

Perhaps something based on...

Sub getfieldtext()
Dim r As Word.Range
Dim nestedf As Word.Field
Set r = ActiveDocument.Fields(1).Code
If r.Fields.Count > 0 Then
For Each nestedf In r.Fields
nestedf.ShowCodes = False
Next
End If
Debug.Print r.Text
Set f = Nothing

End Sub


(Doesn't deal with multiple levels of nesting)

Peter Jamieson

http://tips.pjmsn.me.uk

 

[Jayawanth]

Peter,
Thanks for the hint about extra spaces. It worked.
My Normal paragraph style is justified and this was introducing extra spaces
randomly in the Field code. Once I changed this to Left Aligned the extra
spaces disappeared.

Mayor,
The issue I am dealing with is Linked Picture Files in word 2007. Since the
Link UI has major UI blocks you had suggested INCLUDEPICTURE Fields - VBA
code was supplied by you. I was trying to extend the code to use Relative
Paths for File portability.
Also whenever the INCLUDEPICTURE Field is moved it converts back to Linked
Picture. So I have written more macros to locate any links, Absolute Paths
and convert these to Fields and Relative paths.

Thanks both for all the help.
- Jayawanth

 

[Graham Mayor]

I might have known macropod would have been behind something like that
Thanks for the link.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Peter Jamieson]

FWIW the original idea was mine (although doubtless others have had the
same notion at one time or another), but macropod's "extend and
summarise" is as always an easier read than the original thread.

Peter Jamieson

http://tips.pjmsn.me.uk

 

[Graham Mayor]

What can I say - foot in mouth come to mind (

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Peter Jamieson]

No problem Graham!

Peter Jamieson

http://tips.pjmsn.me.uk