Αυτό το άρθρο δείχνει πώς μπορείτε να μετατρέψετε έγγραφα word σε λογιστικά φύλλα excel, αλλά να διατηρήσετε την ίδια μορφοποίηση. Ας υποθέσουμε ότι πρέπει να μορφοποιήσετε ή να ταξινομήσετε τα δεδομένα σας που βρίσκονται σε ένα έγγραφο word. Προφανώς, το excel είναι η καλύτερη επιλογή για να το κάνετε αυτό. Ευτυχώς, δεν χρειάζεται να πληκτρολογήσετε ξανά τα δεδομένα στο νέο αρχείο excel. Μπορείτε απλώς να μετατρέψετε το έγγραφο word σε ένα λογιστικό φύλλο excel, διατηρώντας παράλληλα τηνμορφοποίηση. Η παρακάτω εικόνα αναδεικνύει το σκοπό αυτού του άρθρου. Ρίξτε μια γρήγορη ματιά σε αυτήν για να μάθετε πώς να το κάνετε εύκολα.

Κατεβάστε το βιβλίο ασκήσεων

Μπορείτε να κατεβάσετε το βιβλίο ασκήσεων από το παρακάτω κουμπί λήψης.

Μετατροπή του Word σε Excel Conversion.xlsm

2 τρόποι μετατροπής του Word σε Excel με την ίδια μορφοποίηση

Φανταστείτε ότι έχετε το ακόλουθο έγγραφο word. Τώρα θέλετε να το μετατρέψετε σε φύλλο excel. Τότε ακολουθήστε τις παρακάτω μεθόδους.

1. Μετατροπή του Word σε Excel με αντιγραφή-επικόλληση

Μπορείτε απλά να αντιγράψετε τα δεδομένα από το έγγραφο word και να τα επικολλήσετε στο φύλλο excel. Ακολουθήστε τα παρακάτω βήματα για να το κάνετε αυτό.

📌 Βήματα

• Πρώτα, μεταβείτε στο αρχείο word. Στη συνέχεια, πατήστε CTRL+A για να επιλέξετε ολόκληρο το έγγραφο. Μπορείτε επίσης να επιλέξετε ένα συγκεκριμένο εύρος μόνο εάν απαιτείται.
• Μετά από αυτό, πατήστε CTRL+C για να αντιγράψετε τα δεδομένα όπως φαίνεται παρακάτω.

• Στη συνέχεια, μεταβείτε στο φύλλο excel. Στη συνέχεια, επιλέξτε το πάνω αριστερό κελί της περιοχής όπου θέλετε να λάβετε τα δεδομένα.
• Τώρα, πατήστε CTRL+V για να επικολλήσετε τα δεδομένα. Εναλλακτικά, μπορείτε να κάνετε δεξί κλικ σε αυτό το κελί. Στη συνέχεια, επιλέξτε Διατήρηση μορφοποίησης πηγής (K) από το Επιλογές επικόλλησης .
• Μετά από αυτό, θα λάβετε το ακόλουθο αποτέλεσμα.

Διαβάστε περισσότερα: Πώς να αντιγράψετε από το Word στο Excel σε πολλαπλά κελιά (3 τρόποι)

2. Μετατροπή του Word σε Excel με VBA

Μπορείτε να κάνετε το ίδιο με το Excel VBA. Ακολουθήστε τα παρακάτω βήματα για να το κάνετε.

📌 Βήματα

• Αρχικά, προσθέστε ένα νέο φύλλο εργασίας. Στη συνέχεια, αποθηκεύστε το βιβλίο εργασίας ως βιβλίο εργασίας με δυνατότητα μακροεντολών .
• Στη συνέχεια, πατήστε ALT+F11 για να ανοίξετε το παράθυρο VBA.
• Στη συνέχεια, επιλέξτε Εισαγωγή>> Ενότητα για να δημιουργήσετε μια νέα ενότητα, όπως φαίνεται στην παρακάτω εικόνα.

• Μετά από αυτό, αντιγράψτε τον ακόλουθο κώδικα χρησιμοποιώντας το κουμπί αντιγραφής.

 Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Word file(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Please Select") If File = False Then Exit Sub Set Word = CreateObject("Word.Application") Set Document = Word.Documents.Open(Filename:=File, ReadOnly:=True)Document.Activate PG = Document.Paragraphs.Count Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range.End) Range.Select On Error Resume Next Word.Selection.Copy ActiveSheet.Range("B2").Select ActiveSheet.Paste Document.Close Word.Quit (wdDoNotSaveChanges) Application.ScreenUpdating = True End Sub 

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

• Τώρα, πατήστε F5 για να εκτελέσετε τον κώδικα. Μπορείτε επίσης να το κάνετε αυτό από το Εκτέλεση
• Μετά από αυτό, θα σας ζητηθεί να επιλέξετε το αρχείο word που θέλετε να μετατρέψετε.
• Τώρα, μεταβείτε στη θέση του εγγράφου word που επιθυμείτε. Στη συνέχεια, επιλέξτε το αρχείο και κάντε κλικ στο κουμπί Ανοίξτε το .

• Τελικά, θα έχετε ένα παρόμοιο αποτέλεσμα με την προηγούμενη μέθοδο.

🔎 Πώς λειτουργεί ο κώδικας;

Sub WordToExcelWithFormatting()

Dim Document, Word As Object

Dim File As Variant

Dim PG, Εύρος

Δήλωση των απαραίτητων μεταβλητών.

Application.ScreenUpdating = False

File = Application.GetOpenFilename _

("Word file(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Please Select")

If File = False Then Exit Sub

Set Word = CreateObject("Word.Application")

Αυτό θέτει το Λέξη μεταβλητή ως έγγραφο word.

Set Document = Word.Documents.Open(Filename:=File, ReadOnly:=True)

Αυτό εκχωρεί το Έγγραφο μεταβλητή στο αντικείμενο ή το αρχείο στο οποίο αναφέρεται ο χρήστης.

Document.Activate

PG = Document.Paragraphs.Count

Αυτή η γραμμή κώδικα εκχωρεί το PG μεταβλητή για τον αριθμό των παραγράφων στο έγγραφο word

Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ Τέλος:=Document.Paragraphs(PG).Range.End)

Range.Select

On Error Resume Next

Word.Selection.Copy

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Document.Close

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

End Sub

Διαβάστε περισσότερα: Πώς να μετατρέψετε τον πίνακα του Word σε φύλλο του Excel (6 μέθοδοι)

Πράγματα που πρέπει να θυμάστε

• Μπορείτε επίσης να αποθηκεύσετε το αρχείο word ως PDF. Στη συνέχεια, χρησιμοποιήστε το πρόγραμμα επεξεργασίας PDF για να το μετατρέψετε σε φύλλο Excel.
• Μην ξεχάσετε να αποθηκεύσετε το βιβλίο εργασίας ως .xlsm Διαφορετικά, θα χάσετε τον κωδικό.

Συμπέρασμα

Τώρα, ξέρετε πώς να μετατρέψετε ένα έγγραφο word σε ένα φύλλο excel και να διατηρήσετε επίσης τη μορφοποίηση. Παρακαλούμε ενημερώστε μας αν αυτό το άρθρο σας βοήθησε να λύσετε το πρόβλημά σας. Μπορείτε επίσης να χρησιμοποιήσετε την παρακάτω ενότητα σχολίων για περαιτέρω ερωτήματα ή προτάσεις. Επισκεφθείτε το τμήμα μας ExcelWIKI blog για να εξερευνήσετε περισσότερα για το excel. Μείνετε μαζί μας και συνεχίστε να μαθαίνετε.