הורדת קישורים

[ברכות]

יש לי מסמך וורד גדול המכיל בתוכו קישורים, ואני מעונין לבטל אותם בלי למחוק את הטקסט שעליו הקישור, כיצד ניתן לעשות זאת?

תודה מראש

 

[s_h]

הכי פשוט להעתיק את הטקסט לכתבן וממנו להעתיק חזרה לוורד.

 

[ברכות]

ואם יש עיצובים בטקסט שאני רוצה לשמור עליהם?

 

[צורת הדף]

תנסה את זה:

Sub delete_Hyperlinks()
For i = 1 To ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(1).Delete
Next
End Sub

 

[ברכות]

מצוין!
רוב תודות

 

[למען דעת]

תנסה את זה:

Sub delete_Hyperlinks()
For i = 1 To ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(1).Delete
Next
End Sub

מה עושים עם זה?