Update links to point to a new server

  • Thread starter Thread starter richard_jonas_news
  • Start date Start date
R

richard_jonas_news

We have a network shared drive that contains lots of PowerPoint files.
Some of these include hard-coded links to other documents on that
shared drive.

This has recently been moved to a new server, and as the new server has
a different name, these links are now broken. Is there any way we can
automatically search and replace all the links in all of the files and
replace the old server name with the new one?

Thanks

Richard Jonas
 
We have a network shared drive that contains lots of PowerPoint files.
Some of these include hard-coded links to other documents on that
shared drive.

This has recently been moved to a new server, and as the new server has
a different name, these links are now broken. Is there any way we can
automatically search and replace all the links in all of the files and
replace the old server name with the new one?
Click to expand...

Start here:

Search and Replace for Hyperlinks
http://www.pptfaq.com/FAQ00773.htm

Also, use the Previous and Next links on that page to view the pages to either
side of this one.

That should get you started, I think.

Between that and the code here ...

Batch: Do something to every file in a folder
http://www.pptfaq.com/FAQ00536.htm

You might be able to automate most or all of this.
 
Steve said:
Start here:

Search and Replace for Hyperlinks
http://www.pptfaq.com/FAQ00773.htm

Also, use the Previous and Next links on that page to view the pages to either
side of this one.

That should get you started, I think.

Between that and the code here ...

Batch: Do something to every file in a folder
http://www.pptfaq.com/FAQ00536.htm

You might be able to automate most or all of this.

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Click to expand...

Thanks Steve

This seemed to work perfectly.

There were a few links to embedded spreadsheets in the presentations as
well, but I've added the following lines of code, which seems to work
to update these links.

For Each oShape In oSl.Shapes
If oShape.Type = msoLinkedOLEObject Then
reptext = Replace(oShape.LinkFormat.SourceFullName, "oldserver",
"newserver")
oShape.LinkFormat.SourceFullName = reptext
End If
Next

Regards
Richard
 
Thanks Steve

This seemed to work perfectly.

There were a few links to embedded spreadsheets in the presentations as
well, but I've added the following lines of code, which seems to work
to update these links.

For Each oShape In oSl.Shapes
If oShape.Type = msoLinkedOLEObject Then
reptext = Replace(oShape.LinkFormat.SourceFullName, "oldserver",
"newserver")
oShape.LinkFormat.SourceFullName = reptext
End If
Next
Click to expand...


Bingo ... good one. I've modified that a wee bit and added it to the code on the
FAQ. Thanks for posting back with it.
 
Back
Top