Word hujjatingizdan barcha giperhavolalarni to'plashning 2 ta tezkor usuli

Ushbu maqola sizga havolalarga rioya qilish uchun Word hujjatingizdan barcha giperhavolalarni to'plashning 2 ta tezkor usulini ko'rsatib beradi.

Ko'pincha Word hujjati bo'ylab yuzlab giperhavolalar bo'lishi mumkin. Ushbu stsenariyda, agar siz ma'lum bir havolaga amal qilishingiz kerak bo'lsa, avval uni topish uchun hujjat bo'ylab harakat qilishingiz kerak, bu uzoq faylda bunday og'riq bo'lishi mumkin.

Biroq, agar siz ularni yangi hujjatga eksport qilsangiz, ishlar ancha osonlashishi mumkin. Mana bizning yechimlarimiz.

1-usul: "Topish" xususiyatidan foydalaning

1. Birinchidan, "Uy" yorlig'ini, keyin "Topish" buyrug'i yonidagi o'q tugmachasini bosing.
2. "Topish va almashtirish" dialog oynasini ochish uchun ochiladigan menyuda "Kengaytirilgan topish" ni tanlang.
3. Keyin "Ko'proq" tugmasini bosing va "Format" tugmasini bosing.
4. "Uslubni topish" oynasini ochish uchun "Uslub" ni tanlang.
5. "Giperhavola" ni tanlang va "OK" tugmasini bosing.
6. Keyin "Topish" tugmasini bosing va "Asosiy hujjat" ni tanlang.

Tanlangan barcha giperhavolalarni hozir ko'rishingiz mumkin. Biroq, agar siz ularni yangi hujjatga nusxalab qo'ysangiz, havolalar formatlanishini yo'qotib, oddiy matnga aylanadi.

Hozirda Microsoft-da bu muammoni hal qilish imkoniyati yo'q. Shunday qilib, oddiy matnlarni yana giperhavolalarga qo'lda aylantirishingiz kerak. Mana bizning oldingi maqolamiz, siz amal qilishingiz mumkin bo'lgan turli usullarni sanab o'tamiz: Word hujjatidagi URL matnlarini giperhavolalarga aylantirishning 5 ta usuli

Ushbu kamchilik tufayli biz sizga "Topish" funksiyasi yordamida boshqa usulni tavsiya qilamiz. Iltimos, ushbu maqoladagi "Hujjatdagi barcha giperhavolalarni topish" bo'limiga qarang: Word hujjatingizdagi giperhavolalarni qanday topish, o'zgartirish va o'chirish

Barcha giperhavolalarni topgach, ularni eksport qilish uchun "Nusxalash" va "Qo'yish" ishlarini bajarasiz.

2-usul: VBA kodlarini ishga tushiring

1. Avvalo, VBA muharririni ochish uchun "Alt + F11" tugmalarini bosing.
2. Keyin "Qo'shish" tugmasini bosing va "Oddiy" loyihasi ostida yangisini yaratish uchun "Modul" ni tanlang.
3. Keyin tahrirlash joyini ochish uchun modulni ikki marta bosing va u erga quyidagi kodlarni joylashtiring:

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. Nihoyat, "Ishga tushirish" tugmasini bosing.

Endi yangi hujjat ochiladi va u erda barcha giperhavolalarni bosish mumkin.

Bundan tashqari, agar qayta ishlanishi kerak bo'lgan fayllar to'plami bo'lsa, quyidagi makroni ishga tushirishingiz mumkin:

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

Avval barcha hujjatlarni bitta papkaga joylashtirishni unutmang. Keyin kirish oynasini olish uchun yuqoridagi makrosni ishga tushiring. Papka yo'lini kiriting va "OK" tugmasini bosing.

Barcha giperhavolalar endi yangi hujjatda mavjud.

Word xatolar uchun tayyor

Word xatosiga duch kelishni qanchalik istamasak ham. Vaqti-vaqti bilan bundan azob chekish muqarrar. Bizning taklifimiz, Word yiqilib, malakali mutaxassisni tanlashdir So'zni tuzatish asbob. Hamma narsani professionalga topshiring.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc xls zarar va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com