如何使用PowerShell替换Word文档中文本框内表格中的文本？

你碰到的问题很明确——当前代码只处理了文本框的顶层文本内容，完全没触及到文本框里嵌套的表格。咱们只需要在处理文本框的逻辑里，加上对表格及其单元格的遍历，就能搞定这个问题了。

先看看原代码里的不足：在处理页眉中的文本框时，你只针对TextFrame.TextRange执行了查找替换，但文本框内的表格是属于这个TextRange的Tables集合的，所以得深入进去逐个处理每个表格的单元格。

下面是修改后的完整函数，我重点补充了文本框内表格的遍历逻辑：

Function findAndReplace($Text, $Find, $ReplaceWith) {
    $matchCase = $true
    $matchWholeWord = $true
    $matchWildcards = $false
    $matchSoundsLike = $false
    $matchAllWordForms = $false
    $forward = $true
    $findWrap = [Microsoft.Office.Interop.Word.WdFindWrap]::wdFindContinue
    $format = $false
    $replace = 2
    $Text.Execute($Find, $matchCase, $matchWholeWord, $matchWildCards, `
    $matchSoundsLike, $matchAllWordForms, $forward, $findWrap, `
    $format, $ReplaceWith, $replace) > $null
}

Function findAndReplaceWholeDoc($Document, $Find, $ReplaceWith) {
    $findReplace = $Document.ActiveWindow.Selection.Find
    findAndReplace -Text $findReplace -Find $Find -ReplaceWith $ReplaceWith

    ForEach ($section in $Document.Sections) {
        ForEach ($header in $section.Headers) {
            $findReplace = $header.Range.Find
            findAndReplace -Text $findReplace -Find $Find -ReplaceWith $ReplaceWith

            $header.Shapes | ForEach-Object {
                if ($_.Type -eq [Microsoft.Office.Core.msoShapeType]::msoTextBox) {
                    # 先处理文本框的顶层文本
                    $findReplace = $_.TextFrame.TextRange.Find
                    findAndReplace -Text $findReplace -Find $Find -ReplaceWith $ReplaceWith

                    # 遍历文本框内的所有表格
                    foreach ($table in $_.TextFrame.TextRange.Tables) {
                        # 遍历表格的每一行
                        foreach ($row in $table.Rows) {
                            # 遍历行内的每一个单元格
                            foreach ($cell in $row.Cells) {
                                $findReplace = $cell.Range.Find
                                findAndReplace -Text $findReplace -Find $Find -ReplaceWith $ReplaceWith
                            }
                        }
                    }
                }
            }
        }

        ForEach ($footer in $section.Footers) {
            $findReplace = $footer.Range.Find
            findAndReplace -Text $findReplace -Find $Find -ReplaceWith $ReplaceWith
        }
    }
}

关键修改点说明： #

• 在处理文本框的分支里，新增了对$_.TextFrame.TextRange.Tables的遍历，这样就能拿到文本框里的所有表格
• 接着逐层遍历表格的行和单元格，对每个单元格的Range执行你的findAndReplace函数，确保表格里的每一处文本都能被查找替换

这样修改后，不管是文本框里的普通文本还是嵌套表格里的内容，都能被正确处理了。

备注：内容来源于stack exchange，提问作者AntonioCasanova11111