How do you convert a Word document to Excel?

Excel and Word are Microsoft applications, and thus they are compatible. Therefore, you can easily convert a Word document to Excel and an Excel document to Word. In this article, we are going to discuss two simple methods that can be used to convert a Word document to an Excel document.

Using the From Text Tool in Excel to Convert Word document

Steps:

1. Open the Word application and the document you wish to convert.

2. Press the CTRL + S keys to open the Save screen. Choose where you want to save the document.

3. In the File name section, type the file's name. Then, click the Save as Type drop-down button, and select Plain Text from the menu. Finally, hit the save button

4. Open the Excel application and locate the worksheet where the document will be added.

5. Go to the Data tab on the Ribbon, and locate the Get External Data section. Click the From Text button. You will be prompted to choose the file from your device.

6. In the Text Import Wizard, toggle on the Delimited option and click the Next button.

7. In the next screen, check the Delimiter you want to split your dataset with, and hit the Next button.

8. In the last screen, toggle on the General Button and hit the Finish button.

That is all. The Word document will be imported to the selected Excel Workbook.

Using VBA Tool to Convert Word document to Excel

Steps:

1. Open the Excel application.

2. Open the workbook with your worksheets.

3. Click on the Developer tab on the Ribbon, and then locate the Visual Basic button.

4. In the Visual Basic screen, click the Insert tab on the Ribbon and select the Module button.

5. Type the following code in the empty module.

Sub ImportWord()

Dim xObjDoc As Object

Dim xWdApp As Object

Dim xWdName As Variant

Dim xWb As Workbook

Dim xWs As Worksheet

Dim xName As String

Dim xPC, xRPP

Application.ScreenUpdating = False

Application.DisplayAlerts = False

xWdName = Application.GetOpenFilename("Word file(*.doc;*.docx) ,*.doc;*.docx", , "Kutools – Please select")

If xWdName = False Then Exit Sub

Application.ScreenUpdating = False

Set xWb = Application.ActiveWorkbook

Set xWs = xWb.Worksheets.Add

Set xWdApp = CreateObject("Word.Application")

xWdApp.ScreenUpdating = False

xWdApp.DisplayAlerts = False

Set xObjDoc = xWdApp.Documents.Open(Filename:=xWdName, ReadOnly:=True)

xObjDoc.Activate

xPC = xObjDoc.Paragraphs.Count

Set xRPP = xObjDoc.Range(Start:=xObjDoc.Paragraphs(1).Range.Start, End:=xObjDoc.Paragraphs(xPC).Range.End)

xRPP.Select

On Error Resume Next

xWdApp.Selection.Copy

xName = xObjDoc.Name

xName = Replace(xName, ":", "_")

xName = Replace(xName, "\", "_")

xName = Replace(xName, "/", "_")

xName = Replace(xName, "?", "_")

xName = Replace(xName, "*", "_")

xName = Replace(xName, "[", "_")

xName = Replace(xName, "]", "_")

If Len(xName) > 31 Then

xName = Left(xName, 31)

End If

xWs.Name = xName

xWs.Range("A1").Select

xWs.Paste

xObjDoc.Close

Set xObjDoc = Nothing

xWdApp.DisplayAlerts = True

xWdApp.ScreenUpdating = True

xWdApp.Quit (wdDoNotSaveChanges)

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

6. Press the F5 key to run the VBA code. A Kutools – Please Select the dialogue box that will open. Choose the Word document you wish to convert to Excel, and hit the Open button.