2 სწრაფი გზა თქვენი Word დოკუმენტიდან ყველა ჰიპერბმულის ჯგუფური ამოღების მიზნით

სიტყვის გადაწყვეტილებები სექტემბერი 28, 2025

ეს სტატია აპირებს გაჩვენოთ 2 სწრაფი გზა, რომ სერიული ამოიღოთ ყველა ჰიპერბმული თქვენი Word დოკუმენტიდან, რათა მიჰყვეთ ბმულებს.

ხშირად, შეიძლება იყოს ასობით ჰიპერბმული მიმოფანტული მთელ Word დოკუმენტში. ამ სცენარში, თუ თქვენ გჭირდებათ კონკრეტული ბმულის მიყოლა, თქვენ უნდა გადახვიდეთ დოკუმენტში, რომ იპოვოთ იგი ჯერ, რაც შეიძლება იყოს ისეთი მტკივნეული, რომელიც გრძელ ფაილშია.

თუმცა, თუ მათ ახალ დოკუმენტში ექსპორტი გააკეთებთ, ყველაფერი ბევრად გამარტივდება. აქ არის ჩვენი გადაწყვეტილებები.

მეთოდი 1: გამოიყენეთ "ძებნა" ფუნქცია

პირველ რიგში, დააწკაპუნეთ ჩანართზე "მთავარი", შემდეგ ისრის ღილაკი "Find" ბრძანების მახლობლად.
ჩამოსაშლელ მენიუში აირჩიეთ "Advanced Find" რათა გახსნათ "Find and Replace" დიალოგური ფანჯარა.
შემდეგ დააჭირეთ ღილაკს "მეტი" და დააჭირეთ "ფორმატი".
აირჩიეთ "სტილი", რათა გახსნათ "სტილის პოვნა" ველი.
აირჩიეთ "ჰიპერლინკი" და დააჭირეთ "OK".
შემდეგ დააჭირეთ ღილაკს "ძიება" და აირჩიეთ "მთავარი დოკუმენტი".

თქვენ შეგიძლიათ ნახოთ ყველა ჰიპერბმული შერჩეულში ახლა. თუმცა, თუ მათ დააკოპირებთ და ჩასვით ახალ დოკუმენტში, ნახავთ, რომ ბმულები კარგავენ ფორმატირებას და იქცევიან უბრალო ტექსტებად.

ამჟამად Microsoft-ს არ აქვს ამ პრობლემის გადაწყვეტა. ასე რომ, თქვენ უნდა დააბრუნოთ მარტივი ტექსტები ხელახლა ჰიპერბმულებად. აქ არის ჩვენი ადრინდელი სტატია, სადაც ჩამოთვლილია სხვადასხვა გზები, რომლებიც შეგიძლიათ მიჰყვეთ: 5 გზა URL ტექსტების ჰიპერბმულებად გადაქცევის თქვენს Word დოკუმენტში

ამ ხარვეზის გამო, ჩვენ გირჩევთ სხვა გზას, რომელიც ასევე შესრულებულია "Find" ფუნქციის დახმარებით. გთხოვთ, იხილოთ განყოფილება „იპოვეთ ყველა ჰიპერბმული დოკუმენტში“ ამ სტატიაში: როგორ მოვძებნოთ, შეცვალოთ და წაშალოთ ჰიპერბმულები თქვენს Word დოკუმენტში

ყველა ჰიპერბმულის პოვნის შემდეგ, თქვენ ასრულებთ სამუშაოს „ასლი“ და „ჩასმა“ მათი ექსპორტისთვის.

მეთოდი 2: გაუშვით VBA კოდები

პირველ რიგში, VBA რედაქტორის გასახსნელად დააჭირეთ Alt + F11.
შემდეგ დააჭირეთ "ჩასმა" და აირჩიეთ "მოდული", რათა შექმნათ ახალი "ნორმალური" პროექტის ქვეშ.
შემდეგ ორჯერ დააწკაპუნეთ მოდულზე, რომ გახსნათ რედაქტირების ადგილი და ჩასვით ქვემოთ მოცემული კოდები იქ:

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

ბოლოს დააჭირეთ ღილაკს "გაშვება".

ახლა გაიხსნება ახალი დოკუმენტი და იქ ყველა ჰიპერბმულის დაწკაპუნებაა შესაძლებელი.

გარდა ამისა, იმ შემთხვევაში, თუ არსებობს ფაილების ჯგუფის დამუშავება, შეგიძლიათ გაუშვათ ეს მაკრო ქვემოთ:

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

გახსოვდეთ, რომ ჯერ ყველა დოკუმენტი ერთ საქაღალდეში მოაწყეთ. შემდეგ გაუშვით ზემოთ მოცემული მაკრო, რომ მიიღოთ შეყვანის ველი. შეიყვანეთ საქაღალდის გზა და დააჭირეთ "OK".

ყველა ჰიპერბმული ახლა ხელმისაწვდომია ახალ დოკუმენტში.

მზადაა Word შეცდომებისთვის

რაც არ უნდა უხალისოდ ვიყოთ Word-ის შეცდომაში. დროდადრო ამის ტანჯვა გარდაუვალია. ჩვენი შემოთავაზება არის, როდესაც Word იშლება, აირჩიე გამოცდილი სიტყვების შეკეთება ხელსაწყო. უბრალოდ ყველაფერი პროფესიონალს მიანდეთ.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის xls დაზიანება მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად