Dit artikel illustreert hoe u tekstdocumenten kunt converteren naar excel spreadsheets met behoud van dezelfde opmaak. Stel dat u uw gegevens in een tekstdocument moet opmaken of sorteren. Uiteraard is excel de betere keuze om dat te doen. Gelukkig hoeft u de gegevens niet opnieuw te typen in het nieuwe excel-bestand. U kunt gewoon het tekstdocument converteren naar een excel spreadsheet met behoud van deopmaak. De volgende afbeelding benadrukt het doel van dit artikel. Kijk er snel doorheen om te leren hoe je dat gemakkelijk kunt doen.

Download Praktijk Werkboek

U kunt het oefenwerkboek downloaden via de onderstaande downloadknop.

Word naar Excel conversie.xlsm

2 manieren om Word naar Excel te converteren met dezelfde opmaak

Stel je hebt het volgende word document. Nu wil je het converteren naar een excel spreadsheet. Volg dan de onderstaande methodes.

1. Word omzetten naar Excel met Copy-Paste

U kunt gewoon de gegevens uit het Word-document kopiëren en in het Excel-blad plakken. Volg de onderstaande stappen om dat te doen.

📌 Stappen

• Ga eerst naar het Word-bestand. Druk dan op CTRL+A om het hele document te selecteren. U kunt ook alleen een bepaald bereik selecteren als dat nodig is.
• Druk daarna op CTRL+C om de gegevens te kopiëren zoals hieronder getoond.

• Ga vervolgens naar het excel-spreadsheet. Selecteer de cel linksboven van het bereik waar u de gegevens wilt hebben.
• Druk nu op CTRL+V om de gegevens te plakken. U kunt ook met de rechtermuisknop op die cel klikken. Selecteer dan Bronopmaak behouden (K) van de Plakopties .
• Daarna krijgt u het volgende resultaat.

Lees meer: Hoe te kopiëren van Word naar Excel in meerdere cellen (3 manieren)

2. Word omzetten naar Excel met VBA

U kunt hetzelfde doen met Excel VBA. Volg de onderstaande stappen om dat te doen.

📌 Stappen

• Voeg eerst een nieuw werkblad toe. Sla vervolgens de werkmap op als een werkmap met macro's .
• Druk vervolgens op ALT+F11 om het VBA-venster te openen.
• Selecteer vervolgens Invoegen>> Module om een nieuwe module te maken zoals in de onderstaande afbeelding.

• Kopieer daarna de volgende code met de knop Kopiëren.

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

• Plak dan de gekopieerde code in het modulevenster zoals hieronder getoond.

• Druk nu op F5 om de code uit te voeren. U kunt dat ook doen vanuit de Ren
• Daarna wordt u gevraagd het tekstbestand te selecteren dat u wilt converteren.
• Blader nu naar de locatie van uw gewenste Word-document. Selecteer vervolgens het bestand en klik op Open .

• Uiteindelijk krijgt u een soortgelijk resultaat als bij de eerdere methode.

🔎 Hoe werkt de code?

Sub WordToExcelWithFormatting()

Dim Document, Word Als Object

Dim Bestand als Variant

Dim PG, Range

Het declareren van noodzakelijke variabelen.

Application.ScreenUpdating = False

Bestand = Application.GetOpenFilename _

("Word bestand(*.doc;*.docx),*.doc;*.docx", , "ExcelWIKI.Com - Selecteer a.u.b.")

Als File = False Dan Exit Sub

Set Word = CreateObject("Word.Application")

Dit stelt de Woord variabele als een word document.

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

Dit wijst de Document variabele naar het object of bestand waarnaar de gebruiker verwijst.

Document.Activate

PG = Document.Paragraphs.Count

Deze coderegel wijst de PG variabele naar het aantal paragrafen in het word document

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

Range.Select

Bij fout Hervat Volgende

Word.Selection.Copy

ActiveSheet.Range("B2").Selecteer

ActiveSheet.Paste

Document.Close

Word.Quit (wdDoNotSaveChanges)

Application.ScreenUpdating = True

Einde Sub

Lees meer: Hoe Word-tabel converteren naar Excel-spreadsheet (6 methoden)

Dingen om te onthouden

• U kunt het Word-bestand ook opslaan als een PDF. Gebruik vervolgens uw PDF-editor om het te converteren naar een Excel-spreadsheet.
• Vergeet niet de werkmap op te slaan als een .xlsm Anders raak je de code kwijt.

Conclusie

Nu weet u hoe u een Word-document naar een Excel-spreadsheet kunt converteren en de opmaak kunt behouden. Laat ons weten of dit artikel u heeft geholpen uw probleem op te lossen. U kunt ook de commentaarsectie hieronder gebruiken voor verdere vragen of suggesties. Bezoek ons ExcelWIKI Blijf bij ons en blijf leren.