word文本框的批量插入删除以及word文本框链接以及异形word文本框的使...
发布网友
发布时间：2024-07-16 00:06
共1个回答
热心网友
时间：2024-08-05 20:50
word文本框的使用，可以很方便地将文档内容放置到页面的指定位置，不必受到段落格式、页面设置等因素的影响。
第一，插入word文本框
Word2010版内置多种样式的文本框供选择，也可以根据需要插入横排、竖排文本框。
单击 “插入”功能区——“文本”分组——“文本框”按钮。在打开的内置文本框面板中选择合适的文本框类型，或者是下面的“绘制文本框”和“绘制竖排文本框”，自己绘制word文本框。点击文本框按钮然后在页面按着鼠标左键拉框即可，文本框里面可以输入文字等内容。
第二，word文本框格式设置
将鼠标指针移至word文本框边框处，形状变为十字形箭头时单击，其周围出现网状边框，这时word文本框为选中状态，可删除文本框，也可进行其设置格式。
右击word文本框边框，选择“设置形状格式”，可以对插入的word文本框进行颜色、线条、大小、版式等等设置。还可以设置文字距离边界的距离。
第三，word异形文本框
Word文本框只有矩形一种，比较单调。我们也可以插入其余的形状，选中，点击右键，在快捷菜单中选择“添加文字”命令。
第四，Word 文本框与文本框之间建立链接
当需要将一篇文档分解成多个部分，又想让这多个部分保持为一个整体时，即无论在哪一部分添加或删除内容时，其他内容则会自动重排。此时可利用word文本框的链接来解决这类问题，具体操作方法如下。
第一步，在相应的位置上绘制好word文本框。选中第一个word文本框，word会出现格式选项卡，单击 “创建链接”，鼠标指针变为“水杯形状”。将鼠标指针移至第二个文本框上，鼠标指针变为倾倒的“水杯形状”，单击鼠标左键，就完成了文本框的链接。
如果不需要word文本框之间的链接，选中word文本框，单击“断开链接”。
选中第二个文本框，同样的方法，创建word文本框的链接。
提示：①链接好的文本框，如果将其中一个删除，文本会在剩余的文本框中重新填充；②横排文本框只能与横排的文本框链接，竖排与竖排的链接，不能混合链接。如果第一个是横排文本框，第二个竖排文本框，两个word文本框相连接，会出现提示框，提示：此文本框的文字排列方式与前一文本框不同，是否将此文本框的文字排列方式更改为与前一文本框一致？单击确定，都变为横排文本框了。
第五，删除word文本框
如果要删除单个的word文本框，选中，按delete即可删除。
第六，批量删除word文本框中的内容
如何去掉文字而留下word文本框？如果是需要将所有的word文本框里的文字批量删除。使用VBA代码会更效率一些：
单击开发工具——Visual Basic，打开VBE界面，插入——模块，将下面的代码复制进去，单击运行按钮或者按F5键运行即可批量删除所有word文本框里面的文字。
Sub test()
Dim sha As Shape
For Each sha In ActiveDocument.Shapes
sha.TextFrame.TextRange.Delete
Next
End Sub
第七，删除word文本框而保留文字
用第六的方法，运行下面的代码：
Sub deltextbox()
Selection.EndKey Unit:=wdStory
Dim s As Shape
For Each s In ThisDocument.Shapes
Selection.TypeText text:=s.TextFrame.TextRange.text
s.Delete
Next
End Sub
第八，删除文档中所有的word文本框
还是用第六的方法，运行下面的代码，即可批量删除所有的word文本框。
Sub test()
Selection.WholeStory
'扩展某一所选内容，使其包括整个文章 。
Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End)
'该区域的起点位于活动文档的开始处，终点位于光标的位置，然后将该区域内的方块里面的文本框删除，并且保留文字?
For Each aWord In myRange.Words
'循环文本框内所有单词
s = s & aWord.Text
Next
ActiveDocument.Range.Delete
'删除文本方块
Selection.TypeText s
'使用里面的文本来替换选取的内容
End Sub
