[DJ Mogarych]

По мотивам https://stackoverflow.com/questions/...ith-tables-etc

Код:

$filename = "D:\temp\Table.doc"
$search = "эквайринг"

$wd = New-Object -ComObject Word.Application
$doc = ($wd).Documents.Open($filename)
$report = @()

$cTable = 1
foreach ($table in $doc.Tables) {
    $cRows = $table.Rows.Count
    $cColumns = $table.Columns.Count

    $cColumn = 1
    do {
    $cRow = 1
        do {
            if ($table.Cell($cRow, $cColumn).range.text -match "$search") {
                $obj = [PSCustomObject]@{
                    '№ таблицы' = $cTable
                    '№ cтолбца' = $cColumn
                    '№ строки' = $cRow
                    Строка = $table.Cell($cRow, $cColumn).range.text
                }
                $report += $obj
            }
            $cRow++
        } until ($cRow -gt $cRows)
    $cColumn++
    } until ($cColumn -gt $cColumns)
$cTable++
}
$wd.Quit()

$report