Sådan konverteres Word til Excel, men beholder formateringen (2 nemme metoder)

Hugh West

16-10-2023 Excel-grundlæggende principper
  • Del Dette
Hugh West

Denne artikel illustrerer, hvordan du kan konvertere orddokumenter til Excel-regneark, men beholder den samme formatering. Antag, at du har brug for at formatere eller sortere dine data, der er i et orddokument. Excel er naturligvis det bedre valg til at gøre det. Heldigvis behøver du ikke at skrive dataene igen i den nye Excel-fil. Du kan bare konvertere orddokumentet til et Excel-regneark, mens du beholder denformatering. Følgende billede understreger formålet med denne artikel. Tag et hurtigt kig på det for at lære, hvordan du nemt kan gøre det.

Download arbejdsbog til øvelser

Du kan downloade arbejdsbogen til øvelser ved at klikke på download-knappen nedenfor.

Konvertering af Word til Excel.xlsm

2 måder at konvertere Word til Excel med samme formatering på

Forestil dig, at du har følgende Word-dokument. Nu vil du konvertere det til et Excel-regneark. Følg nedenstående metoder.

1. Konverter Word til Excel med Copy-Paste

Du kan blot kopiere dataene fra Word-dokumentet og indsætte dem i Excel-arket. Følg nedenstående trin for at gøre det.

📌 Trin

  • Gå først til word-filen. Tryk derefter på CTRL+A for at vælge hele dokumentet. Du kan også vælge et bestemt område, hvis det er nødvendigt.
  • Derefter skal du trykke på CTRL+C for at kopiere dataene som vist nedenfor.

  • Gå derefter til Excel-regnearket og vælg den øverste venstre celle i det område, hvor du vil hente dataene.
  • Tryk nu på CTRL+V for at indsætte dataene. Alternativt kan du højreklikke på den pågældende celle. Vælg derefter Behold kildeformatering (K) fra den Indsæt indstillinger .
  • Herefter får du følgende resultat.

Læs mere: Sådan kopieres fra Word til Excel til flere celler (3 måder)

2. Konverter Word til Excel med VBA

Du kan gøre det samme med Excel VBA. Følg nedenstående trin for at gøre det.

📌 Trin

  • Først skal du tilføje et nyt regneark. Derefter skal du gemme arbejdsbogen som en makroaktiveret arbejdsbog .
  • Derefter skal du trykke på ALT+F11 for at åbne VBA-vinduet.
  • Vælg derefter Indsæt>> Modul for at oprette et nyt modul som vist på billedet nedenfor.

  • Derefter kopierer du følgende kode ved hjælp af knappen Kopier. 
 Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Word-fil(*.doc;*.docx) ,*.doc;*.docx", , , "ExcelWIKI.Com - Vælg venligst") 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 (wdDoNoNotSaveChanges) Application.ScreenUpdating = True End Sub
  • Indsæt derefter den kopierede kode i modulvinduet som vist nedenfor.

  • Tryk nu på F5 for at køre koden. Du kan også gøre det fra Kør
  • Derefter bliver du bedt om at vælge den word-fil, som du vil konvertere.
  • Nu skal du søge efter det ønskede word-dokument. Vælg derefter filen, og klik på Åbn .

  • Til sidst får du et resultat, der svarer til det samme som i den tidligere metode.

🔎 Hvordan fungerer koden?

Sub WordToExcelWithFormatting()

Dim Document, Word As Object

Dim File As Variant

Dim PG, rækkevidde

Angivelse af nødvendige variabler.

Application.ScreenUpdating = False

File = Application.GetOpenFilename _

("Word-fil(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Vælg venligst")

Hvis File = False Derefter Exit Sub

Set Word = CreateObject("Word.Application")

Dette indstiller den Ord variabel som et word-dokument.

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

Dette tildeler den Dokument variabel til det objekt eller den fil, som brugeren henviser til.

Document.Activate

PG = Document.Paragraphs.Count

Denne kodelinje tildeler PG variabel til antallet af afsnit i word-dokumentet

Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range.End)

Range.Select

Ved fejl Fortsæt næste

Word.Selection.Copy

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Document.Close

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

End Sub

Læs mere: Sådan konverteres Word-tabel til Excel-regneark (6 metoder)

Ting at huske

  • Du kan også gemme Word-filen som en PDF-fil og derefter bruge din PDF-editor til at konvertere den til et Excel-regneark.
  • Glem ikke at gemme arbejdsbogen som en .xlsm Ellers vil du miste koden.

Konklusion

Nu ved du, hvordan du konverterer et Word-dokument til et Excel-regneark og beholder formateringen. Lad os vide, om denne artikel har hjulpet dig med at løse dit problem. Du kan også bruge kommentarfeltet nedenfor til yderligere spørgsmål eller forslag. Besøg vores ExcelWIKI blog for at udforske mere om excel. Bliv hos os og bliv ved med at lære.

Forrige indlæg Excel VLOOKUP-funktion med IF-tilstand (7 eksempler fra det virkelige liv)
Næste indlæg Sådan kopieres betinget formatering til en anden celle i Excel (2 metoder)

Hugh West er en meget erfaren Excel-træner og analytiker med over 10 års erfaring i branchen. Han har en bachelorgrad i regnskab og finans og en kandidatgrad i Business Administration. Hugh har en passion for undervisning og har udviklet en unik undervisningstilgang, der er nem at følge og forstå. Hans ekspertviden om Excel har hjulpet tusindvis af studerende og fagfolk verden over med at forbedre deres færdigheder og udmærke sig i deres karriere. Gennem sin blog deler Hugh sin viden med verden og tilbyder gratis Excel-tutorials og onlinetræning for at hjælpe enkeltpersoner og virksomheder med at nå deres fulde potentiale.