Question

我正在使用Visual Studio 2015并在vb.net中编码并导入Microsoft.Office.Interop.Word。我使用以下代码创建一个只有两行的单页Word文档。如何将这两条线垂直和水平居中？另外，有没有办法在两个行中放置换行符，而不是使用两个行？我对这种编程很新，所以请具体说明。感谢。

    Private Sub CreateTitlePage2()

    Dim wdApp As Microsoft.Office.Interop.Word.Application = New Microsoft.Office.Interop.Word.Application
    Dim wdDoc As Microsoft.Office.Interop.Word.Document = New Microsoft.Office.Interop.Word.Document
    Dim wdPara1 As Microsoft.Office.Interop.Word.Paragraph
    Dim wdPara2 As Microsoft.Office.Interop.Word.Paragraph

    wdDoc.Application.Visible = False

    wdPara1 = wdDoc.Content.Paragraphs.Add
    wdPara1.Range.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter
    wdPara1.Range.Font.Bold = True
    wdPara1.Range.Text = "BINDER DOCUMENT"
    wdPara1.Range.InsertParagraphAfter()

    wdPara2 = wdDoc.Content.Paragraphs.Add
    wdPara2.Format.SpaceBefore = WdVerticalAlignment.wdAlignVerticalCenter
    wdPara2.Range.Font.Bold = True
    wdPara2.Range.Text = "Created:    " + formattedDate2
    wdPara2.Range.InsertParagraphAfter()

    wdDoc.SaveAs(binderNameDoc)
    wdDoc.Close()
    wdApp.Quit()

End Sub

Answer 1

@Ross：如果你描述它“不起作用”会有所帮助。然而...

WdVerticalAlignment无效应用于段落对象，我很惊讶你没有得到编译器错误。请参阅https://msdn.microsoft.com/en-us/library/aa224305(v=office.11).aspx。

如果你想在页面上垂直居中，那么它必须通过PageSetup对象完成，然后它将应用于整个 SECTION 。见https://msdn.microsoft.com/en-us/library/office/ff838676.aspx?f=255&MSPPError=-2147217396

如果您的文档实际上只是一页，正如您所说，那么您不必担心SECTION部分，因为文档只有一页。

RE换行符：为换行符插入ANSI 11字符（vbVerticalTab）（在Word应用程序中按Shift + Enter键时得到的内容）。

如何使用vb.net？

1 个答案: