Ձեր Word փաստաթղթից բոլոր հիպերհղումները խմբաքանակով հանելու 2 արագ եղանակ

Այս հոդվածը պատրաստվում է ցույց տալ ձեզ 2 արագ եղանակ՝ խմբաքանակով բոլոր հիպերհղումները ձեր Word փաստաթղթից հանելու համար, որպեսզի հետևեք հղումներին:

Ամեն անգամ, կարող են լինել հարյուրավոր հիպերհղումներ, որոնք ցրվում են Word փաստաթղթում: Այս սցենարում, եթե ձեզ անհրաժեշտ է հետևել կոնկրետ հղմանը, դուք պետք է նավարկեք փաստաթղթի միջով՝ նախ այն գտնելու համար, ինչը կարող է այդքան ցավալի լինել երկար ֆայլում:

Այնուամենայնիվ, եթե դրանք արտահանեք նոր փաստաթուղթ, ամեն ինչ կարող է շատ ավելի հեշտանալ: Ահա մեր լուծումները.

Մեթոդ 1. Օգտագործեք «Գտիր» հատկությունը

1. Նախ, սեղմեք «Տուն» ներդիրը, այնուհետև «Գտնել» հրամանի մոտ գտնվող սլաքի գլխի կոճակը:
2. Բացվող ընտրացանկում ընտրեք «Ընդլայնված որոնում»՝ «Գտնել և փոխարինել» երկխոսության տուփը բացելու համար:
3. Հաջորդը սեղմեք «Ավելին» կոճակը և կտտացրեք «Ձևաչափ»:
4. Ընտրեք «Ոճ»՝ «Գտնել ոճ» տուփը բացելու համար:
5. Ընտրեք «Hyperlink» և սեղմեք «OK»:
6. Դրանից հետո կտտացրեք «Գտիր» և ընտրիր «Հիմնական փաստաթուղթ»:

Այժմ դուք կարող եք տեսնել ընտրված բոլոր հիպերհղումները: Այնուամենայնիվ, եթե դրանք պատճենեք և տեղադրեք նոր փաստաթղթում, կտեսնեք, որ հղումները կորցնում են իրենց ձևաչափումը և դառնում պարզ տեքստեր:

Ներկայումս Microsoft-ը լուծում չունի այս խնդրի համար։ Այսպիսով, դուք պետք է ձեռքով նորից վերածեք պարզ տեքստերը հիպերհղումների: Ահա մեր ավելի վաղ հոդվածը, որը թվարկում է տարբեր ուղիներ, որոնց կարող եք հետևել. Ձեր Word փաստաթղթում URL տեքստերը հիպերհղումներ փոխարկելու 5 եղանակ

Այս թերության պատճառով մենք ձեզ խորհուրդ ենք տալիս մեկ այլ տարբերակ, որը կատարվում է նաև «Գտնել» գործառույթի օգնությամբ: Խնդրում ենք այս հոդվածի «Փնտրել բոլոր հիպերհղումները փաստաթղթում» բաժինը. Ինչպես գտնել, փոխել և ջնջել հղումների հղումները ձեր Word փաստաթղթում

Բոլոր հիպերհղումները գտնելուց հետո դուք կատարում եք «Պատճենել» և «Կպցնել» աշխատանքը՝ դրանք արտահանելու համար:

Մեթոդ 2. Գործարկել VBA կոդերը

1. Նախևառաջ, սեղմեք «Alt+F11»՝ VBA խմբագրիչը բացելու համար։
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