通过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）在标题文本的段落格式中，在＆＃34;之后增加＆＃34;间距。设置。设置用于消除相同样式的段落之间间距的选项，或者最终可能会在标题文本的所有行之间创建空格。

您可以在VBA代码中执行上述任一操作。