跳到主要内容

如何在Word中将多个表转换为文本?

如果文档中有很多表,并且您想将它们转换为文本,那么如何快速完成呢? 本教程将向您展示一些技巧,可以快速将多个表转换为Word中的文本。

一张一张地将表格转换为文本

使用VBA将所有表转换为文本

使用Kutools轻松将多个表转换为文本


箭头蓝色右气泡 一张一张地将表格转换为文本

Office Word提供了将表转换为常规文本的功能,但一次只能应用于一个表。

Office 选项卡:为 Word、Excel、PowerPoint 带来选项卡式界面...
ot字中间广告100
立即增强您的工作流程。      了解更多       免费下载

步骤1:在要转换的表格中选择或放置光标;

步骤2:前往 布局 标签下的 表工具和点击 转换成文字 in 时间 组;

文档表到文本 1

步骤3:选择标记样式以分隔表格单元格;

文档表到文本 2

步骤4:点击 OK Word将表转换为文本;

步骤5:重复步骤1至步骤4,直到所有表都转换完毕;


箭头蓝色右气泡 使用VBA将所有表转换为文本

VBA可以将所有文档表转换为文本。

步骤1:按“ALT-F11”以打开“ Microsoft Visual Basic for Application”窗口;

步骤2:点击 模块插页 选项卡,将以下VBA代码复制并粘贴到“模块”窗口中;

步骤3:点击 运行 按钮以应用VBA。

用于将所有表转换为文本的VBA代码:

子TablesToText()
如表所示
对于ActiveDocument.Tables中的每个tbl
tbl.ConvertToText
分隔符:= wdSeparateByTabs
下一个tbl
设置tbl =否
END SUB


箭头蓝色右气泡 使用Kutools轻松将多个表转换为文本

将多个表一张一张地转换为文本是很费时的,并且VBA代码始终提供一种将文档中所有表分开的方法。 Kutools可以轻松地将所有表格从选择或整个文档转换为普通文本。 并且它与Word使用相同的功能接口,以向用户提供不同的方式来分隔表单元格。

Kutools for Word,一个方便的加载项,包括多组工具,可简化您的工作并增强处理Word文档的能力。 免费试用45天! 立即行动吧!!

点击 库工具 >>点击 表到文字 in

文档表到文本 3

要转换一个选择或整个文档的多个表格,请先选择文档或整个文档的一部分,然后通过单击Kutools >> Table to Table in Text来应用该实用程序,并在转换为后为常规文本选择定界符将表转换为文本对话框。

欲了解更多信息,请访问: 将多个表转换为文本.


最佳办公生产力工具

Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!

深入了解下面突出显示的功能或 单击此处探索 Kutools for Word 的全部功能.

📘 文档掌握: 分页  /  合并文件  /  以各种格式导出选择(PDF/TXT/DOC/XLSX)  /  批量转换为PDF  /  将页面导出为图像  /  一次打印多个文件 ...

内容编辑: 批量查找和替换 跨多个文件   /  调整所有图片的大小   /  转置表行和列  /  将表格转换为文字 ...

🧹 轻松清洁扫开 多余的空间  /  分节符  /   所有标题  /  文本框  /  超链接  /  如需更多删除工具,请前往我们的删除组

创意插入: 插页 千位分隔符  /  复选框  /  单选按钮  /  二维码  /  条码  /  对角线表  /  公式标题  /  图片说明  /  表标题  /  多张图片  /  在我们的插入组中发现更多信息

🔍 精准选择: 精确定位特定页面  /    /  形状  /  标题段落  /  使用我们的选择组轻松导航

星级增强: 快速导航至任何位置  /  自动插入重复文本  /  在文档窗口之间无缝切换  /  11 转换工具 ...

使用 Kutools 转换您的 Word 任务。 👉 立即下载并试用 30 天 🚀。

了解更多       免费下载      购买
 
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
After running the VBA code, MS Word has changed. I no longer have access to VBA tools, and the font is larger. I don't know what else has changed yet. What do I do now?
This comment was minimized by the moderator on the site
Thank you for this! it is appreciated!
This comment was minimized by the moderator on the site
The correct code as follows: Sub TablesToText() Dim tbl As Table For Each tbl In ActiveDocument.Tables tbl.ConvertToText Separator = wdSeparateByTabs Next tbl Set tbl = Nothing End Sub
This comment was minimized by the moderator on the site
thank you, now it works
This comment was minimized by the moderator on the site
please kindly let me know "what is the code for change only selected tables to text in word?"
This comment was minimized by the moderator on the site
Thank you. It worked.
This comment was minimized by the moderator on the site
Thank you. It works!!
This comment was minimized by the moderator on the site
Here's a code that works: Sub AllTablestoText() ' ' AllTablestoText Macro ' Macro created by Jarosław Michalak ' For Each aTable In ActiveDocument.Tables aTable.ConvertToText wdSeparateByCommas, True Next aTable End Sub Source: http://howto.wikispaces.umb.edu/Convert+all+tables+to+text
This comment was minimized by the moderator on the site
The VBA code isn't working.. when I press F5 for execution, it says "Compile error; syntax error;"
This comment was minimized by the moderator on the site
I think lines 4 and 5 of the VBA code above should be combined: tbl.ConvertToText Separator:=wdSeparateByTabs
This comment was minimized by the moderator on the site
Thank you SImon! It works.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations