Word құжатынан барлық гиперсілтемелерді топтамамен шығарудың 2 жылдам жолы

Бұл мақала сілтемелерді орындау үшін Word құжатынан барлық гиперсілтемелерді пакеттік түрде шығарудың 2 жылдам әдісін көрсетеді.

Word құжатында жиі шашыраңқы жүздеген гиперсілтемелер болуы мүмкін. Бұл сценарийде, егер сізге белгілі бір сілтемені орындау қажет болса, алдымен оны табу үшін құжатты шарлау керек, бұл ұзақ файлда осындай ауыртпалық болуы мүмкін.

Дегенмен, егер сіз оларды жаңа құжатқа экспорттасаңыз, істер әлдеқайда оңай болуы мүмкін. Міне, біздің шешімдеріміз.

1-әдіс: «Табу» функциясын қолдану

1. Алдымен «Басты» қойындысын, содан кейін «Табу» пәрменінің жанындағы көрсеткі түймешігін басыңыз.
2. «Табу және ауыстыру» тілқатысу терезесін ашу үшін ашылмалы мәзірде «Қосымша табу» тармағын таңдаңыз.
3. Содан кейін «Қосымша» түймесін басып, «Формат» түймесін басыңыз.
4. «Стильді табу» жолағын ашу үшін «Стиль» таңдаңыз.
5. «Гиперсілтемені» таңдап, «OK» түймесін басыңыз.
6. Содан кейін «Іздеу» батырмасын басып, «Негізгі құжатты» таңдаңыз.

Таңдалған барлық гиперсілтемелерді қазір көре аласыз. Дегенмен, оларды жаңа құжатқа көшіріп, қойсаңыз, сілтемелер пішімделуін жоғалтып, кәдімгі мәтінге айналады.

Қазіргі уақытта Microsoft корпорациясында бұл мәселенің шешімі жоқ. Сондықтан қарапайым мәтіндерді қайтадан гиперсілтемелерге қолмен түрлендіру керек. Міне, біздің бұрынғы мақаламыз, сіз ұстануға болатын әртүрлі жолдар тізімі: Word мәтініндегі URL мәтіндерін еренсілтемелерге айналдырудың 5 тәсілі

Осы кемшілікке байланысты біз сізге «Табу» мүмкіндігінің көмегімен орындалатын басқа жолды ұсынамыз. Осы мақаладағы «Құжаттағы барлық гиперсілтемелерді табу» бөлімін қараңыз: Word құжатындағы сілтемелерді қалай табуға, өзгертуге және жоюға болады

Барлық гиперсілтемелерді тапқаннан кейін оларды экспорттау үшін «Көшіру» және «Қою» жұмысын орындайсыз.

2-әдіс: VBA кодтарын іске қосыңыз

1. Ең алдымен, VBA редакторын ашу үшін «Alt+F11» пернелер тіркесімін басыңыз.
2. Содан кейін «Кірістіру» түймесін басып, «Қалыпты» жобасының астында жаңасын жасау үшін «Модуль» таңдаңыз.
3. Содан кейін өңдеу кеңістігін ашу үшін модульді екі рет басыңыз және сол жерге төмендегі кодтарды қойыңыз:

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. Соңында, «Іске қосу» батырмасын басыңыз.

Енді жаңа құжат ашылады және барлық гиперсілтемелер сонда басылады.

Сонымен қатар, өңдеу қажет файлдар пакеті болған жағдайда, төмендегі макросты іске қосуға болады:

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.com