מחיקת כל היפר קישורים בוורד

[שלמה]

איך אני בוחר את כולם או מחליף במשהוא אחר.

 

[צורת הדף]

למחוק כל היפר קישורים:

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

מקווה שלזה התכוונת.

 

[yaniv_55]

תודה רבה בדיוק הרגע הייתי צריכה!
פשוט משמיים!

 

[מתכנן]

איך אני משתמש בפונקציה זו עבור החלפת ההיפר לינק לטקסט רגיל?

אני רוצה להשתמש ברשימה של היפר לינקים לטקסט, איך אני ממיר אותם?