Word Enregistrer une section Word en pdf

[jozerebel]

Bonjour à tous,

je cherche à enregistrer une section spécifique d'un document Word en pdf. Or, l'enregistreur de macro me propose uniquement de sélectionner des pages. mais pas de section.

Une idée en VBA svp?

merci !

Sub Macro2()
'
' Macro2 Macro
'
'
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"\\xxx.x.x.x\Modeles\Exx\x.pdf", ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=1, To:=2, Item:= _
wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ChangeFileOpenDirectory "\\xxx.x.x.x\Modeles\Exx\"
End Sub

 

[Staple1600]

Bonsoir le fil,

le code ci-dessous fonctionne (mais pas à 100%)

Sub mTest()
Dim strPath$
strPath = ActiveDocument.Path & "\"
ActiveDocument.Sections(3).Range.ExportAsFixedFormat _
              OutputFileName:=strPath & "Test.pdf", _
              ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False
End Sub

Je te laisse découvrir quel est le petit inconvénient

PS: J'ajoute ce petit bout de code pour identifier le numéro de section que l'on veut exporter en PDF.

Sub Identifier_Section()
nSec = ActiveDocument.Range(0, Selection.Paragraphs(1).Range.End).Sections.Count
MsgBox "Numéro de section: " & nSec, vbInformation
End Sub

 

[jozerebel]

merci Bcp Staple 1600 !


je vais tester cela !!!!