Sub Update_link()
'
' Update_link Macro
'
Dim oStory As Range
Dim oField As Field
Dim dlgSelectFile As FileDialog 'Filedialog Object
Dim thisFiled As Field
Dim selectedFile As Variant ' contain filepath of selected item
Dim newfile As Variant
Dim fieldCount As Integer, FldInx As Integer
'
'create FileDialog object as File picker Dialog boz
'
Set dlgSelectFile = Application.FileDialog(FileDialogType:=msoFileDialogFilePicker)
'
With dlgSelectFile
  ' use Show method to dispaly File Picker dialog box and return user's action
  If .Show = -1 Then
    'step throug each string in the FileDialogSelectedItems collection
    For Each selectedFile In .SelectedItems
      newfile = selectedFile 'gets new filepath
    Next selectedFile
  Else 'user clicked cancel
  End If
End With
Set dlgSelectFile = Nothing
'
'update fields
'
For Each oStory In ActiveDocument.StoryRanges
  fieldCount = oStory.Fields.Count
  FldInx = 1
  While FldInx < fieldCount
    On Error Resume Next
    oStory.Fields(FldInx).LinkFormat.SourceFullName = newfile
    On Error GoTo 0
    FldInx = FldInx + 1
  Wend
Next oStory
'
End Sub