请教如何提取文本框中的表格

henterwu

PDF文件转化为WORD文件后，想提取文本框中的表格。

请高手指点，谢谢！！！

如意

我没有这样置换过，但如果真的已经完全转换为可编辑的WORD文档，那就不存在任何提取的问题，进入文本框直接选中剪切、复制都行。

或者你把这个转换后的文档传上来看看。

守柔

以下是引用henterwu在2005-9-7 21:39:04的发言：

PDF文件转化为WORD文件后，想提取文本框中的表格。

请高手指点，谢谢！！！

请henterwu兄把你的WROD文件上传我看一下，因为对你的转化不是特别理解。

henterwu

因为我只想要其中的表格，又很多，每个文本框中只有一个表格，我想用VBA快速提取，然后去除非表格中的文字。把表格连起来（表格列格式相同）。

表格在单位，我明天不忘带回的话一定传上。谢谢两位！！！

henterwu

因为文件较大，只贴了两页．劳驾大师帮忙

tXyTVUTV.rar (4.49 KB, 下载次数: 28)

2005-9-12 19:40 上传

点击文件名下载附件
请教如何提取文本框中的表格

hpw

有点奇怪你是怎么转出来的？[em02]

henterwu

是PDF Converter转换来的

守柔

to 楼主：

以下是两个在文本框中表格代码的示例，其中EXAMPLE2为实现你的要求所作。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-13 4:29:52 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00018^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim i As Shape, myDoc As Document, myRange As Range, myTable As Table On Error Resume Next Application.ScreenUpdating = False Set myDoc = Documents.Add '新建一个空白文档 With myDoc For Each i In Me.Shapes '在图形中循环 If i.TextFrame.TextRange.Tables.Count = 1 Then '如果图形的文本框中有一个表格 Set myTable = i.TextFrame.TextRange.Tables(1) '定义一个表格对象为其中的第一个表格 myTable.Range.Copy '复制表格 Set myRange = .Range(.Content.End - 1, .Content.End - 1) '始终定义一个文档结束前一个字符位置 myRange.Paste '粘贴 Set myTable = .Tables(.Tables.Count) '定义一个表格对象 With myTable .PreferredWidthType = wdPreferredWidthPercent '度量单位为百分比 .PreferredWidth = 100 '宽度为100% .Style = "网格型" '样式 .Range.Font.Size = 10 '表格中的字体大小 .Range.Font.Name = "Tahoma" '表格中的字体名称 '在上方插入题注 .Range.InsertCaption Label:=wdCaptionTable, Position:=wdCaptionPositionAbove End With .Content.InsertAfter Chr(13) '使用一个空白段落以分隔 End If Next Application.ScreenUpdating = True End With End Sub '---------------------- Sub Example2() Dim i As Shape, myDoc As Document, myRange As Range, myTable As Table On Error Resume Next Application.ScreenUpdating = False Set myDoc = Documents.Add '新建一个空白文档 With myDoc For Each i In Me.Shapes '在图形中循环 If i.TextFrame.TextRange.Tables.Count = 1 Then '如果图形的文本框中有一个表格 Set myTable = i.TextFrame.TextRange.Tables(1) '定义一个表格对象为其中的第一个表格 myTable.Range.Copy '复制表格 Set myRange = .Range(.Content.End - 1, .Content.End - 1) '始终定义一个文档结束前一个字符位置 myRange.Paste '粘贴(表格自动合并为一个,因为前一表格的结束位置等于后一表格的开始位置) End If Next Set myTable = .Tables(1) '定义一个表格对象 With myTable .PreferredWidthType = wdPreferredWidthPercent '度量单位为百分比 .PreferredWidth = 100 '宽度为100% .Style = "网格型" '样式 .Range.Font.Size = 10 '表格中的字体大小 .Range.Font.Name = "Tahoma" '表格中的字体名称 End With Application.ScreenUpdating = True End With End Sub '----------------------

henterwu

谢谢!

拜读加研究!