vb.net - 使用 Microsoft.Office.Interop.Word 时强加页码

Question

我有以下 VB.Net 代码来创建 Microsoft Word 文档。如何强加页码？

Imports Word = Microsoft.Office.Interop.Word

Dim wordApp As Word._Application = New  _
Word.ApplicationClass()

Dim wordDoc As Word._Document = _
    wordApp.Documents.Add()

Dim para As Word.Paragraph = wordDoc.Paragraphs.Add()
para.Range.Text = "First Page Content."
para.Range.InsertParagraphAfter()

para.Range.InsertBreak()

para.Range.Text = "Second Page Content."
para.Range.InsertParagraphAfter()

Answer 1

你可以试试：

 'wdAlignPageNumberCenter=1
 wordDoc.Sections(1).Footers(1).PageNumbers.Add (1)