{"id":12219,"date":"2019-10-01T15:00:34","date_gmt":"2019-10-01T06:00:34","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=12219"},"modified":"2019-10-01T15:29:15","modified_gmt":"2019-10-01T06:29:15","slug":"powershellword%e6%96%87%e6%9b%b8%e3%81%ae%e9%80%8f%e3%81%8b%e3%81%97%e6%96%87%e5%ad%97%e3%82%92%e5%a4%89%e6%9b%b4%e3%81%99%e3%82%8b%e3%82%b9%e3%82%af%e3%83%aa%e3%83%97%e3%83%88","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=12219","title":{"rendered":"[PowerShell]Word\u6587\u66f8\u306e\u900f\u304b\u3057\u6587\u5b57\u3092\u5909\u66f4\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8"},"content":{"rendered":"

MSDN\u30d5\u30a9\u30fc\u30e9\u30e0<\/a>\u306b\u300cPowerShell\u3092\u4f7f\u3063\u3066\u3001Word\u6587\u66f8\u306e\u900f\u304b\u3057\u6587\u5b57\u3092\u5909\u66f4\u3057\u305f\u3044\u300d<\/i>\u3001\u3068\u306e\u8cea\u554f\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n

\"\"<\/div>
social.msdn.microsoft.com<\/div><\/div>
\"\"<\/figure>
Powershell command to replace or remove Watermark in Microsoft Word<\/div>
https:\/\/social.msdn.microsoft.com\/Forums\/en-us\/worddev\/thread\/1533914f-2982-49e6-a865-485c3eaffb98<\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n

\u3059\u3050\u306b\u601d\u3044\u3064\u304f\u306e\u306f\u3001PowerShell\u304b\u3089Word\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u64cd\u4f5c\u3059\u308b\u3053\u3068\u3067\u3059\u304c\u3001\u4e0b\u8a18\u30b3\u30fc\u30c9\u306e\u3088\u3046\u306bCOM\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u89e3\u653e\u51e6\u7406\u304c\u5fc5\u8981\u306b\u306a\u308b\u306e\u3067\u3001\u975e\u5e38\u306b\u5197\u9577\u3067\u3059\u3002<\/p>\n

function ModifyWaterMarkText($file_path, $new_text){\r\n  $objApp = New-Object -ComObject Word.Application\r\n  $objApp.Visible = $true\r\n  $objDocs = $objApp.Documents #Word.Documents\r\n  $objDoc = $objDocs.Open($file_path) #Word.Document\r\n  $objWin = $objDoc.ActiveWindow #Word.Window\r\n  $objPane = $objWin.ActivePane #Word.Pane\r\n  $objView = $objPane.View #Word.View\r\n  $tmpSv = $objView.SeekView\r\n  $objView.SeekView = 9 #WdSeekView.wdSeekCurrentPageHeader\r\n  $objSel = $objApp.Selection #Word.Selection\r\n  $objHF = $objSel.HeaderFooter #Word.HeaderFooter\r\n  $objShapes = $objHF.Shapes #Word.Shapes\r\n  If($objShapes.Count -gt 0){\r\n    $objShape = $objShapes.Item(1) #Word.Shape\r\n    $objTef = $objShape.TextEffect #Word.TextEffectFormat\r\n    $objTef.Text = $new_text\r\n  }\r\n  $objView.SeekView = $tmpSv\r\n  $objDoc.Close(-1) #WdSaveOptions.wdSaveChanges\r\n\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objTef) > $null\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objShape) > $null\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objShapes) > $null\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objHF) > $null\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objSel) > $null\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objView) > $null\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objPane) > $null\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objWin) > $null\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objDoc) > $null\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objDocs) > $null\r\n\r\n  [GC]::Collect()\r\n  [GC]::WaitForPendingFinalizers()\r\n  [GC]::Collect()\r\n\r\n  $objApp.Quit()\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objApp) > $null\r\n\r\n  [GC]::Collect()\r\n  [GC]::WaitForPendingFinalizers()\r\n  [GC]::Collect()\r\n}\r\n\r\nModifyWaterMarkText "C:\\wk\\SampleWaterMark.docx" "Internal"<\/pre>\n
\u3059\u3079\u3066\u306e\u30bb\u30af\u30b7\u30e7\u30f3\u3092\u30eb\u30fc\u30d7\u3055\u305b\u308c\u3070\u591a\u5c11\u306f\u30b3\u30fc\u30c9\u304c\u77ed\u304f\u306a\u308b\u304b\u3068\u601d\u3044\u307e\u3057\u305f\u304c\u2193\u3001\u3084\u306f\u308a\u3053\u3061\u3089\u3082\u5197\u9577\u3067\u3059\u3002<\/p>\n
function ModifyWaterMarkText($file_path, $new_text){\r\n  $objApp = New-Object -ComObject Word.Application\r\n  $objApp.Visible = $true\r\n  $objDocs = $objApp.Documents #Word.Documents\r\n  $objDoc = $objDocs.Open($file_path) #Word.Document\r\n  $objSecs = $objDoc.Sections #Word.Sections\r\n  for($i=1; $i -le $objSecs.Count; $i++){\r\n    $objSec = $objSecs.Item($i)\r\n    $objHdrs = $objSec.Headers #Word.HeadersFooters\r\n    for($j=1; $j -le $objHdrs.Count; $j++){\r\n      $objHdr = $objHdrs.Item($j) #Word.HeaderFooter\r\n      $objShapes = $objHdr.Shapes\r\n      If($objShapes.Count -gt 0){\r\n        $objShape = $objShapes.Item(1) #Word.Shape\r\n        $objTef = $objShape.TextEffect #Word.TextEffectFormat\r\n        $objTef.Text = $new_text\r\n        [Runtime.Interopservices.Marshal]::ReleaseComObject($objTef) > $null\r\n        [Runtime.Interopservices.Marshal]::ReleaseComObject($objShape) > $null\r\n      }\r\n      [Runtime.Interopservices.Marshal]::ReleaseComObject($objShapes) > $null\r\n      [Runtime.Interopservices.Marshal]::ReleaseComObject($objHdr) > $null\r\n    }\r\n    [Runtime.Interopservices.Marshal]::ReleaseComObject($objHdrs) > $null\r\n    [Runtime.Interopservices.Marshal]::ReleaseComObject($objSec) > $null\r\n  }\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objSecs) > $null\r\n  $objDoc.Close(-1) #WdSaveOptions.wdSaveChanges\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objDoc) > $null\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objDocs) > $null\r\n\r\n  [GC]::Collect()\r\n  [GC]::WaitForPendingFinalizers()\r\n  [GC]::Collect()\r\n\r\n  $objApp.Quit()\r\n  [Runtime.Interopservices.Marshal]::ReleaseComObject($objApp) > $null\r\n\r\n  [GC]::Collect()\r\n  [GC]::WaitForPendingFinalizers()\r\n  [GC]::Collect()\r\n}\r\n\r\nModifyWaterMarkText "C:\\wk\\SampleWaterMark.docx" "Internal"<\/pre>\n
\n
\n