De base de Powershell, batch convertir Word Docx en PDF

Je suis en train d'utiliser PowerShell pour faire une conversion par lot de Word Docx en PDF à l'aide d'un script trouvé sur ce site:
http://blogs.technet.com/b/heyscriptingguy/archive/2013/03/24/weekend-scripter-convert-word-documents-to-pdf-files-with-powershell.aspx

# Acquire a list of DOCX files in a folder
$Files=GET-CHILDITEM "C:\docx2pdf\*.DOCX"
$Word=NEW-OBJECT –COMOBJECT WORD.APPLICATION

Foreach ($File in $Files) {
    # open a Word document, filename from the directory
    $Doc=$Word.Documents.Open($File.fullname)

    # Swap out DOCX with PDF in the Filename
    $Name=($Doc.Fullname).replace("docx","pdf")

    # Save this File as a PDF in Word 2010/2013
    $Doc.saveas([ref] $Name, [ref] 17)  
    $Doc.close()
}

Et j'obtiens toujours cette erreur et ne peut pas comprendre pourquoi:

PS C:\docx2pdf> .\docx2pdf.ps1
Exception calling "SaveAs" with "16" argument(s): "Command failed"
At C:\docx2pdf\docx2pdf.ps1:13 char:13
+     $Doc.saveas <<<< ([ref] $Name, [ref] 17)
    + CategoryInfo          : NotSpecified: (:) [], MethodInvocationException
    + FullyQualifiedErrorId : DotNetMethodException

Des idées?

Aussi - comment aurais-je besoin de le changer pour aussi convertir doc (pas docX) des fichiers, ainsi que l'utilisation du local (fichiers au même endroit que l'emplacement du script)?

Désolé - n'a jamais fait de scripts PowerShell...

InformationsquelleAutor takabanana | 2013-05-14

49

Cela fonctionne pour doc ainsi que les fichiers docx.
```
$documents_path = 'c:\doc2pdf'

$word_app = New-Object -ComObject Word.Application

# This filter will find .doc as well as .docx documents
Get-ChildItem -Path $documents_path -Filter *.doc? | ForEach-Object {

    $document = $word_app.Documents.Open($_.FullName)

    $pdf_filename = "$($_.DirectoryName)$($_.BaseName).pdf"

    $document.SaveAs([ref] $pdf_filename, [ref] 17)

    $document.Close()
}

$word_app.Quit()
```
- Cela a fonctionné grâce changé $documents_path être dynamique basée sur l'emplacement du script en utilisant $documents_path = Split-Path -parent $MyInvocation.MyCommand.Path
- Est oledb utilisé dans cette conversion?
- Vous devez également la libération de l'objet COM: [System.Runtime.Interopservices.Marshal]::ReleaseComObject($word_app). Retrait de la totalité de la variable est également suggéré par le Les scripteurs: Remove-Variable word_app
- Il en résulte une erreur: ComException sur le SaveAs ligne. Je n'ai pas trouvé une solution qui fonctionne sur windows server 2016 encore.
- Pour toute personne ayant des problèmes avec cette version à l'aide de [ref], assurez-vous d'avoir la dernière version de Windows Cadre de Gestion 5.1. La mise à jour il a travaillé pour moi, même lors de l'utilisation de ce script sur une machine Windows 7.
InformationsquelleAutor MFT

Cela fonctionne pour moi (Word 2007):

$wdFormatPDF = 17
$word = New-Object -ComObject Word.Application
$word.visible = $false

$folderpath = Split-Path -parent $MyInvocation.MyCommand.Path

Get-ChildItem -path $folderpath -recurse -include "*.doc" | % {
    $path =  ($_.fullname).substring(0,($_.FullName).lastindexOf("."))
    $doc = $word.documents.open($_.fullname)
    $doc.saveas($path, $wdFormatPDF) 
    $doc.close()
}

$word.Quit()

InformationsquelleAutor David Brabant

3

Les réponses ci-dessus ont tous été courte pour moi, alors que je faisais un travail par lots de conversion de près de 70 000 documents word de cette façon. Comme il s'avère, ce faisant à plusieurs reprises conduit finalement à la Parole de s'écraser, sans doute en raison de problèmes de mémoire (l'erreur était certains COMException que je ne sais pas comment analyser). Donc, mon hack pour obtenir de procéder était de tuer et redémarrez word tous les 100 docs (arbitrairement choisie nombre).

En outre, quand il plante parfois, il n'y aurait résultant mal formé des fichiers pdf, qui, chacune, ont été généralement de 1 à 2 ko. Donc, en sautant déjà au format pdf généré, j'ai assurez-vous qu'ils sont à moins de 3 ko à la taille. Si vous ne voulez pas sauter déjà généré des fichiers Pdf, vous pouvez supprimer que si l'instruction.

Excusez-moi si mon code n'a pas l'air bon, je n'utilisez Windows et que c'était un hack. Donc, voici le code résultant:
```
$Files=Get-ChildItem -path '.\path\to\docs' -recurse -include "*.doc*"

$counter = 0
$filesProcessed = 0
$Word = New-Object -ComObject Word.Application

Foreach ($File in $Files) {
    $Name="$(($File.FullName).substring(0, $File.FullName.lastIndexOf("."))).pdf"
    if ((Test-Path $Name) -And (Get-Item $Name).length -gt 3kb) {
        echo "skipping $($Name), already exists"
        continue
    }

    echo "$($filesProcessed): processing $($File.FullName)"
    $Doc = $Word.Documents.Open($File.FullName)
    $Doc.SaveAs($Name, 17)
    $Doc.Close()
    if ($counter -gt 100) {
        $counter = 0
        $Word.Quit()
        [System.Runtime.Interopservices.Marshal]::ReleaseComObject($Word)
        $Word = New-Object -ComObject Word.Application
    }
    $counter = $counter + 1
    $filesProcessed = $filesProcessed + 1
}
```
InformationsquelleAutor osdiab
1

Aucune des solutions posté ici a fonctionné pour moi sur Windows 8.1 (btw. Je suis à l'aide d'Office 365). Mon PowerShell en quelque sorte n'aime pas les [ref] arguments (je ne sais pas pourquoi, j'ai utiliser PowerShell très rarement).

C'est la solution qui a fonctionné pour moi:
```
$Files=Get-ChildItem 'C:\path\to\files\*.docx'

$Word = New-Object -ComObject Word.Application

Foreach ($File in $Files) {
    $Doc = $Word.Documents.Open($File.FullName)
    $Name=($Doc.FullName).replace('docx', 'pdf')
    $Doc.SaveAs($Name, 17)
    $Doc.Close()
}
```
InformationsquelleAutor Honza Kalfus

Vous devez vous connecter pour publier un commentaire.