通过VBA excel程序在MS Word标题中的边框行之后添加页码和新行
我的vba程序有点问题。
我有一个VBA excel程序来创build一个新的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???** 标头示例
码
以下任何一项都会在标题的下边框之后创build一个空格：
1）增加页面布局/格式中上边距的大小。 （这是纸张上边缘和页面上第一行非标题文本之间的距离。）
2）在标题文本的段落格式中，增加“间隔后”设置。 设置消除相同样式段落之间的间距的选项，或者您可能最终在标题文本的所有行之间创build空间。
你可以在你的VBA代码中执行其中的任何一个。