Question

目前我编写了一个加载项，它将一个值从下拉菜单设置为文档的标题。它可以进入页眉或页脚，但我的代码当前都会覆盖该部分中的所有内容。这是在发送文档或用户尝试使用模板时导致问题。知道如何制作代码＆＃39;合并＆＃39;当前有什么在上面或下面？

代码段：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    On Error GoTo err

    Dim classification As String
    Dim dc As Microsoft.Office.Interop.Word.Document

    dc = Globals.ThisAddIn.Application.ActiveDocument
    classification = "Classification: " & ComboBox1.Text

    With dc

        .ActiveWindow.View.SeekView = Word.WdSeekView.wdSeekCurrentPageHeader
        .ActiveWindow.Selection.HeaderFooter.Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
        .ActiveWindow.Selection.HeaderFooter.Range.Text = classification
        .ActiveWindow.View.SeekView = Word.WdSeekView.wdSeekMainDocument

    End With

    Me.Hide()

    Exit Sub

只是你知道你可以看到的额外代码是搜索分类目前不存在，如果是，则不显示形式（在下面设置）。

谢谢，

查尔斯

Answer 1

我认为这对任何有兴趣你可以换线的人来说....

ActiveWindow.Selection.HeaderFooter.Range.Text =分类

使用以下内容：

.ActiveWindow.Selection.HeaderFooter.Range.Text = .ActiveWindow.Selection.HeaderFooter.Range.Text + classification

然而要警告它打破了当前存在的任何格式...

VSTO Word 2010外接程序VB.net

1 个答案: