Solved

Redirect dead links in Word documents

Posted on 2008-06-10
15
329 Views
Last Modified: 2013-12-23
I've approx 50.000 WORD (2000) documents, inside every document is hiding a dead network link (server that not exist anymore) like this \\server\folder\folder... , so if i want to eliminate links i need too open every word document and remove link manually,
 is that any other way i can avoid to examine 50.000 documents and do it automatically,
i try in local DNS to follow that link (dead server) to redirect on another server, but it didn't help..
please help...  
0
Comment
Question by:NSMone
  • 8
  • 5
  • 2
15 Comments
 
LVL 3

Expert Comment

by:SkiptonBS
ID: 21749404
What did you do in DNS?

You should be able to trick Word if you configure DNS correctly.
0
 

Author Comment

by:NSMone
ID: 21749706
in Word doks that is define a networks connection \\someserver\xx\xx
in DNS i define that server word dok was looking for...
0
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 21749958
If the DNS route doesn't work out, you can run a Word macro to remove the links. The macro in the snippet will run through a folder and any subfolders unlinking the link fields with a particular path in the contained documents. The path is hard-coded, so you will have to make sure that it point to the right placce.

Call the macro so:

FindDocs "C:MyTopFolder", "*.doc"
Sub FindDocs(strFolder As String, strFilePattern As String)

    Dim strFileName As String

    Dim strFolders() As String

    Dim iFolderCount As Integer

    Dim i As Integer

    Dim Doc As Document

    'collect child folders

    strFileName = Dir$(strFolder & "\", vbDirectory)

    Do Until strFileName = ""

        If (GetAttr(strFolder & "\" & strFileName) And vbDirectory) = vbDirectory Then

            If Left$(strFileName, 1) <> "." Then

                ReDim Preserve strFolders(iFolderCount)

                strFolders(iFolderCount) = strFolder & "\" & strFileName

                iFolderCount = iFolderCount + 1

            End If

        End If

        strFileName = Dir$()

    Loop

   

    'process files in current folder

    strFileName = Dir$(strFolder & "\" & strFilePattern)

    Do Until strFileName = ""

        DoEvents

        Set Doc = Documents.Open(strFolder & "\" & strFileName)

        Unlinks Doc 'call the unlink procedure

        If Doc.Saved Then

            Doc.Close wdDoNotSaveChanges

        Else

            Doc.Close wdSaveChanges

        End If

        strFileName = Dir$()

    Loop

   

    'look through child folders

    For i = 0 To iFolderCount - 1

        FindDocs strFolders(i), strFilePattern

    Next i

End Sub
 

Sub Unlinks(Doc As Word.Document)

    Dim fld As Field

    For Each fld In Doc.Fields

        If fld.Type = wdFieldLink Then

            If fld.LinkFormat.SourcePath = "\\server\folder\folder" Then

                fld.Unlink

            End If

        End If

    Next fld

End Sub

Open in new window

0
 
LVL 3

Expert Comment

by:SkiptonBS
ID: 21749980
What happens if you ping the server you from a workstation using the name you have put in DNS? Do you get a reply?
0
 

Author Comment

by:NSMone
ID: 21750296
in word document link refer to a old server so i change server in DNS ...
0
 
LVL 3

Expert Comment

by:SkiptonBS
ID: 21750608
Yes i know what you've done.

Can you click Start>Run and type NSLOOKUP

Then at the prompt type in the name of the server that you are refering to in Word and press enter...what happens?
0
 

Author Comment

by:NSMone
ID: 21750662
in NSLOOKUP looks all well, it refer to the new server..
the old server was 192.xx.xx.x7
the new server is 192.xx.xx.x9
so it refer to a new server ... that think should be OK
0
Zoho SalesIQ

Hassle-free live chat software re-imagined for business growth. 2 users, always free.

 

Author Comment

by:NSMone
ID: 21750677
how do i EXEC that VB file , and where should i place it ?
0
 

Author Comment

by:NSMone
ID: 21750700
can i use Wildcard
in that VB script ?

....
 If fld.LinkFormat.SourcePath = "\\server\*" Then
.....
0
 
LVL 3

Expert Comment

by:SkiptonBS
ID: 21750811
Put the VBS script in the top level directory where your word documents are located.

If you put the script on C:\ Drive then all the subfolders on C:\ will be searched.
0
 
LVL 3

Expert Comment

by:SkiptonBS
ID: 21750822
No you cannot use a wildcard.

But you could put:

If fld.LinkFormat.SourcePath = "\\server\" Then ... (Without the *)
0
 

Author Comment

by:NSMone
ID: 21750860
Document are on server,
but word documents are accessible thru the network and opening on clients computers...

not all document have the same path, but all of them have same start path \\server\
could be possible to put wildcard like this " \\server\* "
0
 

Author Comment

by:NSMone
ID: 21750990
VB script should i put that on server or client side ?
0
 
LVL 76

Expert Comment

by:GrahamSkan
ID: 21751558
The code is actually written as a Word macro, not as VBScript.

You can adapt it to look for the start of the string.

'...

            If InStr(1, fld.LinkFormat.SourcePath, "\\server", vbTextCompare) = 1 Then
                fld.Unlink
            End If
'...
0
 

Accepted Solution

by:
NSMone earned 0 total points
ID: 21778295
the script is working on one computer but not on another, what is this that is wrong,
i've open serveral aplications access to the network in windows FW, but still dosn't work.

what about if i wanna remove all network access from the dokument, how the code be look like ?
or if there any others servers, more then one...
0

Featured Post

Windows Server 2016: All you need to know

Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The Need In an Active Directory enviroment, the PDC emulator provide time synchronization for the domain. This is important since Active Directory uses Kerberos for authentication.  By default, if the time difference between systems is off by more …
This article describes how to use the Send to Mail Recipient command. The instructions apply generally to Office 2007 and later versions, but Microsoft® Word 2013 was used for the specific steps and figures.  What is Send to Mail Recipient? Send…
In this video, we show how to convert an image-only PDF file into a PDF Searchable Image file, that is, a file with both the image (typically from scanning) and text, which is created in an automated fashion with Optical Character Recognition (OCR) …
This video walks the viewer through the process of creating envelopes and labels, with multiple names and addresses. Navigate to the “Start Mail Merge” button in the Mailings tab: Follow the step-by-step process until asked to find the address doc…

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now