[求助]提取文本框中的内容

xlf512

我想把word中的所有文本框中的内容提取出来，放到word中原文本框（左上顶点的这一行）的地方，或者将文本框转化为文字，请问如何解决。 我写了一段代码，在文本框中作了一个标记，但粘贴过来的文字不在文本框原来的位置，而在word的第一行，应如何解决这个问题呢？ Sub CoverText() Dim i As Shape, MyString As String Application.ScreenUpdating = False With ActiveDocument For Each i In .Shapes i.TextFrame.TextRange.InsertBefore "文本框(" i.TextFrame.TextRange.InsertAfter ")文本框" i.TextFrame.TextRange.WholeStory i.TextFrame.TextRange.Cut i.Delete Selection.Paste Next End With Application.ScreenUpdating = True End Sub 详细说明见附件 O0KdT3hE.rar (2.9 KB, 下载次数: 72)

2005-12-21 20:40 上传

点击文件名下载附件
[求助]提取文本框中的内容

[此贴子已经被作者于2005-12-21 20:40:23编辑过]

xlf512

各位大哥请回答呀，如何将各文本框中的内容剪切出来后，放到各文本框左上顶点所在行。

上面的代码只能将它取出来，但都放在了从word文档的第一行开始的位置，应写一个什么代码呢？

守柔

上传个附件，把要求写清楚，也许大家更容易帮助你。

xlf512

多谢守柔大哥，已上传附件，请指点！

守柔

附件中的第二个文本框，你的锁定段落有问题。

请参考：

Sub Example()
Dim i As Shape, myText As String, myRange As Range
On Error Resume Next
Application.ScreenUpdating = False
For Each i In Me.Shapes
myText = "文本框（" & i.TextFrame.TextRange.Text & "）文本框"
Set myRange = i.Anchor.Paragraphs(1).Range
myRange.InsertBefore VBA.Replace(myText, Chr(13), "")
i.Delete
Next
Application.ScreenUpdating = True
End Sub

xlf512

谢谢守柔大哥，问题解决了。

ssq1109

守柔大侠的代码运行速度很快,但我昨天编译时下面一句通不过(Me好像不能用在VBA吧!):

For Each i In Me.Shapes

我将其改写为:

For Each i In Word.ActiveDocument.Shapes

编译运行均OK!

现在有2个问题:
1. 文档中有些文本框是由多个文本框组合而成的,且可能有多级组合〔如有两个文本框先组合了(令为A),后来又加了一个文本框(令为B),将A和B又组合成一个大组合〕,运行以上代码时只会将这样的组合式文本框删除,但若手工彻底解除组合(包括解除多级组合)后,才能得到其中的文本。能不能在程序中加进彻底解除组合(包括解除多级组合)的功能呢?
2. 按以上代码运行时只能提取文本框中的文本,如文本框中含有格式,如包含上下标,由公式编辑器生成的公式(如分式、根式)等,能否将带格式的文本一起提出来呢?

yuandongei

刚好有需要用的代码，学习了，也有共同的疑问，希望有人来解答。

jjmysjg

守柔 发表于 2005-12-22 04:22
附件中的第二个文本框，你的锁定段落有问题。
请参考：
Sub Example()    Dim i As Shape, myText As Str ...

word 文档，文本框里的表格如何导出到excel中.rar (323.84 KB, 下载次数: 4)

2020-7-24 05:31 上传

点击文件名下载附件

同文件夹里有word文档，是从PDF文件转换进入word的，每页的表格都包含在文本框中。
如何批量将word文档中的多页文本框里的内容导入到本EXCEL中。
此表是逐个复制的，300多页，量太大。