Den här artikeln visar hur du kan konvertera orddokument till Excel-kalkylblad med samma formatering. Anta att du behöver formatera eller sortera data som finns i ett orddokument. Självklart är Excel det bättre valet för att göra det. Lyckligtvis behöver du inte skriva in datan igen i den nya Excel-filen. Du kan bara konvertera orddokumentet till ett Excel-kalkylblad och behålla samma formatering som tidigare.Formatering. Följande bild belyser syftet med denna artikel. Ta en snabb titt på den för att lära dig hur du enkelt kan göra det.

Ladda ner övningsboken

Du kan ladda ner arbetsboken från nedladdningsknappen nedan.

Konvertering från Word till Excel.xlsm

2 sätt att konvertera Word till Excel med samma formatering

Föreställ dig att du har följande Word-dokument och vill konvertera det till ett Excel-kalkylblad. Följ nedanstående metoder.

1. Konvertera Word till Excel med kopiera-klistra in

Du kan helt enkelt kopiera uppgifterna från Word-dokumentet och klistra in dem i Excel-arket. Följ stegen nedan för att göra det.

📌 Steg

• Gå först till word-filen och tryck sedan på CTRL+A för att välja hela dokumentet. Du kan också välja ett visst intervall endast om det behövs.
• Därefter trycker du på CTRL+C för att kopiera uppgifterna enligt nedan.

• Gå sedan till Excel-kalkylbladet och välj den övre vänstra cellen i det intervall där du vill hämta data.
• Tryck nu på CTRL+V för att klistra in uppgifterna. Alternativt kan du högerklicka på cellen. Välj sedan Behåll källformat (K) från Alternativ för klistra in .
• Därefter får du följande resultat.

Läs mer: Hur du kopierar från Word till Excel till flera celler (3 sätt)

2. Konvertera Word till Excel med VBA

Du kan göra samma sak med Excel VBA. Följ stegen nedan för att göra det.

📌 Steg

• Lägg först till ett nytt arbetsblad och spara sedan arbetsboken som en arbetsbok med makroaktiverad arbetsbok .
• Tryck sedan på ALT+F11 för att öppna VBA-fönstret.
• Välj sedan Infoga>> Modul för att skapa en ny modul enligt bilden nedan.

• Därefter kopierar du följande kod med hjälp av kopieringsknappen.

 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 - 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 

• Klistra sedan in den kopierade koden i modulfönstret enligt nedan.

• Tryck nu på F5 för att köra koden. Du kan också göra det från Kör
• Därefter kommer du att bli ombedd att välja den word-fil som du vill konvertera.
• Bläddra nu till platsen för det önskade word-dokumentet. Välj sedan filen och klicka på Öppna .

• Slutligen får du ett liknande resultat som i den tidigare metoden.

🔎 Hur fungerar koden?

Sub WordToExcelWithFormatting()

Dim Document, Word som objekt

Dim File som variant

Dim PG, intervall

Ange nödvändiga variabler.

Application.ScreenUpdating = False

File = Application.GetOpenFilename _

("Word-fil(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Välj")

Om fil = falsk avslutar du Sub

Set Word = CreateObject("Word.Application")

Detta anger den Ord variabeln som ett word-dokument.

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

På så sätt tilldelas Dokument till det objekt eller den fil som användaren hänvisar till.

Document.Activate

PG = Document.Paragraphs.Count

Denna kodrad tilldelar PG variabel till antalet stycken i word-dokumentet

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

Range.Select

Vid fel Fortsätt nästa

Word.Selection.Copy

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Document.Close

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

Slutar under

Läs mer: Hur man konverterar Word-tabell till Excel-kalkylblad (6 metoder)

Saker att komma ihåg

• Du kan också spara word-filen som en PDF-fil och sedan använda din PDF-redigerare för att konvertera den till ett Excel-kalkylblad.
• Glöm inte att spara arbetsboken som en .xlsm Annars förlorar du koden.

Slutsats

Nu vet du hur du konverterar ett Word-dokument till ett Excel-kalkylblad och behåller även formateringen. Låt oss veta om den här artikeln har hjälpt dig att lösa ditt problem. Du kan också använda kommentarsfältet nedan för ytterligare frågor eller förslag. Besök vår ExcelWIKI bloggen för att utforska mer om Excel. Följ med oss och fortsätt att lära dig.