通过VBA excel程序在MS Word标题中的边框线之后添加页码和新行

Question

我的vba程序有点问题。

我有一个VBA excel程序来创建一个新的word文档。我想在我的word文档中添加一个Header，但我是VBA的新手。所以我不知道该怎么做。

在我的头文件中，我想从左侧的Excel中获取一些信息，右侧的页码为“Y的页面X”。还有一件事，我能够在我的标题下添加边框线，但我不知道如何在边框后添加额外的行以在标题和普通文本之间保留空格。

这里是我的代码：

Dim objword As Word.Application 
Dim mydoc As Word.document 
Dim WRng As Word.Range 
Set objword = CreateObject("Word.application") 
Set mydoc = objword.Documents.Add 

'HEADER 

Set WRng = mydoc.Sections(1).Headers(wdHeaderFooterPrimary).Range 

WRng.Text = wsexcel.Range("A5") & " " & wsexcel.Range("B5") & vbtab & **Page number of total** 
WRng.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle 

**???? Add space after the border line???** 

页眉例如

code

Answer 1

下面的任一会在你的头在底边框线后创造一个空间：

1）增加页面布局/格式中上边距的大小。 （这是纸张上边缘与页面第一行非标题文本之间的距离。）
2）在标题文本的段落格式中，增加“间距之后”设置。设置消除相同样式段落之间间距的选项，或者最终在标题文本的所有行之间创建空格。

您可以在VBA代码中执行其中任何一种。