Ten artykuł ilustruje, jak można konwertować dokumenty word do arkuszy kalkulacyjnych excel, ale zachować to samo formatowanie.Załóżmy, że trzeba sformatować lub posortować dane, które są w dokumencie word.Oczywiście, excel jest lepszym wyborem, aby to zrobić.Na szczęście, nie trzeba wpisać dane ponownie w nowym pliku excel.Można po prostu przekonwertować dokument word do arkusza kalkulacyjnego excel, zachowującFormatowanie. Poniższy obrazek podkreśla cel tego artykułu. Przejrzyj go, aby dowiedzieć się, jak to łatwo zrobić.

Pobierz Zeszyt ćwiczeń

Zeszyt ćwiczeń można pobrać z poniższego przycisku do pobrania.

Word to Excel Conversion.xlsm

2 Sposoby na konwersję Worda do Excela z zachowaniem tego samego formatowania

Wyobraź sobie, że masz następujący dokument word. Teraz chcesz go przekonwertować na arkusz kalkulacyjny excel. Następnie postępuj zgodnie z poniższymi metodami.

1) Konwersja programu Word do programu Excel za pomocą funkcji Kopiuj-Wklej

Możesz po prostu skopiować dane z dokumentu word i wkleić je do arkusza excel. Wykonaj poniższe kroki, aby to zrobić.

📌 Kroki

• Najpierw przejdź do pliku wordowego, a następnie naciśnij CTRL+A aby wybrać cały dokument. Można również wybrać określony zakres tylko w razie potrzeby.
• Następnie należy nacisnąć CTRL+C aby skopiować dane w sposób pokazany poniżej.

• Następnie przejdź do arkusza kalkulacyjnego Excel. Następnie wybierz lewą górną komórkę zakresu, w którym chcesz uzyskać dane.
• Teraz naciśnij CTRL+V Aby wkleić dane, można też kliknąć prawym przyciskiem myszy na tę komórkę, a następnie wybrać Zachowaj formatowanie źródła (K) od Opcje wklejania .
• Po tym, otrzymasz następujący wynik.

Read More: Jak skopiować z Worda do Excela do wielu komórek (3 sposoby)

2) Konwersja Worda do Excela za pomocą VBA

Możesz zrobić to samo za pomocą Excel VBA. Wykonaj poniższe kroki, aby to zrobić.

📌 Kroki

• Najpierw dodajemy nowy arkusz roboczy, a następnie zapisujemy skoroszyt jako skoroszyt z obsługą makr .
• Następnie naciśnij ALT+F11 aby otworzyć okno VBA.
• Następnie należy wybrać Wstaw>> Moduł aby utworzyć nowy moduł, jak pokazano na poniższym rysunku.

• Po tym skopiuj poniższy kod za pomocą przycisku kopiuj.

 Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Plik Worda(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Proszę wybrać") 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 

• Następnie wklej skopiowany kod do okna modułu, jak pokazano poniżej.

• Teraz naciśnij F5 aby uruchomić kod. Możesz to również zrobić z poziomu Uruchom
• Po tym zostaniesz poproszony o wybranie pliku word, który chcesz przekonwertować.
• Teraz przejdź do lokalizacji żądanego dokumentu wordowego. Następnie wybierz plik i kliknij Otwórz .

• Na koniec otrzymasz podobny wynik jak we wcześniejszej metodzie.

🔎 Jak działa kodeks?

Sub WordToExcelWithFormatting()

Dim Dokument, Word jako obiekt

Dim File As Variant

Dim PG, Zakres

Deklarowanie niezbędnych zmiennych.

Application.ScreenUpdating = False

File = Application.GetOpenFilename _.

("Plik Word(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Proszę wybrać")

If File = False Then Exit Sub

Set Word = CreateObject("Word.Application")

To ustawia Słowo zmienna w postaci dokumentu word.

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

Przypisuje to Dokument do obiektu lub pliku, do którego odwołuje się użytkownik.

Dokument.Aktywuj

PG = Document.Paragraphs.Count

Ta linia kodu przypisuje PG zmienna określająca liczbę akapitów w dokumencie wordowym

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

Dokument.Zamknij

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

End Sub

Read More: Jak przekonwertować tabelę Word na arkusz kalkulacyjny Excel (6 metod)

Rzeczy do zapamiętania

• Możesz również zapisać plik word jako PDF. Następnie użyj edytora PDF, aby przekonwertować go na arkusz kalkulacyjny Excel.
• Nie zapomnij zapisać skoroszytu jako .xlsm W przeciwnym razie stracisz kod.

Wniosek

Teraz już wiesz, jak przekonwertować dokument word na arkusz kalkulacyjny excel i zachować formatowanie. Daj nam znać, czy ten artykuł pomógł Ci rozwiązać Twój problem. Możesz również skorzystać z sekcji komentarzy poniżej, aby uzyskać dalsze pytania lub sugestie. Odwiedź nasz ExcelWIKI Zostań z nami i ucz się dalej.