vba实现如何清除文本框的所有内容：用VBA删除及添加文本或者段落
vba实现如何清除文本框的所有内容：用VBA删除及添加文本或者段落其中expression为一个代表Selection对象的变量语法：expression.TypeParagraph语法：expression.TypeBackspace其中expression为一个代表Selection对象的变量。这个方法插入一个新的空段落。
【分享成果，随喜正能量】为人处世，善多了，恶就少了；恶多了，善就少了。如果我们能时时向善，遇谁都是贵人，走到哪里都心安。。
《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容第七章 “Word中的Selection对象”的第6节：用VBA删除及添加文本或者段落
大家好，我们这节继续Selection对象方法的讲解，在上节中学习了Selection对象的ClearFormatting方法、Copy方法及Paste方法。这节我们将学习到Selection对象的TypeBackspace方法、TypeParagraph方法、TypeTex方法。
1 Selection.TypeBackspace方法这个方法删除折叠的选定内容（即一个插入点）前面的字符。
语法：expression.TypeBackspace
其中expression为一个代表Selection对象的变量。
- 本方法与 Backspace 的功能相同。 如果选定内容没有折叠为一个插入点，则删除选定内容。
这个方法插入一个新的空段落。
语法：expression.TypeParagraph
其中expression为一个代表Selection对象的变量
- 本方法与 Enter 的功能相同。 如果选定内容没有折叠为一个插入点，则新段落取代选定内容。
- 用 InsertParagraphAfter 或 InsertParagraphBefore 方法可插入一个新段而不删除选定内容。
这个方法插入指定的文本。
语法：expression.TypeText(Text)
其中expression为一个代表Selection对象的变量
参数：Text 必需 String 要插入的文本。
- 如果ReplaceSelection属性为True，则用指定文本替换选定内容。如果 ReplaceSelection 为 False，则在选定内容之前插入指定的文本。
在这个实例中，我们会看到如何删除字符，如何添加字符，如何删除一个段落，如何添加一个段落。看下面的代码：
Sub mynzE()
'将光标指向最未
t = ActiveDocument.Content.End - 1
Set myRange = ActiveDocument.Range(Start:=t End:=t)
myRange.Select
'删除插入点（折叠的选定内容）前面的字符。
With Selection
.Collapse Direction:=wdCollapseEnd
'删除两个字符
.TypeBackspace
.TypeBackspace
End With
'将选定内容扩展到当前段落的开始，然后删除选定内容。
t = ActiveDocument.Content.End - 1
Set myRange = ActiveDocument.Range(Start:=t End:=t)
myRange.Select
With Selection
'扩展区域到段落开始
.StartOf Unit:=wdParagraph Extend:=wdExtend
'删除段落
.TypeBackspace
End With
'设置ReplaceSelection属性
Options.ReplaceSelection = False
'将选定内容折叠至末尾，插入文本“【我的心情】”，然后在其后插入一个新段落。
Set myRange = ActiveDocument.Paragraphs(3).Range
myRange.Select
With Selection
.Collapse Direction:=wdCollapseEnd
'插入文本
.TypeText Text:="Title"
.TypeParagraph
End With
Options.ReplaceSelection =TRUE
End Sub
代码截图：
代码的运行效果，代码运行前 的各个段落：
代码运行后：
今日内容回向：
1 Word中Selection对象的TypeBackspace方法、TypeParagraph方法、TypeTex方法的意义是什么？
2 如何利用VBA删除及添加文本或者段落？
本讲内容参考程序文件：Doc 007文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：
【分享成果，随喜正能量】凡所执念，皆成束缚。欲望太多，执念太深，太过放纵，就会成为负累，束缚着你前行。倒不如随时整理自己的内心，多多约束自己的言行，方能轻松上阵。。
