Энэ нийтлэлд холбоосыг дагаж Word документаасаа бүх холбоосыг задлах 2 хурдан аргыг танд үзүүлэх болно.
Ихэнхдээ Word баримт бичигт хэдэн зуун холбоос гарч ирдэг. Энэ тохиолдолд, хэрэв та тодорхой холбоосыг дагах шаардлагатай бол эхлээд баримт бичгийг хайж олох хэрэгтэй бөгөөд энэ нь урт файлд маш их өвдөж магадгүй юм.
Гэсэн хэдий ч хэрэв та тэдгээрийг шинэ баримт бичигт экспортлох юм бол бүх зүйл илүү хялбар болно. Энд бидний шийдлүүд байна.
Арга 1: "Хайх" онцлогийг ашиглах
- Нэгдүгээрт, "Гэр" табыг, дараа нь "Хайх" командын ойролцоох сумны товчийг дарна уу.
- Унждаг цэснээс "Нарийвчилсан хайлт" -ыг сонгоод "Хайх ба солих" харилцах цонхыг нээнэ үү.

- Дараа нь "Бусад" товчийг дараад "Форматлах" дээр дарна уу.
- "Style" -ийг сонгоод "Style олох" талбарыг нээнэ үү.
- "Гипер холбоос" -ыг сонгоод "OK" дээр дарна уу.

- Дараа нь "Find In" дээр дарж "Main Document" -ыг сонгоно уу.
Та одоо сонгосон бүх холбоосыг харах боломжтой. Гэсэн хэдий ч хэрэв та тэдгээрийг шинэ баримт бичигт хуулж, буулгах юм бол линкүүд форматаа алдаж, энгийн текст болж хувирах болно.
Одоогийн байдлаар Майкрософт энэ асуудлыг шийдэх шийдэл байхгүй байна. Тиймээс та энгийн текстийг гараар дахин гипер линк болгон хөрвүүлэх ёстой. Энд бидний дагаж мөрдөх янз бүрийн аргуудыг жагсаасан өмнөх нийтлэл байна. Таны Word баримт бичигт URL текстүүдийг холбоос болгон хөрвүүлэх 5 арга
Энэхүү дутагдлын улмаас бид танд "Хайх" функцын тусламжтайгаар гүйцэтгэсэн өөр аргыг санал болгож байна. Энэ нийтлэл дэх "Бүх гипер линкийг документээс олох" хэсгийг үзнэ үү. Өөрийн үгийн баримт бичигт байгаа холбоосыг хэрхэн олох, өөрчлөх, устгах
Бүх холбоосыг олсны дараа та тэдгээрийг экспортлохын тулд "Хуулбарлах" ба "Буулгах" ажлыг хийдэг.
Арга 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 нурах үед мэргэжлийн хүн сонгох явдал юм Үг засах хэрэгсэл. Зүгээр л бүх зүйлийг мэргэжлийн хүмүүст даатга.
Зохиогчийн танилцуулга:
Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xls гэмтэл болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com




