VBA即用型代码手册:段落Paragraphs

B站影视 欧美电影 2025-08-11 02:13 3

摘要:我给VBA下的定义:VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率,而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

我给VBA下的定义:VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率,而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想,积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木,同时讲解了如何搭建。为了让学员拥有更多的积木,我开始着手这部VBA即用型代码手册(汉英)》的创作这部手册约600页,集合约500多个的案例,案例我用汉语和英语同时发布,一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识,另一方面,大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是: VBA即用型代码手册:段落Paragraphs

【分享成果,随喜正能量】229 也许,人生并不是要做成点什么,而是不断去经历一些什么。“经历”这个词的语境,提醒着人们眼前的一切都将成为过去,于是认真品尝,倍加珍惜。

1)更改文本:

change text:

ActiveDocument.Paragraphs(1).Range.Text = "VBA 学习"

2)改变样式

change its style

ActiveDocument.Paragraphs(1).Style = "Normal"

3) 更改其段落级别格式:

ActiveDocument.Paragraphs(1).LeftIndent = 10

4) 将此段与下一段保持在同一行:

keep this paragraph on the same line with next paragraph:

ActiveDocument.Paragraphs(1).KeepWithNext = True

ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphCenter

6)这是一个示例,我们在第一段上方插入一个段落,但我们仍然可以引用旧的第一段,因为它已分配给一个变量:

Here is an example where we insert a paragraph above the first paragraph, but we can still reference the old first paragraph because it was assigned to a variable:

Sub mynzParagraphExample

Dim oPara As Paragraph

Set oPara = ActiveDocument.Paragraphs(1)

MsgBox oPara.Range.Text

oPara.Range.InsertParagraphBefore 'Insert Paragraph

End Sub

7) 段落对象在循环中非常常用:

Paragraph object is very frequently used in loops:

Sub mynzLoopThroughParagraphs

Dim oPara As Paragraph

For Each oPara In ActiveDocument.Paragraphs

'do something with it. We will just display

'paragraph text if its style is "Heading 4"

If oPara.Style = "标题 1" Then

'If oPara.Style = "正文" Then

MsgBox oPara.Range.Text

End If

Next oPara

End Sub

本节内容参考程序文件:Chapter06.docm

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

来源:VBA语言专业教育

相关推荐