如何用PowerShell在Word指定位置（如第2页）嵌入文本？含Office2010/2016方案

嘿，刚好我之前折腾过PowerShell操作Word插入指定位置文本的需求，不管是你现在用的Office 2010（搭配PS4/.Net4/Win7），还是后续要适配的Office 2016，核心思路都是用Word的Range对象精准定位，咱们一步步来：

Word里所有内容的插入/修改都是基于Range对象的——默认直接操作$doc.Content会把文本塞到文档顶部，而我们需要先定位到第2页对应的Range，再往里面插内容。

Office 2010 实现方案 #

先确保你的文档至少有2页（如果是新建文档，得先插分页符造出第2页），然后用GoTo方法定位到第2页的起始位置，再创建对应的Range：

# 初始化Word应用
$word = New-Object -ComObject Word.Application
$word.Visible = $true # 调试时打开可视化，发布时可以设为$false

# 新建文档（也可以用$word.Documents.Open("你的文档路径")打开现有文档）
$doc = $word.Documents.Add()

# 先造出第2页：在第1页末尾插入分页符
$doc.Content.InsertAfter("第1页的默认内容`r`n")
$doc.Content.InsertParagraphAfter()
$doc.Content.InsertBreak([Microsoft.Office.Interop.Word.WdBreakType]::wdPageBreak)

# 定位到第2页的起始位置
$page2Start = $doc.GoTo(
    [Microsoft.Office.Interop.Word.WdGoToItem]::wdGoToPage,
    [Microsoft.Office.Interop.Word.WdGoToDirection]::wdGoToAbsolute,
    2
)

# 创建第2页的目标Range（这里是从第2页开头到结尾，你可以按需调整起止位置）
$targetRange = $doc.Range($page2Start.Start, $page2Start.End)

# 插入文本+设置格式
$targetRange.Text = "这是第2页指定位置的文本"
$targetRange.Font.Size = 14
$targetRange.Font.Bold = $true

# 收尾：释放COM对象，避免Word进程残留
# $word.Quit()
# [System.Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null
# Remove-Variable word

如果需要插入到第2页的具体位置（比如第2段末尾），可以在定位到第2页后，再用GoTo定位到段落，或者通过$doc.Paragraphs索引来获取对应段落的Range。

Office 2016 实现方案 #

Office 2016的COM对象和2010高度兼容，核心逻辑不变，但可以用更灵活的方式处理，比如先判断文档页数是否足够，再插入内容：

# 初始化Word应用
$word = New-Object -ComObject Word.Application
$word.Visible = $true

# 打开现有文档或新建
$doc = $word.Documents.Add()

# 自动判断是否需要创建第2页
if ($doc.ComputeStatistics([Microsoft.Office.Interop.Word.WdStatistic]::wdStatisticPages) -lt 2) {
    $doc.Content.Text = "第1页内容`r`n"
    $doc.Content.InsertBreak([Microsoft.Office.Interop.Word.WdBreakType]::wdPageBreak)
}

# 定位到第2页起始，创建插入用的Range（这里用插入后而非覆盖的方式）
$page2Range = $doc.Range()
$page2Range.GoTo(
    [Microsoft.Office.Interop.Word.WdGoToItem]::wdGoToPage,
    [Microsoft.Office.Interop.Word.WdGoToDirection]::wdGoToAbsolute,
    2
)

# 从第2页起始位置插入文本（不会覆盖原有内容）
$targetRange = $doc.Range($page2Range.Start, $page2Range.Start)
$targetRange.InsertAfter("Office 2016下第2页的指定文本")
$targetRange.Font.Color = [Microsoft.Office.Interop.Word.WdColor]::wdColorBlue

# 收尾释放对象
# $word.Quit()
# [System.Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null
# Remove-Variable word

进阶技巧：用书签精准定位 #

如果后续文档页数可能变化，用书签比指定页码更靠谱：

1. 提前在Word模板里给需要插入的位置添加书签（比如命名为InsertHere）
2. 在脚本里直接获取书签对应的Range：

$targetRange = $doc.Bookmarks["InsertHere"].Range
$targetRange.Text = "通过书签定位的文本"

内容的提问来源于stack exchange，提问作者Mr. Annoyed