word文本框的批量插入删除、以及word文本框链接,以及异形word文本框的使用

word文本框的批量插入删除、以及word文本框链接,以及异形word文本框的使用


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


本文摘自:https://www.office26.com/word/word_6046.html,感谢原作者!

© 版权声明
THE END
喜欢就支持一下吧
点赞15 分享