专业编程培训机构——完成蜕变以后轻松拿高薪

电话+V：159999-78052 ，欢迎咨询wordvba添加到样式库怎么弄，[python实用课程]，[C++单片机原理]，[C#网站搭建]，[Nodejs小程序开发]，[ios游戏开发]，[安卓游戏开发]，[教会用大脑用想法赚钱实现阶层跨越]

一、vba和word文档连接时需要引用什么库

连接VBA和Word文档时，需要引用MicrosoftWord对象库。

二、如何使用VBA实现一键排版Word文档

使用VBA实现一键排版Word文档的步骤如下：

1.打开Word中的VBA编辑器，通过Alt+F11快捷键。

2.插入新模块，右键单击项目选择“插入”->“模块”。将以下代码复制并粘贴到模块中：

SubFormatDocument()'设置字体和大小Arial，12ptActiveDocument.Content.ParagraphFormat.LineSpacingRule=wdLineSpace1pt5'设置页边距2cmActiveDocument.PageSetup'设置页面方向为横向ActiveDocument.PageSetup.Orientation=wdOrientLandscape'设置页眉和页脚文本ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text="页眉文本"ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text="页脚文本"EndSub

3.保存模块并返回Word文档。

4.打开宏对话框，按下Alt+F8。

5.选择“FormatDocument”宏并单击“运行”，应用格式至整个文档。

Word中VBA代码的利用，使用InsertParagraphAfter方法插入新段落

2019-05-1900:04·VBA语言専攻

大家好，我们今日继续讲解VBA代码解决方案的第142讲内容：在wordVBA中InsertParagraphAfter方法的利用。在前几节的WORDVBA介绍中，我们讲解了一些简单的VBA语句，如何打开一个文件，如何设置段落的格式，今日讲的是一个InsertParagraphAfter方法把几个知识点给结合一下。还是以实例来讲解，我们要首先新建一个文档，并将相同的段落插入10次。然后设置新文档的垂直对齐方式，使10个段落在上边距和下边距之间等距排列。

在讲解之前，我们先来看看InsertParagraphAfter方法的应用：

InsertParagraphAfter方法可以在在范围之后插入段落标记。

语法expression.InsertParagraphAfter

参数：expression是必需的表示"Range"对象的变量。

说明:在应用此方法之后，该范围会扩展，以包含新段落。

SubmynzInsertBeforekk()

SetmyRange=ActiveDocument.Range(0，0)

WithmyRange

.InsertBefore"VBA学习方法"

.ParagraphFormat.Alignment=wdAlignParagraphCenter

.InsertParagraphAfter

EndWith

EndSub

上述代码会在抬头添加"VBA学习方法"，单独的一段，设置为中间对齐：

代码截图：

运行前的截图：

运行后：

我们再看看本文开始的示例要求，我们要首先新建一个文档，并将相同的段落插入10次。然后设置新文档的垂直对齐方式，使10个段落在上边距和下边距之间等距排列。代码如下：

SubmynzInsert()

SetmyDoc=Documents.Add

WithmyDoc.Content

ForI=1To9

.InsertAfter"VBA代码解决方案"I

.InsertParagraphAfter

NextI

.InsertAfter"VBA代码解决方案"I

EndWith

myDoc.PageSetup.VerticalAlignment=wdAlignVerticalJustify

EndSub

截图：

运行：

好了，今日的内容就讲到这里了，今日内容回向：

1InsertParagraphAfter方法的意义是什么？

2如何设置段落的格式?

【WINDRISES EMPLOYMENT PROGRAMMING】尊享对接老板

电话+V：159999-78052

机构由一批拥有10年以上开发管理经验，且来自互联网或研究机构的IT精英组成，负责研究、开发教学模式和课程内容。公司具有完善的课程研发体系，一直走在整个行业发展的前端，在行业内竖立起了良好的品质口碑。