MS Word 分页符插入错误的位置

Question

我在 VS 2008 中完全通过 C# 创建一个 MS Word 文档。我试图插入一个分页符，当插入分页符时，不是插入它并在底部添加一个新页面，而是插入休息并在顶部添加一个页面。这导致第一页是最后一页。

下面是插入分页符的代码：

                start = 0;
                end = 0;
                Word.Range rngDoc = Range(ref start, ref end);
                rngDoc.Collapse(ref CollapseEnd);
                rngDoc.InsertBreak(ref pageBreak);
                rngDoc.Collapse(ref CollapseEnd);

此外，如果这有助于诊断，则每个页面都由一个表使用

Answer 1

InsertBreak 在选择之后从不插入。注意MSDN remarks：

当您插入分页符或分栏符时，所选内容将替换为分页符。如果您不想替换所选内容，请在使用InsertBreak 方法之前使用Collapse 方法。当您插入分节符时，会立即插入分节符在Selection 对象之前。

（我的重点。）要在页面末尾休息一下，我认为您必须在文档末尾不选择任何内容（因为您在这里）。

我不记得Document 是否有自己的范围。你能从myDoc.Characters得到一个包罗万象的范围吗？

如果没有，我会尝试的第一件事是

start = int.MaxValue;
end = int.MaxValue;

如果这不起作用，您可以求助于ComputeStatistics()。像这样的：

WdStatistic stats = WdStatistic.wdStatisticCharacters;
var chars = myDoc.ComputeStatistics(stats, false);

然后根据该值创建您的范围。希望我能提供更多帮助，但对我来说已经有一段时间了。祝你好运！

Answer 2

您需要将rngDoc 设置为插入到ActiveDocument.Range 的末尾。这是一些很容易移植到 C# 的 VBA。

Sub InsertNewPageAtEndofDoc()
    Dim rng As Range
    Dim adRange As Range
    Set adRange = ActiveDocument.Range
    Set rng = ActiveDocument.Range(adRange.Start, adRange.End)
    rng.Collapse (wdCollapseEnd)
    rng.InsertBreak (wdPageBreak)
    rng.Collapse (wdCollapseEnd)
End Sub

Answer 3

我使用了 Todds 方法，但在 vb.net 中：

Private Sub InsertNewPageAtEndofDoc(app As Word.Application)
        Dim rng As Word.Range
        Dim adRange As Word.Range
        adRange = app.ActiveDocument.Range
        rng = app.ActiveDocument.Range(adRange.Start, adRange.End)
        rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
        rng.InsertBreak(Word.WdBreakType.wdPageBreak)
        rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
End Sub

Answer 4

我不是这方面的专家，所以这只是一个猜测，虽然你选择了一个从 0 到 0 的范围然后折叠它，但这看起来有点奇怪。从 0 到 0 的范围听起来像是文档的开头，我猜您需要选择文档的最后一位，但不知道该怎么做。