Hi All,




New to VBA and these forums. While I don't have any formal VBA training, I was able to put together the following Macro using code copied from google searches. This macro works, run from VBA opened from Word 2016, and currently unlinks all links in the current Word document, and then searches and does the same for all other Word documents in the folder the current document resides in.


If possible I would like to extend it's reach to the relative subfolders as well. Additionally, I'd like to stick with docPath = ActiveDocument.Path & "\" or something similar, so that I wouldn't have to modify the macro every time I need it to run for a different folder.


See the macro below:

Sub RemoveLinks()
Dim fleArray() As String
Dim flCount As Long
Dim k As Long
Dim fle As String
Dim fld As Field
Dim currentFileName As String
Dim docPath As String
Dim bDirty As Boolean
Dim sRange As Range
Dim doc As Document

docPath = ActiveDocument.Path & "\"
currentFileName = ActiveDocument.Name
fle = Dir(docPath & "*.doc*")
flCount = -1
ReDim fleArray(0)
Do While fle <> ""
flCount = flCount + 1
ReDim Preserve fleArray(flCount)
fleArray(flCount) = fle
fle = Dir()
Loop
If MsgBox("There are " & flCount + 1 & " files to be processed." _
& vbCrLf & "Do you want to continue?", vbYesNo, "Break links") _
= vbNo Then Exit Sub


For k = 0 To UBound(fleArray)
fle = fleArray(k)
Options.UpdateLinksAtOpen = False
Documents.Open FileName:=docPath & fle
Options.UpdateLinksAtOpen = True
bDirty = False
For Each sRange In ActiveDocument.StoryRanges
For Each fld In sRange.Fields
If fld.Type = wdFieldLink Then
' Uncomment the following if link needs to be updated
' before the link is broken
' fld.Update
fld.Unlink
bDirty = True
End If
Next fld
Next sRange
If bDirty Then ActiveDocument.Save ' Only save if links broken
If ActiveDocument.Name <> currentFileName Then ActiveDocument.Close
Next k
End Sub

Any help would be greatly appreciated.

Thanks,
-Robert

Can I suggest that you modify your macro to work as a Custom process in conjunction with http://www.gmayor.com/document_batch_processes.htm which will handle the folders and sub folders. The required format for the macro is shown on the web page.

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

Hi gmayor, thanks for the suggestion. While your add-in looks impressive and could possibly complete the desired task, unfortunately I am getting the following error "Cannot open file 'Word_Batch_Processes.zip'. It does not appear to be a valid archive. If you downloaded this file, try downloading the file again." Additionally even if I were able to open it, there's a good chance I wouldn't have the administrative privileges to install the add-in.

I appreciate your input but if possible I'm still looking for a macro based solution to my original post.

Thanks,
-Robert

I have checked and the archive is valid. Your company admin I can do less about.

See the demo code at https://stackoverflow.com/questions/...root-directory

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com