Τρόπος εξαγωγής περιεχομένων μεταξύ δύο συγκεκριμένων λέξεων από ένα έγγραφο του Word σε άλλο

Σε αυτό το άρθρο, θα σας δείξουμε τον τρόπο εξαγωγής περιεχομένου μεταξύ δύο συγκεκριμένων λέξεων από το ένα έγγραφο του Word στο άλλο.

Κάθε τόσο, θα πρέπει να εξάγετε περιεχόμενο μεταξύ συγκεκριμένων λέξεων σε ορισμένες περιπτώσεις. Ακολουθούν 2 πιθανές περιπτώσεις που μπορεί να συναντήσετε:

1. Αρχικά, σε έναν πίνακα Word, για όλα τα κελιά μιας στήλης που ξεκινούν και τελειώνουν με τις ίδιες 2 λέξεις, ίσως χρειαστεί να εξαγάγετε μόνο το διαφορετικό μεσαίο τμήμα, όπως το παρακάτω:   
2. Δεύτερον, σε ορισμένα αρχεία καταγραφής με πολλαπλές καταχωρήσεις, πιθανότατα θα χρειαστεί να εξαγάγετε μόνο αυτά που χρειάζεστε. Στη συνέχεια, μπορείτε να καθορίσετε την πρώτη και την τελευταία λέξη και να χρησιμοποιήσετε τη μέθοδο I αυτού του άρθρου για να λάβετε τα περιεχόμενα που χρειάζεστε.

Για να ολοκληρώσουμε μια τέτοια εργασία, προτιμούμε να εκτελέσουμε μια μακροεντολή Word. Απλώς ακολουθήστε αυτά τα βήματα.

Εξαγωγή περιεχομένου μεταξύ δύο λέξεων

1. Πρώτο και κύριοost, πατήστε "Alt + F11" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA στο Word.
2. Στη συνέχεια, κάντε κλικ στο "Κανονικό" έργο στην αριστερή στήλη.
3. Στη συνέχεια, κάντε κλικ στην καρτέλα "Εισαγωγή" στη γραμμή μενού.
4. Επιλέξτε "Module" από το αναπτυσσόμενο μενού.
5. Κάντε διπλό κλικ για να εισέλθετε στον χώρο κωδικοποίησης της νέας ενότητας και να επικολλήσετε αυτούς τους κωδικούς εκεί:

Sub ExtractContentsBetweenTwoWords()
  Dim strFirstWord As String
  Dim strLastWord As String
  Dim objDoc As Document
  Dim objDocAdd As Document
  Dim objRange As Range
 
  ' Initialize and create a new blank document.
  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate
 
  ' Enter the first and last words.
  strFirstWord = InputBox("Enter the first word:", "First Word")
  strLastWord = InputBox("Enter the last word:", "Last Word")
 
  ' Find and extract contents and insert them into the new document.
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Text = strFirstWord & "*" & strLastWord
      .MatchWildcards = True
      .MatchWholeWord = True
 
      Do While .Execute
        Selection.MoveStart Unit:=wdCharacter, Count:=Len(strFirstWord)
        Selection.MoveEnd Unit:=wdCharacter, Count:=-Len(strLastWord)
 
        objDocAdd.Range.InsertAfter Selection.Range & vbNewLine
        Selection.Collapse wdCollapseEnd
      Loop
    End With
  End With
End Sub

6. Στη συνέχεια, κάντε κλικ στο "Run" ή πατήστε "F5" για να εκτελέσετε τους κωδικούς.
7. Στο πλαίσιο εισαγωγής «Πρώτη λέξη», εισαγάγετε την πρώτη λέξη. Θυμηθείτε ότι η μακροεντολή κάνει διάκριση πεζών-κεφαλαίων. Έτσι αρχικοποιήστε τη λέξη εάν είναι απαραίτητο.
8. Στη συνέχεια, κάντε κλικ στο "OK" για να μεταβείτε στο πλαίσιο "Τελευταία λέξη".
9. Ομοίως, πληκτρολογήστε word και κάντε κλικ στο "OK". Μην ξεχάσετε να ακολουθήσετε τον ίδιο κανόνα αρχικοποίησης λέξης σύμφωνα.

Θα ανοίξει ένα νέο έγγραφο και όλα τα περιεχόμενα που θα εξαχθούν θα εμφανιστούν εκεί.

Εξαγωγή περιεχομένων σε αγκύλες

Όπως αναφέραμε, ορισμένα περιεχόμενα βρίσκονται σε αγκύλες. Τότε ορίστε τι μπορείτε να κάνετε:

1. Προς starT off, πρέπει να ακολουθήσετε τα παραπάνω βήματα για να εγκαταστήσετε και να εκτελέσετε μια μακροεντολή.
2. Τώρα, ανάλογα με τον τύπο ενός βραχίονα, μπορείτε να επιλέξετε την αντίστοιχη μακροεντολή παρακάτω:

Για σιδεράκια {}:

Sub ExtractContentsInBraces()
  Dim objDoc As Document
  Dim objDocAdd As Document
  Dim objRange As Range
 
  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "\{(*)\}"
      .MatchWildcards = True
 
      Do While .Execute
        Selection.MoveStart Unit:=wdCharacter, Count:=1
        Selection.MoveEnd Unit:=wdCharacter, Count:=-1
 
        objDocAdd.Range.InsertAfter Selection.Range & vbNewLine
        Selection.Collapse wdCollapseEnd
      Loop
    End With
  End With
End Sub

3. Για αγκύλες []:

Απλώς αντικαταστήστε αυτήν τη γραμμή κώδικα:

.Text = "\{(*)\}"

Με:

.Text =\[(*)\]

4. Στη συνέχεια για παρενθέσεις():

Αντικαταστήστε την ίδια γραμμή κώδικα στο βήμα 3 με:

.Text = "\((*)\)"

5. Και για γωνιακούς βραχίονες<>:

Χρησιμοποιήστε αυτήν τη γραμμή αντ' αυτού:

.Text = "\<(*)\>"

Χειριστείτε μια καταστροφή δεδομένων

Σε ένα εξαιρετικά συνδεδεμένο Word όπως το δικό μας, είναι ζωτικής σημασίας να έχετε πάντα υπόψη σας την ασφάλεια των δεδομένων. Επιπλέον, κάποιος πρέπει να ξέρει τι να κάνει σε περιόδους καταστροφής δεδομένων. Και η καλύτερη επιλογή σας είναι να πάρετε ένα επισκευή docx εργαλείο.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση xls pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com