Σε αυτό το άρθρο, θα σας δείξουμε έναν αυτόματο τρόπο για γρήγορη ομαδική επικύρωση όλων των υπερσυνδέσμων στο έγγραφο του Word μέσω VBA.
Ένα έγγραφο του Word μπορεί να περιέχει πολλούς υπερσυνδέσμους, ακόμη και εκατοντάδες. Μεταξύ αυτών, ορισμένοι είναι μη έγκυροι σύνδεσμοι που αποτυγχάνουν να σας οδηγήσουν σε μια σωστή ιστοσελίδα. Έτσι, θέλουμε να σας προσφέρουμε τον τρόπο να ελέγχετε γρήγορα όλους τους συνδέσμους σε ένα έγγραφο μέσω VBA.
Εγκαταστήστε και αποθηκεύστε μια μακροεντολή Word
- Πρώτα απ 'όλα, ανοίξτε τον επεξεργαστή VBA με το "Alt+ F11".
- Στη συνέχεια, κάντε κλικ στο "Κανονικό" έργο.
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Εισαγωγή" στο μενού της γραμμής εργαλείων.
- Και επιλέξτε "Module" στο μενού.
- Κάντε διπλό κλικ στη μονάδα για να ανοίξετε τον χώρο επεξεργασίας και να επικολλήσετε τους ακόλουθους κωδικούς εκεί:
Function CheckURL(strURL As String) As Boolean
Dim objDemand As Object
Dim varResult As Variant
On Error GoTo ErrorHandler
Set objDemand = CreateObject("WinHttp.WinHttpRequest.5.1")
With objDemand
.Open "GET", strURL, False
.Send
varResult = .StatusText
End With
Set objDemand = Nothing
If varResult = "OK" Then
CheckURL = True
Else
CheckURL = False
End If
ErrorHandler:
End Function
Sub ReturnURLCheck()
Dim objLink As Hyperlink
Dim strLinkText As String
Dim strLinkAddress As String
Dim strResult As String
Dim nInvalidLink As Integer, nTotalLinks As Integer
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
nTotalLinks = objDoc.Hyperlinks.Count
nInvalidLink = 0
With objDoc
For Each objLink In .Hyperlinks
strLinkText = objLink.Range.Text
strLinkAddress = objLink.Address
If Not CheckURL(strLinkAddress) Then
nInvalidLink = nInvalidLink + 1
strResult = frmCheckURLs.txtShowResult.Text
frmCheckURLs.txtShowResult.Text = strResult & nInvalidLink & ". Invalid Link Information:" & vbNewLine & _
"Displayed Text: " & strLinkText & vbNewLine & _
"Address: " & strLinkAddress & vbNewLine & vbNewLine
End If
Next objLink
frmCheckURLs.txtTotalLinks.Text = nTotalLinks
frmCheckURLs.txtNumberOfInvalidLinks.Text = nInvalidLink
frmCheckURLs.Show Modal
End With
Application.ScreenUpdating = True
End Sub
Sub HighlightInvalidLinks()
Dim objLink As Hyperlink
Dim strLinkAddress As String
Dim strResult As String
Dim objDoc As Document
Set objDoc = ActiveDocument
With objDoc
For Each objLink In .Hyperlinks
strLinkAddress = objLink.Address
If Not CheckURL(strLinkAddress) Then
objLink.Range.HighlightColorIndex = wdYellow
End If
Next objLink
End With
End Sub
- Στη συνέχεια κάντε κλικ στο "Αποθήκευση".
- Στη συνέχεια, αντιστοιχίστε ένα κουμπί για τη μακροεντολή. Μπορείτε να ανατρέξετε στο παρακάτω άρθρο για αναλυτικές πληροφορίες:
Πώς να αφαιρέσετε τη μορφοποίηση των επικολλημένων κειμένων με μακροεντολή και VBA στο Word σας
Δημιουργήστε μια φόρμα χρήστη
Με μια φόρμα χρήστη, μπορείτε να δείτε καθαρά τον συνολικό αριθμό συνδέσμων στο τρέχον έγγραφο, τον αριθμό των μη έγκυρων συνδέσμων και περισσότερες λεπτομέρειες.
- Πρώτα, κάντε ξανά κλικ στο «Εισαγωγή» στη γραμμή εργαλείων. Αλλά αυτή τη φορά, επιλέξτε "UserForm".
- Στη συνέχεια, πατήστε το "F4" για να ανοίξετε το "Παράθυρο Ιδιοτήτων" στην κάτω αριστερή γωνία. Το μέγεθος του παραθύρου είναι ρυθμιζόμενο.
- Τώρα ονομάστε τη φόρμα χρήστη ως "frmCheckURLs".
- Ορίστε τη λεζάντα ως "Έλεγχος διευθύνσεων URL".
- Στη συνέχεια, ορίστε σωστά τη γραμματοσειρά.
- Στη συνέχεια, κάντε κλικ στο κουμπί "Εργαλειοθήκη" στη γραμμή εργαλείων.
- Τώρα κάντε κλικ στο "Ετικέτα" στην εργαλειοθήκη. Χρησιμοποιήστε το ποντίκι για να σύρετε μια ορθογώνια ετικέτα στη φόρμα χρήστη.
- Κάντε κλικ στην ετικέτα για να ενεργοποιήσετε το παράθυρο ιδιότητάς της. Ορίστε το όνομα της ετικέτας ως "lblInvalidURLs" και τον τίτλο ως "Μη έγκυρες διευθύνσεις URL:".
- Στη συνέχεια, επιλέξτε τη σωστή γραμματοσειρά και πρόσθιο χρώμα για το κείμενο της λεζάντας της ετικέτας.
- Επιλέξτε "Πλαίσιο κειμένου" στην εργαλειοθήκη και εισαγάγετε ένα πλαίσιο κειμένου στη φόρμα χρήστη. Προσαρμόστε το μέγεθός του.
- Στη συνέχεια ορίστε το όνομα του πλαισίου κειμένου ως "txtShowResult".
- Ρυθμίστε τη γραμματοσειρά και τον πρόσθιο χρώμα όπως θέλετε.
- Βρείτε το "MultiLine" και ορίστε το "True".
- Βρείτε "Γραμμή κύλισης" και επιλέξτε μια κάθετη γραμμή.
- Στη συνέχεια, δημιουργήστε δύο ακόμη ετικέτες και πλαίσια κειμένου.
- Στη συνέχεια, ονομάστε την πρώτη ετικέτα ως "lblTotalLinks" και ορίστε τη λεζάντα ως "Σύνολο συνδέσμων σε αυτό το έγγραφο".
- Και ονομάστε τη δεύτερη ετικέτα ως "lblNumberOfInvalidLinks" και ορίστε τη λεζάντα ως "Αριθμός μη έγκυρων συνδέσμων".
- Ονομάστε το πρώτο πλαίσιο κειμένου ως "txtTotalLinks" και το δεύτερο ως "txtNumberOfInvalidLinks".
- Στη συνέχεια, βρείτε το κουμπί ελέγχου εντολών στην εργαλειοθήκη. Δημιουργήστε δύο κουμπιά εντολών, όπως παρακάτω:
- Ονομάστε το πρώτο κουμπί ως "cmdbtnClose" και το κείμενο της λεζάντας του ως "Close".
- Ονομάστε το δεύτερο κουμπί ως "btnCloseAndHighlightInvalidURLs" και το κείμενο της λεζάντας του ως "Κλείσιμο και επισήμανση μη έγκυρων διευθύνσεων URL".
- Επόμενο διπλό κλικ στο κουμπί "Κλείσιμο" και στο κουμπί "Κλείσιμο & Επισήμανση Μη έγκυρων διευθύνσεων URL" αντίστοιχα. Εισαγάγετε τους κωδικούς ως εξής:
Εκτελέστε τη μακροεντολή
Κάντε κλικ στο κουμπί που εκχωρείτε στη μακροεντολή. Εδώ είναι το τελικό αποτέλεσμα:
Μπορείτε να δείτε λεπτομερείς πληροφορίες για κάθε αποτυχημένο σύνδεσμο στο αριστερό μεγάλο πλαίσιο κειμένου. Και μπορείτε να επιλέξετε να κλείσετε τη φόρμα χρήστη απευθείας ή να την κλείσετε ενώ επισημαίνετε όλους τους κατεστραμμένους συνδέσμους στο έγγραφο.
Χειριστείτε τα ζητήματα του Word προσεκτικά
Το Word είναι εύκολα επιρρεπές σε λάθη. Έτσι γίνεται εξαιρετικά σημαντικό να διορθώστε το Word σωστά. Τις περισσότερες φορές, το ενσωματωμένο εργαλείο δεν μπορεί να σας βοηθήσει τόσο πολύ. Επομένως, η κορυφαία επιλογή σας είναι να αποκτήσετε ένα εργαλείο επισκευής τρίτου κατασκευαστή.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή xlsx και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com