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.
