4 Μέθοδοι εξαγωγής πινάκων από ένα έγγραφο λέξης στο άλλο

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

Ο πίνακας είναι το πιο συνηθισμένο μέσο που χρησιμοποιούμε για την αποθήκευση πληροφοριών σε μορφή πίνακα. Τακτοποιεί τα δεδομένα σε γραμμές και στήλες, παρουσιάζοντας στους αναγνώστες μια σαφή εικόνα όλων των πληροφοριών. Ένα μεγάλο έγγραφο μπορεί να περιέχει πολλούς πίνακες, επομένως υπάρχει η ανάγκη εξαγωγής τους σε ένα νέο έγγραφο για διάφορους σκοπούς.

Εδώ είναι οι 4 προσεγγίσεις μας.

Μέθοδος 1: Μαζική εξαγωγή όλων των πινάκων από το ένα έγγραφο στο άλλο

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

Sub ExtractTablesFromOneDoc()
  Dim objTable As Table
  Dim objDoc As Document
  Dim objNewDoc As Document
  Dim objRange As Range
 
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  For Each objTable In objDoc.Tables
    objTable.Range.Select
    Selection.Copy
 
    '  Paste tables to new document in rich text format.
    Set objRange = objNewDoc.Range
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.PasteSpecial DataType:=wdPasteRTF
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.Text = vbCr
  Next objTable
 
End Sub

6. Τέλος, κάντε κλικ στο "Εκτέλεση".

Αυτή η μακροεντολή θα εξαγάγει και τους δύο πίνακες και τους υπότιτλους τους επίσης.

Μέθοδος 2: Εξαγωγή ενός συγκεκριμένου πίνακα από ένα έγγραφο

Τώρα, σε περίπτωση που υπάρχουν πολλοί πίνακες στο έγγραφό σας, αλλά πρέπει να στείλετε έναν συγκεκριμένο πίνακα σε κάποιον. Τότε η παρακάτω μακροεντολή θα σας βοηθήσει πολύ.

1. Πρώτα, εγκαταστήστε και εκτελέστε τη μακροεντολή που ακολουθούν τα βήματα στη μέθοδο 1.
2. Δεύτερον, αντικαταστήστε αυτήν τη μακροεντολή με αυτήν:

Sub ExtractSpecificTables()
  Dim objTable As Table
  Dim objDoc As Document
  Dim objNewDoc As Document
  Dim objRange As Range
  Dim strTable As String
 
  strTable = InputBox("Enter the table number: ")
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  objDoc.Tables(strTable).Range.Select
  Selection.Copy
 
  Set objRange = objNewDoc.Range
  objRange.Collapse Direction:=wdCollapseEnd
  objRange.PasteSpecial DataType:=wdPasteRTF
 
End Sub

3. Τώρα θα εμφανιστεί ένα πλαίσιο εισαγωγής.
4. Εισαγάγετε έναν αριθμό πίνακα και κάντε κλικ στο "OK".

Μέθοδος 3: Εξαγωγή παρτίδας όλων των πινάκων από πολλαπλά έγγραφα

1. Για να ξεκινήσετε, τακτοποιήστε όλα τα αρχεία σε έναν φάκελο.
2. Στη συνέχεια, εγκαταστήστε και εκτελέστε μια μακροεντολή με ακριβείς παραπάνω οδηγίες.
3. Αντικαταστήστε τη μακροεντολή με αυτήν:

Sub ExtractTablesFromMultiDocs()
  Dim objTable As Table
  Dim objDoc As Document, objNewDoc As Document
  Dim objRange As Range
  Dim strFile As String, strFolder As String
 
  '  Initialization
  strFolder = InputBox("Enter folder address here: ")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
 
  Set objNewDoc = Documents.Add
 
  '  Process each file in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    Set objDoc = ActiveDocument
 
    For Each objTable In objDoc.Tables
      objTable.Range.Select
      Selection.Copy
 
      Set objRange = objNewDoc.Range
      objRange.Collapse Direction:=wdCollapseEnd
      objRange.PasteSpecial DataType:=wdPasteRTF
      objRange.Collapse Direction:=wdCollapseEnd
      objRange.Text = vbCr
    Next objTable
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
 
End Sub

4. Τώρα στο πλαίσιο προτροπής, πληκτρολογήστε τη διεύθυνση του φακέλου όπου αποθηκεύετε τα έγγραφά σας και κάντε κλικ στο "OK".

Μέθοδος 4: Αντιγραφή πινάκων με μη αυτόματο τρόπο

Ωστόσο, εάν δεν αισθάνεστε άνετα με το VBA, μπορείτε να κάνετε τη δουλειά χειροκίνητα, εφόσον υπάρχει περιορισμένος αριθμός τραπεζιών.

1. Αρχικά, κάντε κλικ στο σύμβολο συν στην επάνω αριστερή γωνία για να επιλέξετε τον πίνακα προορισμού.
2. Στη συνέχεια, πατήστε "Ctrl+ C" για να το αντιγράψετε.
3. Στη συνέχεια ανοίξτε ένα νέο έγγραφο.
4. Και πατήστε "Ctrl+ V" για να επικολλήσετε τον πίνακα σε νέο έγγραφο.
5. Θυμηθείτε να αποθηκεύσετε το νέο έγγραφο.

Αντιμετώπιση προβλημάτων εγγράφων

Όσο συνεχίζουμε να χρησιμοποιούμε το Word, θα υπάρχει πάντα Βλάβη λέξεων. Ωστόσο, μην φοβάστε άλλο. Δεν είναι πλέον ένα πρόβλημα που δεν επιλύεται. Με ένα κατάλληλο εργαλείο ανάκτησης, έχετε πολλές πιθανότητες να ανακτήσετε όλα τα πολύτιμα δεδομένα σας.

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

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