ادیت هایپرلینک به تعداد خیلی زیاد

سلام جناب محمودنژاد عزیز
عموما اگر فایل اکسل و پی دی اف ها در یک فولدر باشند این مشکل رخ نمی هد. اما اگر مشکل پابرجاست می توانید از ماکروی زیر برای تغییر یکباره آدرس ها در سیستم جدید استفاده کنید:
Sub UpdateHyperlinks()

Dim ws As Worksheet
Dim hl As Hyperlink

Dim OldPath As String
Dim NewPath As String

OldPath = “D:\Letters\”
NewPath = “E:\Archive\Letters\”

For Each ws In ThisWorkbook.Worksheets

For Each hl In ws.Hyperlinks

If InStr(1, hl.Address, OldPath, vbTextCompare) > 0 Then
hl.Address = Replace(hl.Address, OldPath, NewPath)
End If

Next hl

Next ws

MsgBox “تمام لینک‌ها بروزرسانی شدند.”

End Sub

در قسمت OldPath آدرس قبلی فایل های پی دی اف را قرار بدین و در NewPath آدرس جدید در سیستم جدید. فراموش نکنید آدرس ها بهتر است در یک مسیر به زبان اصلی باشند (فارسی نداشته باشند).
اگر رفع نشد در گروه اکسل ما پیام ارسال کنید و یک تصویر از نحوه لینک دهی ارسال کنید تا بهتر بتوانیم شمارو راهنمایی کنیم
https://t.me/+W0qBw4L5Q1JjMzJk