Word Enregistrer une section Word en pdf

jozerebel

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonsoir le fil,

le code ci-dessous fonctionne (mais pas à 100%)
VB:
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.
VB:
Sub Identifier_Section()
nSec = ActiveDocument.Range(0, Selection.Paragraphs(1).Range.End).Sections.Count
MsgBox "Numéro de section: " & nSec, vbInformation
End Sub
 

Discussions similaires

Réponses
2
Affichages
581

Statistiques des forums

Discussions
311 723
Messages
2 081 932
Membres
101 844
dernier inscrit
pktla