Document 里的Sections.Add能插入到指定页码中间吗

是的，通过 `Sections.Add` 方法可以插入新的 Section，并且可以通过 `Range.Start` 属性和 `Range.End` 属性指定新 Section 的起始位置和结束位置，从而将新 Section 插入到指定页码中间。具体实现可以参考下面的代码示例：

Sub InsertSectionAtPageNumber(pageNumber As Integer)
    Dim doc As Document
    Set doc = ActiveDocument
    
    Dim rng As Range
    Set rng = doc.Range
    
    ' 将 Range 移动到指定页码的起始位置
    rng.GoTo wdGoToPage, wdGoToAbsolute, pageNumber
    
    ' 插入新的 Section
    Dim newSection As Section
    Set newSection = doc.Sections.Add(rng, 1)
    
    ' 在新 Section 中添加一些内容
    Dim newRange As Range
    Set newRange = newSection.Range
    newRange.Text = "This is a new section inserted at page " & pageNumber
    
    ' 更新文档中所有 Section 的页码信息
    doc.Fields.Update
End Sub

在上面的代码中，我们首先将 Range 移动到指定页码的起始位置，然后使用 `Sections.Add` 方法在该位置插入新的 Section。接着，在新的 Section 中添加一些文本内容，并最后使用 `Fields.Update` 方法更新文档中所有 Section 的页码信息。