Word sənədinizdən bütün hiperlinkləri toplu çıxarmağın 2 sürətli yolu

Bu məqalə sizə bağlantıları izləmək üçün Word sənədinizdən bütün hiperlinkləri toplu çıxarmağın 2 sürətli yolunu göstərəcək.

Tez-tez bir Word sənədinin hər tərəfinə səpələnən yüzlərlə hiperlink ola bilər. Bu ssenaridə, müəyyən bir əlaqəni izləmək lazımdırsa, əvvəlcə onu tapmaq üçün sənəddə gəzməlisiniz, bu da uzun bir faylda belə bir ağrı ola bilər.

Ancaq onları yeni bir sənədə ixrac etsəniz, işlər çox asanlaşa bilər. Budur bizim həll yollarımız.

Metod 1: "Tap" funksiyasından istifadə edin

1. Əvvəlcə "Ev" sekmesini, sonra "Tap" əmrinin yanındakı ox düyməsini basın.
2. Açılan menyuda "Advanced Find" seçin və "Tap və dəyişdirin" informasiya qutusunu açın.
3. Sonra "Daha çox" düyməsini basın və "Format" düyməsini basın.
4. "Stil tap" qutusunu açmaq üçün "Stil" seçin.
5. "Hiperlink" seçin və "OK" düyməsini basın.
6. Sonra "Tap" düyməsini basın və "Əsas sənəd" seçin.

Siz indi seçimdə bütün hiperlinkləri görə bilərsiniz. Bununla belə, onları yeni sənədə köçürüb yapışdırsanız, bağlantıların formatını itirdiyini və düz mətnə ​​çevrildiyini görəcəksiniz.

Hazırda Microsoft-un bu problemin həlli yolu yoxdur. Beləliklə, siz düz mətnləri yenidən əl ilə yenidən hiperlinklərə çevirməlisiniz. Budur, izləyə biləcəyiniz müxtəlif yolları sadalayan əvvəlki məqaləmiz: URL mətnlərini Word sənədinizdə hiperlinklərə çevirməyin 5 yolu

Bu çatışmazlığa görə sizə “Tap” funksiyasının köməyi ilə həyata keçirilən başqa bir yolu tövsiyə edirik. Zəhmət olmasa, bu məqalənin “Sənəddə bütün hiperlinkləri tapın” bölməsinə baxın: Word sənədinizdə hiperlinkləri necə tapmaq, dəyişdirmək və silmək olar

Bütün hiperlinkləri tapdıqdan sonra onları ixrac etmək üçün “Kopyala” və “Yapışdır” işlərini yerinə yetirirsiniz.

Metod 2: VBA kodlarını işə salın

1. Əvvəlcə VBA redaktorunu açmaq üçün "Alt" + "F11" düymələrini basın.
2. Sonra "Daxil et" düyməsini basın və "Normal" layihəsi altında yenisini yaratmaq üçün "Modul" seçin.
3. Sonra redaktə sahəsini açmaq üçün modulun üzərinə iki dəfə klikləyin və aşağıdakı kodları ora yapışdırın:

Sub ExtractAllhyperlinksInDoc()
  Dim objDoc As Document, objNewDoc As Document
  Dim objHyperlink As Hyperlink
 
  '  Initialization
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  '  Copy hyperlinks and paste them to a new document.
  With objDoc
    For Each objHyperlink In .Hyperlinks
      objHyperlink.Range.Copy
      objNewDoc.Activate
      With Selection
        .Paste
        .InsertParagraph
        .Collapse Direction:=wdCollapseEnd
      End With
    Next objHyperlink
  End With
End Sub

4. Nəhayət, "Çalış" düyməsini basın.

İndi yeni bir sənəd açılacaq və bütün hiperlinklər orada klikləilə bilər.

Bundan əlavə, emal edilməli fayl toplusu olduqda, bu makronu işlədə bilərsiniz:

Sub ExtractHyperlinksFromMultiDoc()
  Dim objDoc As Document, objNewDoc As Document
  Dim objHyperlink As Hyperlink
  Dim strFile As String, strFolder As String
 
  '  Initialization
  Set objNewDoc = Documents.Add
  strFolder = InputBox("Enter folder path here: ", "Folder path")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
 
  '  Open each file in the folder to extract hyperlinks and past them to a new document.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
 
    With objDoc
      For Each objHyperlink In .Hyperlinks
        objHyperlink.Range.Copy
        objNewDoc.Activate
        With Selection
          .Paste
          .InsertParagraph
          .Collapse Direction:=wdCollapseEnd
        End With
      Next objHyperlink
    End With
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

Əvvəlcə bütün sənədləri bir qovluqda yerləşdirməyi unutmayın. Sonra bir giriş qutusu əldə etmək üçün yuxarıdakı makronu işə salın. Qovluq yolunu daxil edin və "OK" düyməsini basın.

Bütün hiperlinklər indi yeni sənəddə mövcuddur.

Word xətalarına hazırdır

Word xətası ilə qarşılaşmaqdan nə qədər çəkinsək də. Bunun zaman-zaman əziyyət çəkməsi qaçılmazdır. Təklifimiz Word dağıldıqda, bir mütəxəssis seçməkdir Söz təmiri alət. Hər şeyi peşəkarlara həvalə edin.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xls zərər və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com