如何用vba在word文档的开头或结尾插入任意的空白页？

插入空白页可以使用Selection对象的InsertNewPage方法。

定位文档的开头或结尾可以使用Range对象的Start和End属性。

基于以上的知识，可以使用如下的代码在word文档的开头或结尾插入任意的空白页。

Sub QQ1722187970()
    Dim oRng As Range
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    With oDoc
        .Range(.Range.End - 1).Select
    End With
    '在文档的结尾插入2页空白页
    For i = 1 To 2
        Word.Selection.InsertNewPage
    Next i
    With oDoc
        .Range(0).Select
    End With
    '在文档的开头插入2页空白页
    For i = 1 To 2
        Word.Selection.InsertNewPage
    Next i
End Sub