Public Sub changeSource()
    Dim dlgSelectFile As FileDialog 'FileDialog object '
    Dim thisField As Field
    Dim selectedFile, FileName As Variant
    'must be Variant to contain filepath of selected item
    Dim newFile As Variant
    Dim fieldCount As Integer '
    Dim x As Long
    On Error GoTo LinkError

    'create FileDialog object as File Picker dialog box
    Set dlgSelectFile = Application.FileDialog(msoFileDialogFilePicker)
    With dlgSelectFile
        .InitialFileName = ActiveDocument.Path
        .Filters.Clear 'clear filters
        .Filters.Add "Microsoft Excel Files", "*.xls, *.xlsb, *.xlsm, *.xlsx" 'filter for only Excel files
        'use Show method to display File Picker dialog box and return user's action

        If .Show = -1 Then
            'step through each string in the FileDialogSelectedItems collection
            For Each selectedFile In .SelectedItems
                newFile = selectedFile 'gets new filepath
                FileName = .SelectedItems.Item(1)
            Next selectedFile
        Else 'user clicked cancel
            Exit Sub
        End If
    End With
    
    MsgBox "Selected item's Full Path and Name: " & newFile
    MsgBox "The file name only is: " & FileName

'    Set dlgSelectFile = Nothing
'    'update fields
'    With ActiveDocument
'        fieldCount = .Fields.Count
'        For x = 1 To fieldCount
'            With .Fields(x)
'                'Debug.Print x '
'                Debug.Print .Type
'                If .Type = 56 Then
'                    'only update Excel links. Type 56 is an excel link
'                    .LinkFormat.SourceFullName = newFile '
'                    .Update
'                    .LinkFormat.AutoUpdate = False
'                    DoEvents
'                End If
'            End With
'        Next x
'    End With

    
    MsgBox "Source data has been successfully imported."
Exit Sub

LinkError:
Select Case Err.Number
  Case 5391 'could not find associated Range Name
    MsgBox "Could not find the associated Excel Range Name " & _
      "for one or more links in this document. " & _
      "Please be sure that you have selected a valid " & _
      "Quote Submission input file.", vbCritical
  Case Else
    MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical
End Select
End Sub

{ LINK  Excel.Sheet.8 "C:\\Data\\_Template\\Template Workpapers.xltm" "Receivable Charts![Template Workpapers.xltm]Receivable Charts Chart 4" \p }

Sub ChangeFileLinks()
    Dim f As Object
    Dim i, x, fieldCount As Long
    Dim OldPath, OldFile As String
    Dim NewPath, NewFile As String
    
    Set f = Application.FileDialog(3)

    f.AllowMultiSelect = False

    If f.Show Then
        For i = 1 To f.SelectedItems.Count
            'Get the File Path Only
            MsgBox "The New File Path is: " & f.InitialFileName
            NewPath = f.InitialFileName & "\"
            'Get the FileName only.  Uses Public FileName Function Below
            MsgBox "The FileName Only is: " & Filename(f.SelectedItems(i))
            NewFile = Filename(f.SelectedItems(i))
        Next
    End If
    
    With ActiveDocument
        fieldCount = .Fields.Count
        For x = 1 To fieldCount
            With .Fields(x)
                'Debug.Print .Type
                If .Type = 56 Then
                    'Get The Existing FilePath and File Name from the Link Sources
                    'MsgBox "The Existing FilePath is: " & .LinkFormat.SourcePath
                    OldPath = .LinkFormat.SourcePath
                    'MsgBox "The Existing File Name is: " & .LinkFormat.SourceName
                    OldFile = .LinkFormat.SourceName
                    
                    'Replace the FilePath
                    '.LinkFormat.SourcePath = NewPath
                    
                    'Replace the FileName
                    '.LinkFormat.SourceName = NewFile
                    
                    .Update
                End If
            End With
        Next x
    End With
    
    
End Sub

Public Function Filename(ByVal strPath As String) As String
    If Right$(strPath, 1) <> "\" And Len(strPath) > 0 Then
        Filename = Filename(Left$(strPath, Len(strPath) - 1)) + Right$(strPath, 1)
    End If
End Function

Sub UpdateLinks()
' This routine updates all external links, pointing them all to a single selected file.
' Turn Off Screen Updating temporarily.
Application.ScreenUpdating = False
Dim TrkStatus As Boolean, Pwd As String, pState As Boolean, StrFlNm As String
Dim Rng As Range, Fld As Field, Shp As Shape, iShp As InlineShape
' Select the new source file for the links
With Application.FileDialog(FileDialogType:=msoFileDialogFilePicker)
  .Title = "Select the new source file"
  .InitialFileName = ActiveDocument.Path
  .Filters.Clear 'clear filters
  .Filters.Add "Microsoft Excel Files", "*.xls, *.xlsb, *.xlsm, *.xlsx" 'filter for only Excel files
  .AllowMultiSelect = False
  If .Show = -1 Then
    StrFlNm = .SelectedItems(1)
  Else
    MsgBox "No new source file selected. Exiting", vbExclamation
    Exit Sub
  End If
End With
With ActiveDocument
  ' If used, insert your document's password between the double quotes on the next line
  Pwd = ""
  ' Initialise the protection state
  pState = False
  ' If the document is protected, unprotect it
  If .ProtectionType <> wdNoProtection Then
    ' Update the protection state
    pState = True
    ' Unprotect the document
    .Unprotect Pwd
  End If
  ' Store current Track Changes status, then switch off temporarily.
    TrkStatus = .TrackRevisions
    .TrackRevisions = False
  For Each Rng In .StoryRanges
    ' Go through the shapes in the story range.
    For Each Shp In Rng.ShapeRange
      With Shp
        ' Skip over shapes that don't have links to external files.
        If Not .LinkFormat Is Nothing Then
          ' Replace the link to the external file.
          .LinkFormat.SourceFullName = StrFlNm
        End If
      End With
    Next Shp
    ' Go through the inlineshapes in the story range.
    For Each iShp In Rng.InlineShapes
      With iShp
        ' Skip over inlineshapes that don't have links to external files.
        If Not .LinkFormat Is Nothing Then
          ' Replace the link to the external file.
          .LinkFormat.SourceFullName = StrFlNm
        End If
      End With
    Next iShp
    ' Go through the fields in the story range.
    For Each Fld In Rng.Fields
      With Fld
        ' Skip over fields that don't have links to external files.
        If Not .LinkFormat Is Nothing Then
          ' Replace the link to the external file.
          .LinkFormat.SourceFullName = StrFlNm
        End If
      End With
    Next Fld
  Next Rng
  ' Restore original Track Changes status
  ActiveDocument.TrackRevisions = TrkStatus
  ' If the document was protected, reprotect it, preserving any formfield contents
  If pState = True Then .Protect wdAllowOnlyFormFields, Noreset:=True, Password:=Pwd
  ' Set the saved status of the document to true, so that changes via
  ' this code are ignored. Since the same changes will be made the
  ' next time the document is opened, saving them doesn't matter.
  .Save
End With
' Restore Screen Updating
Application.ScreenUpdating = True
End Sub

Sub ChangeFileLinks()
    Dim f As Object
    Dim i, x, fieldCount As Long
    Dim OldPath, OldFile As String
    Dim NewPath, NewFile As String
    
    Set f = Application.FileDialog(3)

    f.AllowMultiSelect = False

    If f.Show Then
        For i = 1 To f.SelectedItems.Count
            'Get the File Path Only
            NewPath = f.InitialFileName
            NewPath = Replace(NewPath, "\", "\\")
            MsgBox "The New File Path is: " & NewPath
            'Get the FileName only.  Uses Public FileName Function Below
            MsgBox "The FileName Only is: " & Filename(f.SelectedItems(i))
            NewFile = Filename(f.SelectedItems(i))
        Next
    End If
    
    With ActiveDocument
        fieldCount = .Fields.Count
        For x = 1 To fieldCount
            With .Fields(x)
                'Debug.Print .Type
                If .Type = 56 Then
                    'Get The Existing FilePath and File Name from the Link Sources
                    OldPath = .LinkFormat.SourcePath & "\"
                    OldPath = Replace(OldPath, "\", "\\")
                    'MsgBox "The Existing FilePath is: " & OldPath
                    
                    OldFile = .LinkFormat.SourceName
                    'MsgBox "The Existing File Name is: " & .LinkFormat.SourceName
                    
                    'Replace the FilePath
                    ' Replace the link to the external file
                    .Code.Text = Replace(.Code.Text, OldPath, NewPath)
                    '.LinkFormat.SourceFullName = NewPath
                    
                    'Replace the FileName
                    '.LinkFormat.SourceName = NewFile
                    .Code.Text = Replace(.Code.Text, OldFile, NewFile)
                    .Update
                End If
            End With
        Next x
    End With
    
End Sub