本文说明了如何将word文档转换为excel电子表格，但保持相同的格式。 假设你需要对word文档中的数据进行格式化或排序，显然，excel是更好的选择。 幸运的是，你不必在新的excel文件中重新输入数据。 你只需将word文档转换为excel电子表格，同时保持格式化。 下面的图片突出了本文的目的。 快速浏览一下，就能轻松学会如何做到这一点。

下载实践工作手册

你可以从下面的下载按钮下载实践工作手册。

Word到Excel的转换.xlsm

用同样的格式将Word转换为Excel的2种方法

想象一下，你有下面这个word文档，现在你想把它转换成excel电子表格，那么就按照下面的方法操作吧。

1.用复制粘贴将Word转换为Excel

你可以简单地从word文档中复制数据并粘贴到excel表上。 按照下面的步骤来做。

📌 阶梯

• 首先，进入word文件。 然后，按 CTRL+A 如果需要，你也可以只选择一个特定的范围。
• 之后，按 CTRL+C 来复制数据，如下图所示。

• 接下来，进入excel电子表格，然后选择你想获得数据的区域的左上角单元格。
• 现在，按 CTRL+V 粘贴数据。 或者，你可以右键单击该单元格。 然后，选择 保持源格式化 (K) 从 粘贴选项 .
• 之后，你会得到以下结果。

阅读更多。 如何从Word复制到Excel的多个单元格（3种方法）

2.用VBA将Word转换为Excel

你可以用Excel VBA做同样的事情。 按照下面的步骤来做。

📌 阶梯

• 首先，添加一个新的工作表。 然后，将工作簿保存为 支持宏的工作簿 .
• 接下来，按 ALT+F11 来打开VBA窗口。
• 然后，选择 插入>> 模块 来创建一个新的模块，如下图所示。

• 之后，使用复制按钮复制以下代码。

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

• 然后，将复制的代码粘贴到模块窗口，如下图所示。

• 现在，按 F5 来运行代码。 你也可以从 运转
• 之后，你将被要求选择你要转换的word文件。
• 现在，浏览到你想要的word文档的位置。 然后，选择该文件并点击 开放式 .

• 最后，你会得到一个与前面的方法类似的结果。

🔎 代码是如何工作的？

Sub WordToExcelWithFormatting()

Dim Document, Word As Object

Dim File As Variant

昏暗的PG，范围

宣布必要的变量。

Application.ScreenUpdating = False

文件 = Application.GetOpenFilename _

("Word文件(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - 请选择" )

If File = False Then Exit Sub

Set Word = CreateObject("Word.Application")

这设置了 词语 变量作为一个word文档。

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

这指定了 文件 变量到用户所指的对象或文件。

文档.激活

PG = Document.Paragraphs.Count

这一行代码指定了 医学博士 变量为word文档中的段落数

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

范围.选择

出错时恢复下一步

Word.Selection.Copy

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

文档.关闭

Word.退出（wdDoNotSaveChanges）。

Application.ScreenUpdating = True

结束子程序

阅读更多。 如何将Word表格转换为Excel电子表格（6种方法）

需要记住的事情

• 你也可以将word文件保存为PDF，然后用你的PDF编辑器将其转换为Excel电子表格。
• 不要忘记将工作簿保存为 .xlsm 否则，你将失去代码。

总结

现在，你知道了如何将word文档转换为excel电子表格并保留格式。 如果这篇文章帮助你解决了问题，请让我们知道。 你也可以使用下面的评论部分来进一步询问或建议。 请访问我们的 ǞǞǞ 请与我们保持联系，继续学习。