如何用PowerShell在Microsoft Word中批量创建对应索引的书签？

直接用Word COM对象实现，比PSWriteWord更灵活，能精准定位文本和操作书签：

实现步骤与代码 #

# 定义处理单个Word文档的函数
function Process-WordBookmarks {
    param(
        [Parameter(Mandatory=$true)]
        [string]$FilePath
    )

    # 创建Word应用实例，后台运行
    $word = New-Object -ComObject Word.Application
    $word.Visible = $false
    $word.DisplayAlerts = 0 # 关闭所有提示框

    try {
        $doc = $word.Documents.Open($FilePath)
        $indexEntries = @()

        # 第一步：提取开头的索引条目（格式：数字. 文本）
        foreach ($paragraph in $doc.Paragraphs) {
            $text = $paragraph.Range.Text.Trim()
            # 匹配以数字+句号开头的行
            if ($text -match '^(\d+)\.\s*(.*)$') {
                $indexEntries += [PSCustomObject]@{
                    IndexNumber = $matches[1]
                    IndexText = $matches[2].Trim()
                    IndexRange = $paragraph.Range
                }
            }
            # 假设索引结束于第一个非索引行，可根据实际情况调整终止条件
            elseif ($indexEntries.Count -gt 0 -and $text -notmatch '^\d+\.\s*') {
                break
            }
        }

        # 第二步：遍历索引条目，找到对应章节位置并创建书签、添加超链接
        foreach ($entry in $indexEntries) {
            $targetPattern = "^\($($entry.IndexNumber)\)\s*$($entry.IndexText)"
            $found = $false

            foreach ($paragraph in $doc.Paragraphs) {
                $text = $paragraph.Range.Text.Trim()
                if ($text -match $targetPattern) {
                    # 创建书签
                    $bookmarkName = "Section_$($entry.IndexNumber)"
                    # 先删除已存在的同名书签避免冲突
                    if ($doc.Bookmarks.Exists($bookmarkName)) {
                        $doc.Bookmarks.Item($bookmarkName).Delete()
                    }
                    $doc.Bookmarks.Add($bookmarkName, $paragraph.Range)

                    # 给索引条目添加超链接到书签
                    $entry.IndexRange.Hyperlinks.Add(
                        $entry.IndexRange,
                        "", # 空表示指向本文档书签
                        $bookmarkName
                    )
                    $found = $true
                    break
                }
            }

            if (-not $found) {
                Write-Warning "文档 $FilePath 中未找到索引条目 [$($entry.IndexNumber). $($entry.IndexText)] 对应的章节"
            }
        }

        # 保存文档并关闭
        $doc.Save()
        $doc.Close()
        Write-Host "已处理完成：$FilePath"
    }
    catch {
        Write-Error "处理文档 $FilePath 时出错：$_"
        if ($doc) { $doc.Close($false) } # 不保存关闭
    }
    finally {
        # 清理COM对象，避免Word进程残留
        [System.Runtime.Interopservices.Marshal]::ReleaseComObject($doc) | Out-Null
        [System.Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null
        [System.GC]::Collect()
        [System.GC]::WaitForPendingFinalizers()
    }
}

# 批量处理指定文件夹下的所有docx文件
$targetFolder = "C:\你的Word文档文件夹路径"
Get-ChildItem -Path $targetFolder -Filter *.docx | ForEach-Object {
    Process-WordBookmarks -FilePath $_.FullName
}

注意事项 #

• 修改$targetFolder为你的实际文档文件夹路径
• 索引的终止条件可根据文档结构调整：当前代码假设索引结束于第一个非“数字. ”开头的行，如果你的索引有固定结束标记（比如“目录结束”），可以改成匹配该标记来终止提取
• 书签命名用了Section_数字的格式，避免与现有书签重名
• 运行前关闭所有打开的Word文档，避免COM对象冲突
• 处理大文档时可能需要稍等，后台运行无界面

内容的提问来源于stack exchange，提问作者Josh