提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

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

如果文档中有很多表格,并且想要将它们转换为文本,那么您如何快速完成它? 本教程将向您展示一些在Word中将多个表格快速转换为文本的棘手方法。

将表格逐一转换为文字

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

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


箭头蓝色右泡 将表格逐一转换为文字

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

热卖
惊人! 使用Word(Office)中的高效选项卡,如Chrome,Firefox和新Internet Explorer!

了解更多 免费下载

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

步骤2:去 布局 标签下的 表工具和点击 转换为文本 in 数据 组;

DOC-表到文本,1

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

DOC-表到文本,2

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

步骤5:重复步骤1,直到所有表都转换为止,步骤4;


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

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

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

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

步骤3:点击 按钮来应用VBA。

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

Sub TablesToText()
Dim tbl As Table
对于每个tbl在ActiveDocument.Tables中
tbl.ConvertToText
分离器:= wdSeparateByTabs
下一个tbl
设置tbl =无
END SUB


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

将多个表逐个转换为文本是非常耗时的,而VBA代码始终提供了一种将文档中的所有表分开的方法。 Kutools可以很容易地将选择或整个文档中的所有表格转换为常规文本。 它使用与Word相同的函数接口为用户提供不同的方法来分离表格单元格。

Kutools for Word,一个方便的插件,包括工具组,以减轻您的工作,并提高您的能力处理word文档。 免费试用45天! 现在加入!

点击 Kutools >>点击 表格到文本 in

DOC-表到文本,3

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

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




推荐的Word生产力工具

Kutools For Word - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在Doc和Docx,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Scott · 4 months ago
    Thank you for this! it is appreciated!
  • To post as a guest, your comment is unpublished.
    Suresh · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    cartography · 3 years ago
    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
  • To post as a guest, your comment is unpublished.
    Milind Gautam · 4 years ago
    The VBA code isn't working.. when I press F5 for execution, it says "Compile error; syntax error;"
  • To post as a guest, your comment is unpublished.
    Simon · 5 years ago
    I think lines 4 and 5 of the VBA code above should be combined:

    tbl.ConvertToText Separator:=wdSeparateByTabs