Thử dùng code này xem sao.
Sub Update_Link()
Dim fieldCount As Integer, x As Long
Dim dlgSelectFile As FileDialog
Dim selectedFile As Variant
Dim W As Document
Application.DisplayAlerts = wdAlertsNone
Set dlgSelectFile = Application.FileDialog(FileDialogType:=msoFileDialogFilePicker)
With...