通过 PowerShell 更改 Word 文件的背景颜色

Question

如何通过 PowerShell 更改 Word 文件的背景颜色？

$wd = New-Object -COM 'Word.Application'
$wd.Visible = $true   # set to $false for production

Get-ChildItem 'C:\*.doc' | % {
    $doc = $wd.Documents.Open($_.FullName)

    # Here's the problem
    $doc.Background.Fill.ForeColor.RGB = RGB(192, 192, 192)

    # Switch doc view to Online Layout view
    $doc.ActiveWindow.View.Type = 6

    $doc.Save($true)
    $doc.Close()
}

$wd.Quit()
[Runtime.InteropServices.Marshal]::ReleaseComObject($wd)
[GC]::Collect()
[GC]::WaitForPendingFinalizers()

我收到 2 个错误：

* RGB : The term 'RGB' is not recognized as the name of a cmdlet...
* Cannot find an overload for "Save" and the argument count: "1".

Answer 1

那么让我们来解决我所知道的几个问题...

RGB : The term 'RGB' is not recognized as the name of a cmdlet...

您当然知道为什么这不起作用，因为 PowerShell 没有 RGB cmdlet。但是，如果您查看 $doc.Background.Fill.ForeColor.RGB 的输入，它正在寻找一个整数。参考这个 related article 你可以看到我们如何进行转换。

$doc.Background.Fill.ForeColor.RGB = [long](192 + (192* 256) + (192 * 65536))

有一个警告需要解决。虽然上面的代码不会导致错误，但您会注意到文档上没有显示颜色。这是因为默认情况下不显示背景色。您将需要启用它。

$doc.Background.Fill.Visible = $true

好的，现在完成了，怎么样....

Cannot find an overload for "Save" and the argument count: "1".

我们用Get-Member来看看究竟是什么原因

PS C:\users\Cameron\Downloads> $doc | gm

   TypeName: Microsoft.Office.Interop.Word.DocumentClass
...
RunLetterWizard                          Method                void RunLetterWizard([ref] System.Object LetterContent, [ref] System.Object WizardMode), void _Document.Ru...
Save                                     Method                void Save(), void _Document.Save()                                                                           
SaveAs                                   Method                void SaveAs([ref] System.Object FileName, [ref] System.Object FileFormat, [ref] System.Object LockComments...
...

它不接受任何参数，所以我们只需要删除 $true。其他条目只是为了显示一些其他方法确实采用参数。

$doc.Save()

..所以....最后一个

True : The term 'True' is not recognized as the name of a cmdlet...

我没有看到那个错误，我会认为这是一个错字，没有被带到你问题的代码中。

还是怀念RGB？

一个原始的 PowerShell 函数，通过少量数据验证来复制功能

Function Get-RGB 
{ 
    Param( 
        [Parameter(Mandatory=$false)] 
        [ValidateRange(0,255)] 
        [Int] 
        $Red = 0, 
        [Parameter(Mandatory=$false)] 
        [ValidateRange(0,255)] 
        [Int] 
        $Green = 0,
        [Parameter(Mandatory=$false)] 
        [ValidateRange(0,255)] 
        [Int] 
        $Blue = 0 
    ) 
    Process 
    { 
        [long]($Red + ($Green * 256) + ($Blue * 65536))
    } 
}

例子

PS C:\users\Cameron\Downloads> Get-RGB 129 0 54
3539073

Answer 2

为澄清起见，我将在此处发布最终脚本。

此脚本将遍历所选路径中的所有 .doc 文件。我只在doc文件是只读时遇到问题，所以我在另一个文件夹中将save()更改为SaveAs([ref]$name)，并解决了问题。

$wd = New-Object -COM 'Word.Application'
$wd.Visible = $true   # set to $false for production

Get-ChildItem 'C:\songs\*.doc' | % {
$doc = $wd.Documents.Open($_.FullName)

$doc.Background.Fill.ForeColor.RGB = [long](249 + (232* 256) + (163 * 65536))
$doc.Background.Fill.Visible = $true

# Switch doc view to Online Layout view, otherwise the changes won't appear in normal view
$doc.ActiveWindow.View.Type = 6

# Replace folder path to solve "read-only" problem
$Name=($doc.Fullname).replace("songs","songs_edited")
$doc.SaveAs([ref]$Name)

$doc.Close()
}

$wd.Quit()
[Runtime.InteropServices.Marshal]::ReleaseComObject($wd)
[GC]::Collect()
[GC]::WaitForPendingFinalizers()

通过 PowerShell 更改 Word 文件的背景颜色

Change the background color of a Word file via PowerShell

windows

powershell

ms-word

ms-office