Vous enregistrez régulièrement vos documents au format PDF. Vous pouvez effectivement créer une macro reliée à un bouton qui vous évitera de faire manuellement l'enregistrement sous.

Voici la macro :

 

Sub VersPDF()
'macro écrite par m@rina
Dim nfichier As String, nfichier2 As String, intpos As Byte

nfichier = ActiveDocument.Name
'trouve la position de l'extension
intpos = InStrRev(nfichier, ".")
'remplace l'extension doc par pdf
nfichier = Left(nfichier, intpos - 1)
nfichier2 = nfichier & ".pdf"
'enregistre dans le dossier en cours
ActiveDocument.ExportAsFixedFormat outputFileName:=ActiveDocument.Path & "/" & nfichier2, _
exportFormat:=wdExportFormatPDF


End Sub

Statistiques

Aujourd'hui1933
Hier2553
Cette semaine11955
Ce mois30496
Total depuis 200410706183

13
visiteurs actuellement en ligne