2 wangf1978 wangf1978 于 2014.11.08 17:48 提问

如何用vba去除word文档表格,只保留文本?

两种表格:

1.
1 2 3 4 5 6
A B C D E F
7 8 9 10 11 12
G H I J K L

2.
1 A 7 G
2 B 8 H
3 C 9 I
4 D 10 J
5 E 11 K
6 F 12 L

有没有方法用vba将表格去除,按照以下格式保留文本?

1.A 2.B 3.C 4.D 5.E 6.F 7.G 8.H 9.I 10.J 11.K 12.L

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!
其他相关推荐
在移除 Word 文档样式的同时保留格式
样式(style)是 Word 中用于快速更改文本格式的功能。将一种样式应用于文档中不同段落之后,只需更改一次该样式,即可同时更改这些文本的格式。同时,样式还能使文档结构化,指定不同「标题」层次的样式后,即可快速生成目录。 但样式有时也会带来麻烦。例如,需要将别人传过来的多份 Word 文档进行整合、统一其格式时,他人文档中预设的样式可能会给排版造成混乱和不便。但是,如果一刀切地将其粘贴为纯
Excel用vba自动生成word
Sub GenDocfromExcel() 'excel控制word,生成新文件,插入图片和文件名,保存 'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library 'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library '... Range("A1:B
Word 粘贴仅保留文本
Word 默认是保留原格式粘贴的 但是对应程序员来说 文本才是更方便的选择文件 选项 高级 改成仅保留文本
通过VBA将excel数据导入至word文档
通过VBA将excel数据导入至word文档
VBA从excel读出数据写到word表格指定位置
这个文件是接着上一个,深化了一些,可以从excel中读出数据,写到word的格式化好的表格中。可以帮助大家好好的利用代码操作word,生成的word文档保存在d盘根目录下 文章介绍: http://blog.csdn.net/lg836/archive/2009/01/13/3769883.aspx
使用VBA将Excel数据导入到Word的表格中
    现要求将一个Excel数据表中的每行数据导成一个Word文档,即有多少行数据就生成多少个Word文档,Excel每列与Word文档中的表格项一一对应。    前置工作:将Word文档空表格当然模板文档做好,与工作Excel置于同一路径下。
如何在Excel VBA 中读写word文档 步骤
1. 库的配置 在默认情况下,新创建的excel vba中不支持定义word对象。 所以需要先引入word库,操作步骤如下: 1.1 打开excel vba 界面 1.2 选中其中的一个Module 1.3 选择菜单, Tools --> References         在打开的对话框中选择类似 "Microsoft Word 14.0 Object Library". 1.
Excel vba从excel中导出表格数据和图表到新word文档
office应用程序是可以相互访问的,比如可以把excel的数据导出到word中 step1: 首先要引用word工程对象,在excelvba中依次点击 工具——》引用——》microsoft word 11.0 library 如果是2007版本,应该选择12.0;2010版本,选择14.0 vba从excel中导出表格数据和图表到新word文档" title="exce
【一步一步学习VBA】WORD 中创建表格并插入文本
Sub create() ' ' create 宏 ' ' Dim docActive As Document     Dim tblNew As Table     Dim celTable As Cell     Dim intCount As Integer     Set docActive = ActiveDocument     Set tblNew = docAc
vba 操作Word-更新word内容
Dim docPath As String    Dim wordApp As New Word.Application    Dim wordDoc As New Word.Document    Private Sub CmdSelectDic_Click() Unload MeEnd SubPrivate Sub List_file(oPath As String)