Πώς να επιλέξετε και να αντιγράψετε όλους τους υπερσυνδέσμους από ένα έγγραφο του Word;
Σε ορισμένες περιπτώσεις, έχετε ένα μακρύ έγγραφο με πολλούς υπερσυνδέσμους που υπάρχουν και πρέπει να αντιγράψετε μόνο όλους τους υπερσυνδέσμους ταυτόχρονα από αυτό το έγγραφο και στη συνέχεια να τους επικολλήσετε σε έναν άλλο. Υπάρχει τρόπος να αντιγράψετε γρήγορα όλα αυτά ταυτόχρονα αντί να τα αντιγράψετε ένα προς ένα;
Αντιγράψτε όλους τους υπερσυνδέσμους με VBA
Εξαγάγετε όλες τις διευθύνσεις υπερσυνδέσμων με VBA
Αντιγράψτε όλους τους υπερσυνδέσμους ή μόνο διευθύνσεις στο πρόχειρο με το Kutools for Word
Αντιγράψτε όλους τους υπερσυνδέσμους με VBA
1. Ανοίξτε το έγγραφο του Word που θέλετε να αντιγράψετε τους υπερσυνδέσμους και πατήστε Alt + F11 για να ανοίξετε το Παράθυρο εφαρμογής βασισμένο σε Microsoft Visual.
2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι αντιγράψτε το ακόλουθο VBA στο παράθυρο.
VBA: Αντιγραφή όλων των υπερσυνδέσμων
Sub HyperlinksExtract()
'Updateby20140214
Dim oLink As Hyperlink
Dim docCurrent As Document 'current document
Dim docNew As Document 'new document
Dim rngStory As StoryRanges
Set docCurrent = ActiveDocument
Set docNew = Documents.Add
For Each oLink In docCurrent.Hyperlinks
oLink.Range.Copy
docNew.Activate
Selection.Paste
Selection.TypeParagraph
Next
Set docNew = Nothing
Set docCurrent = Nothing
End Sub
3. Κάντε κλικ στο κουμπί τρέξιμο για να εκτελέσετε τον κωδικό VBA. Στη συνέχεια, όλοι οι υπερσύνδεσμοι αντιγράφονται σε ένα νέο έγγραφο. Μπορείτε να αποθηκεύσετε το νέο έγγραφο αργότερα. Μπορείτε να δείτε το αποτέλεσμα ως εξής.
Σημείωση: Αυτό το VBA μπορεί να εκτελεστεί μόνο όταν όλοι οι υπερσύνδεσμοι συνδέονται με λέξη, εάν υπάρχουν εικόνες με υπερσυνδέσμους, αυτός ο κωδικός VBA δεν μπορεί να λειτουργήσει.
Εξαγωγή όλων των διευθύνσεων υπερσυνδέσμων με VBA
1. Ανοίξτε το έγγραφο του Word που θέλετε να εξαγάγετε τους υπερσυνδέσμους και πατήστε Alt + F11 για να ανοίξετε το Παράθυρο εφαρμογής βασισμένο σε Microsoft Visual.
2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι αντιγράψτε το ακόλουθο VBA στο παράθυρο.
VBA: Εξαγωγή όλων των διευθύνσεων υπερσυνδέσμων
Function GetAllHyperlinks()
'Updateby20140214
Dim docCurrent As Document
Dim docNew As Document
Dim oLink As Hyperlink
Dim rng As Range
Application.ScreenUpdating = False
Set docCurrent = ActiveDocument
Set docNew = Documents.Add
For Each oLink In docCurrent.Hyperlinks
Set rng = docNew.Range
rng.Collapse
rng.InsertParagraph
rng.InsertAfter (oLink.Address)
Next
docNew.Activate
Application.ScreenUpdating = True
Application.ScreenRefresh
End Function
3. Κάντε κλικ στο κουμπί τρέξιμο για να εκτελέσετε τον κωδικό VBA. Στη συνέχεια, όλες οι διευθύνσεις υπερσυνδέσμων εξάγονται σε ένα νέο έγγραφο, μπορείτε να το αποθηκεύσετε αργότερα.
Σημείωση: Η διεύθυνση εξαγωγής υπερσυνδέσμων δεν είναι στην αρχική σειρά.
Αντιγράψτε όλους τους υπερσυνδέσμους ή μόνο διευθύνσεις στο πρόχειρο με το Kutools for Word
Εάν θέλετε να αντιγράψετε όλους τους υπερσυνδέσμους ή μόνο διευθύνσεις στο πρόχειρο από το έγγραφο του Word εύκολα και γρήγορα, το Αντιγραφή υπερσυνδέσμου χρησιμότητα του Kutools για το Word μπορεί να σου κάνει αυτή τη χάρη.
Kutools για το Word, με περισσότερα από εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. | ||
Μετά την εγκατάσταση Kutools για Word, κάντε τα παρακάτω:(Δωρεάν λήψη Kutools για το Word Now!)
1. κλικ Kutools Plus > Αντιγραφή υπερσυνδέσμου.
2. Στο αναδυόμενο παράθυρο διαλόγου, ορίστε μία επιλογή όπως χρειάζεστε.
Τώρα, επιλέξτε μια τοποθεσία που θέλετε να τοποθετήσετε τους υπερσυνδέσμους, πατήστε Ctrl + V να τα επικολλήσετε.
Αντιγραφή και επικόλληση υπερσυνδέσμων |
Αντιγραφή και επικόλληση διεύθυνσης υπερσύνδεσης |
Επίδειξη: Αντιγραφή υπερ-συνδέσμου
Περιήγηση με καρτέλες και επεξεργασία πολλών εγγράφων Word / βιβλίων εργασίας Excel όπως Firefox, Chrome, Internet Explore 10! |
Ίσως εξοικειωθείτε με την προβολή πολλών ιστοσελίδων στο Firefox / Chrome / IE και εναλλαγή μεταξύ τους κάνοντας κλικ στις αντίστοιχες καρτέλες εύκολα. Εδώ, το Office Tab υποστηρίζει παρόμοια επεξεργασία, η οποία σας επιτρέπει να περιηγηθείτε σε πολλά έγγραφα του Word ή σε βιβλία εργασίας του Excel σε ένα παράθυρο του Word ή σε ένα παράθυρο του Excel και να κάνετε εναλλαγή μεταξύ τους εύκολα κάνοντας κλικ στις καρτέλες τους. |
Σχετικά άρθρα:
- Εισαγωγή, κατάργηση και λίστα όλων των υπερ-συνδέσεων του τρέχοντος εγγράφου στο Word
- Εισαγάγετε πολλούς υπερσυνδέσμους σε ένα έγγραφο στο Word
- Καταργήστε όλους τους υπερσυνδέσμους στο Word
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...