shrug-l: Relative Path Names

[Thomas, Jim]

That worked...  Thanks.
=20

-----Original Message-----
From: Mark.Welsh@dot.state.fl.us [mailto:Mark.Welsh@dot.state.fl.us]=20
Sent: Monday, July 18, 2005 9:51 AM
To: shrug-l@lists.dep.state.fl.us; shrug-l-admin@lists.dep.state.fl.us
Cc: Thomas, Jim
Subject: Re: shrug-l: Relative Path Names

Jim,

You need to fire up a blank arcmap document, get to the VBA editor (Alt
F11) and then paste the following code in the "ThisDocument" object
under the "Normal.mxt" (this makes it available to every arcmap
document, all the time).

Here is the code:

Dim myDoc As IMxDocument
Set myDoc =3D ThisDocument
 myDoc.RelativePaths =3D True

You need to paste this code into the
"Private Function MxDocument_NewDocument() As Boolean" and "Private
Function MxDocument_OpenDocument() As Boolean" functions that are
available to the MXDocument object.

Mark Welsh
GIS Applications Coordinator
Transportation Statistics Office
Florida Department of Transportation
(850) 414-4722
mark.welsh@dot.state.fl.us



=20

             "Thomas, Jim"

             <jthomas@golder.c

             om>
To=20
             Sent by:                  <shrug-l@lists.dep.state.fl.us>

             shrug-l-admin@lis
cc=20
             ts.dep.state.fl.u

             s
Subject=20
                                       shrug-l: Relative Path Names

=20

             07/18/2005 09:34

             AM

=20

=20

=20





All,

Is there a way to change the Map Properties for multiple map documents
at the same time? I have many .mxd's that I need to change from Full
Path Names to Relative Path Names.

Thanks,
Jim Thomas