请问：VBA如何复制WORD中文本框的内容？太怪了！

chenlifeng123 · 发表于 2012-5-20 00:11

本帖最后由 chenlifeng123 于 2012-5-20 00:12 编辑

1、某文档中存在文本框，我要把里面的内容全部复制了出来，用代码怎么处理？
2、该文档四周还有一个黑色的边框，也要处理掉。

谢谢！

413191246se · 发表于 2012-5-20 01:50

黑色边框处理：格式菜单——边框和底纹——页面边框——无——确定！（打开——视图菜单——页眉和页脚——可以处理页眉和页脚中的文字）
以下小宏是摘自网络，就算解决了一半问题：（星号*后面是文本框内容，楼主自己处理吧！）

Sub 提取文本框内容()
On Error Resume Next
Selection.EndKey Unit:=wdStory
Selection.TypeText Text:="**********************************************************" & vbCr

Dim s As Shape
For Each s In ActiveDocument.Shapes
Selection.TypeText Text:=s.TextFrame.TextRange.Text
Next
End Sub

chenlifeng123 · 发表于 2012-5-20 09:50

以上方法太牛了！
牛在：把所有文本框中的内容，全部读取出来，依次添加在原文档的后面。

不足，我尝试了N久，也不知道如何改进下面问题：
1、没有按文本框在文档中出现的先后顺序来排列；
2、只是在后面增加，而不是替换原来的文本框内容。

sqhsqhli · 发表于 2012-7-3 14:17

本帖最后由 sqhsqhli 于 2012-7-3 14:18 编辑

学习了。。。

yuandongei · 发表于 2013-5-11 17:09

试了下，很好，很强大！

		自动登录	找回密码
密码			免费注册

[求助] 请问：VBA如何复制WORD中文本框的内容？太怪了！

评分