![531e4ea683a4dcb86b37d1fc29f9f804.png](https://img-blog.csdnimg.cn/img_convert/531e4ea683a4dcb86b37d1fc29f9f804.png)
大家好,我们今日继续讲解VBA代码解决方案的第141讲内容:利用Range 属性,设置文档的格式及改变文档的内容。在之前的几篇文章中,我先后讲了word的结构,以及段落和RANGDE的基本概念及相关的知识,今日我们讲解如何利用这些知识来完成我们的一些实际操作;
一 利用Range属性来设置某一段落的格式。
我们看下面的代码:
Sub mynzRANGGE()
Dim myrngPara As Range
Set myrngPara = ActiveDocument.Paragraphs(4).Range
With myrngPara
.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Name = "Arial"
End With
End Sub
代码截图:
![3cff4f2d001297fb254d7814a9a9c866.png](https://img-blog.csdnimg.cn/img_convert/3cff4f2d001297fb254d7814a9a9c866.png)
代码讲解:上述过程,Set myrngPara = ActiveDocument.Paragraphs(4).Range是将第四段设置为range,然后将range的内容粗体、中间对齐,字体是"Arial",过程非常的明了。这就是利用了range的属性设置来完成的。
代码运行前的界面截图:
![aaa4877167e000b5206ce58cb12d4a2f.png](https://img-blog.csdnimg.cn/img_convert/aaa4877167e000b5206ce58cb12d4a2f.png)
运行代码:
![f87d14e75f05427bbdc00506c17d2a69.png](https://img-blog.csdnimg.cn/img_convert/f87d14e75f05427bbdc00506c17d2a69.png)
定义 Range 对象后,您可以应用此对象的方法和属性修改所指定范围的内容或获取有关信息。例如,可以使用 Range 对象的 StoryType 属性来确定 Range 在文档中的位置。
二 利用range的text属性,把文档中某段文本替换:
处理 Range 对象中的文本可以使用 Range 对象的 Text 属性来指定或确定该范围包含的文本。下面就讲解一个实例:
代码:
Sub mynzTextSample()
Dim rngText As Range
Dim strNewText As String
strNewText = "利用VBA代码解决方案," _
& " 里面有编程的思想," _
& "让你受益匪浅!" & vbCrLf
Set rngText = ActiveDocument.Paragraphs(3).Range
MsgBox "你将替换的文本是:" & rngText.Text
rngText.Text = strNewText
MsgBox "ok!"
End Sub
代码截图:
![2a0e57a7d0ef5563886172022e5622f2.png](https://img-blog.csdnimg.cn/img_convert/2a0e57a7d0ef5563886172022e5622f2.png)
以上代码首先显示了 Range 对象中的文本,然后更改文本并显示新文本,请注意在 strNewText 变量中包含段落标记 (vbCrLf)
代码运行前:
![4563e07263d2464c9def14d1949b08e7.png](https://img-blog.csdnimg.cn/img_convert/4563e07263d2464c9def14d1949b08e7.png)
运行代码:
![eaf879e66f855b4b86bd83936cca964a.png](https://img-blog.csdnimg.cn/img_convert/eaf879e66f855b4b86bd83936cca964a.png)
代码运行后截图:
![d47e5e553383350ce72d86b2ce188120.png](https://img-blog.csdnimg.cn/img_convert/d47e5e553383350ce72d86b2ce188120.png)
今日内容回向:
1 利用RANGE属性,如何设置段落的格式?
2 利用RANGE属性,如何替换段落的内容?
《VBA代码解决方案》终于可以和大家见面了,是我将一些非常实用的VBA内容结集成册,PDF文件,可以从中直接查找到你想要解决问题的思路和方法,可以复制文中的VBA代码直接使用。有需要的朋友微信联络我NZ9668。
![f6be02de36d24040c4193ea459df77e4.png](https://img-blog.csdnimg.cn/img_convert/f6be02de36d24040c4193ea459df77e4.png)
![802f76a2d89dce8cde2d0157774b0706.png](https://img-blog.csdnimg.cn/img_convert/802f76a2d89dce8cde2d0157774b0706.png)
![6d36c54f05331098ca9000ef4b546dc3.png](https://img-blog.csdnimg.cn/img_convert/6d36c54f05331098ca9000ef4b546dc3.png)