Question

我正在构建一个使用PowerShell编写word文档的脚本（Windows 7，PS4，.Net 4，Office 2010。

该脚本有效，但它将文本嵌入文档的顶部。我需要能够像第2页一样指定确切的位置。

这是我最新的内容：

# Opens an MsWord Doc, does a Search-and-Replace and embeds a text file as an object
# To make this work you need in the same folder as this script:
#   -A 2-page MsWord file called "Search_and_replace_Target_Template.doc" with:
#       -the string <package-name> on page ONE
#       -the string <TextFile-Placeholder> on page TWO
#   -A textfile called "TextFile.txt"
#
#The script will:
#   -replace <package-name> with something on page one
#   -embed the text file <package-name> at the top of page one (but I want it to replace <TextFile-Placeholder> on page 2)
#
# CAVEAT: Using MsWord 2010

[String]$MsWordDocTemplateName  = "Search_and_replace_Target_Template.doc"
[String]$TextFileName           = "TextFile.txt"

[Int]$wdReplaceAll      = 2
[Int]$wdFindContinue    = 1 #The find operation continues when the beginning or end of the search range is reached.
[Bool]$MatchCase        = $False 
[Bool]$MatchWholeWord   = $true
[Bool]$MatchWildcards   = $False 
[Bool]$MatchSoundsLike  = $False 
[Bool]$MatchAllWordForms = $False 
[Bool]$Forward          = $True 
[Int]$Wrap              = $wdFindContinue #The find operation continues when the beginning or end of the search range is reached.
[Bool]$Format           = $False 
[Int]$wdReplaceNone     = 0

$objWord = New-Object -ComObject Word.Application
$objWord.Visible        = $true #Makes the MsWord
[String]$ScriptDirectory = [System.IO.Path]::GetDirectoryName($myInvocation.MyCommand.path)
[String]$WordDocTemplatePath = "$ScriptDirectory\$MsWordDocTemplateName"
[String]$TextFilePath   = "$ScriptDirectory\$TextFileName"
[String]$SaveAsPathNew  = Join-Path -Path $ScriptDirectory -ChildPath "${MsWordDocTemplateName}-NEW.doc"


#Open Template with MSWord
Try {
    $objDoc = $objWord.Documents.Open($WordDocTemplatePath)
} Catch {
    [string]$mainErrorMessage = "$($_.Exception.Message) $($_.ScriptStackTrace) $($_.Exception.InnerException)"
    Write-Host $mainErrorMessage -ForegroundColor Red
    Start-Sleep -Seconds 7
    $objDoc.Close()
    $objWord.Quit()
}

$objSelection               = $objWord.Selection
$objSelection.Find.Forward  = 'TRUE'
$objSelection.Find.MatchWholeWord = 'TRUE'


#Replace <package-name>
[String]$FindText = "<package-name>" 
[String]$ReplaceWith = "PackageName_v1"
write-host "replacing [$FindText] :" -NoNewline
$objSelection.Find.Execute($FindText,$MatchCase,$MatchWholeWord,$MatchWildcards,$MatchSoundsLike,$MatchAllWordForms,$Forward,$Wrap,$Format,$ReplaceWith,$wdReplaceAll) 


#Embed the text file as an object 
[System.IO.FileSystemInfo]$TextFileObj = Get-item $TextFilePath
If ( $(Try {Test-Path $($TextFileObj.FullName).trim() } Catch { $false }) ) {
    write-host "Embedding [$TextFileName] :" -NoNewline
    [String]$FindText = "<TextFile-Placeholder>" 
    [String]$ReplaceWith = ""
#   $objSelection.Find.Execute($FindText,$MatchCase,$MatchWholeWord,$MatchWildcards,$MatchSoundsLike,$MatchAllWordForms,$Forward,$Wrap,$Format,$ReplaceWith,$wdReplaceAll)


    #Need code to create a RANGE to the position of <TextFile-Placeholder>


    #Embed file into word doc as an object
    #$result = $objSelection.InlineShapes.AddOLEObject($null,$TextFileObj.FullName,$false,$true)
    $result = $objSelection.Range[0].InlineShapes.AddOLEObject($null,$TextFileObj.FullName,$false,$true) #works too but does the same

    Write-host "Success"
} Else {
    Write-Host "[$TextFilePath] does not exist!" -ForegroundColor Red
    Start-Sleep -Seconds 5
}



Write-Host "Saving updated word doc to [${MsWordDocTemplateName}-NEW.doc] ***"
Start-Sleep -Seconds 2
#List of formats
$AllSaveFormat = [Enum]::GetNames([microsoft.office.interop.word.WdSaveFormat])
$SaveFormat = $AllSaveFormat

$objDoc.SaveAs([ref]$SaveAsPathNew,[ref]$SaveFormat::wdFormatDocument) #Overwrite if exists
$objDoc.Close()
$objWord.Quit()

$null = [System.Runtime.InteropServices.Marshal]::ReleaseComObject([System.__ComObject]$objWord)
[gc]::Collect()
[gc]::WaitForPendingFinalizers()
Remove-Variable objWord

如果您有办法在Word 2016中执行此操作，我也会接受它，因为我将不得不在以后的办公室重做所有内容。

更新：看起来解决方案是创建一个位于其中的“范围”。默认情况下，您似乎有一个范围[0]代表整个文档。

我最接近的是：

$MyRange = $objSelection.Range[Start:= 0, End:= 7]

但这不是PowerShell的语法，它只处理绝对字符位置而不是搜索字符串的结果。

如果我可以创建第二个范围，这可能会起作用：

$objSelection.Range[1].InlineShapes.AddOLEObject($null,$TextFileObj.FullName,$false,$true)

Answer 1

我无法为您编写powershell脚本，但我可以描述您的需求。事实上，你正在考虑Range的想法。获取整个Word文档的范围：

$MyRange = $objDoc.Content

请注意，您可以根据需要自由声明和使用尽可能多的Range对象。范围不限于Selection，其中只有一个。{1}}。只要您不再需要原始Range，请继续执行Find on it。如果你确实需要原始的Range，那么声明并实例化第二个，如上所述实例化它，或者为了使用原始作为起点：

$MyRange2 = $MyRange.Duplicate

然后在范围上使用Find。请注意，当Find成功时，Range的内容就是找到的字词，这使得＆＃34;焦点＆＃34;在正确的页面上。（但不会移动选择！）

$MyRange.Find.Execute($FindText,$MatchCase,$MatchWholeWord,$MatchWildcards,$MatchSoundsLike,$MatchAllWordForms,$Forward,$Wrap,$Format,$ReplaceWith,$wdReplaceAll)

如果要测试Find是否成功，Execute方法返回一个布尔值（如果查找成功，则为true）。

使用类似下面的内容来插入文件，尽管我不确定OLEObject是插入文本文件的最佳方法。我宁愿认为InsertFile更合适。 OLEObject需要在Windows中注册的OLE服务器，它支持编辑文本文件;它会更慢，并在文档中放置一个将尝试更新的字段代码......

$result =$MyRange.InlineShapes.AddOLEObject($null,$TextFileObj.FullName,$false,$true)

在Word 2010中将文本文件作为对象嵌入

1 个答案: