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

Question

我的 vba 程序有一点问题。

我在 VBA excel 中有一个程序来创建一个新的 word 文档。我想在我的word文档中添加一个标题，但我是word中的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???** 

header 示例



code

Answer 1

以下任何一项都会在标题的底部边框线之后创建一个空格:

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

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