[Powershell] in Word plakken met Keep source formatting

[Pater]

Mijn vraag is wat de juiste command is via Powershell om iets te plakken in Word met Keep Source Formatting. Mijn script is nu als volgt:

$source1 = 'C:\Temp\LEAReport.doc'
$source2 = 'C:\Temp\UCIReport.doc'
$destination = 'C:\Temp\Done\archive.docx'
$word = New-Object -ComObject word.application
$word.visible = $true
$doc3 = $word.documents.open($destination)
$doc1 = $word.documents.open($source1)
$doc2 = $word.documents.open($source2)
$bookmark1 = $doc3.Bookmarks.Item("LEAreport")
$bookmark2 = $doc3.Bookmarks.Item("UCIreport")

$doc2.Range().Copy()
$bookmark2.Range.Paste()

$doc1.Range().Copy()
$bookmark1.Range.Paste()

$doc1.Close()
$doc2.Close()

$doc3.SaveAs("C:\Temp\Done\archive1.docx")
$doc3.Close()


Door de opmaak van doc3 gaat het bij het plakken van de content van doc2 niet goed. Als je het via Word doet, gaat het wel goed als je Keep Source Formatting gebruikt bij Paste Special. Maar ik weet niet wat de powershell command daarvoor is.

[pnxsinned]

Ik zie dat Excel een pastespecial heeft.
Heeft Word dit ook niet toevallig?

https://docs.microsoft.co...vba/api/Excel.XlPasteType

PasteSpecial(-4122)

[Pater]

Je zou zeggen van wel, je hebt het inderdaad van Word ook: https://docs.microsoft.co.../api/word.wdpastedatatype
wdKeepSourceFormatting

Maar dit is meestal een VBA/macro script en ik wil het gewoon invoeren in een Powershell console. Dus hoe zou dat hier moeten?

[F_J_K]

Ik ken er geen in powershell (omdat ik dat slechts licht gebruik). Zo te zien werkt Range().Pastespecial() gewoon, dan nog wel de juiste parameters invullen.

offtopic:
Gebruik je nog .doc files? Ik zou toch eens kijken of dat anders kan, de support daarop is niet eeuwig.

Ik heb het topic verplaatst van Windows Clients naar hier, omdat de focus licht op aansturen van Word.

[ Voor 19% gewijzigd door F_J_K op 24-12-2020 09:23 . Reden: juiste tags ]

[Pater]

Helaas, ik heb die Range().PasteSpecial() al geprobeerd, ook zelfs met code 2, maar hij blijft plakken in de verkeerde opmaak.

En die doc, tja, dat mag je tegen mijn organisatie zeggen. Ik bouw alleen maar een robot die de data en documenten uit systemen haalt en verzamelt in een hoofddocument.

[Josk79]

Wellicht met PasteAndFormat 16

https://docs.microsoft.co....selection.pasteandformat

(wdFormatOriginalFormatting = 16)

[Pater]

Yes! Dat is hem!

Uiteindelijk dit gebruikt: $bookmark2.Range.PasteAndFormat(16)