Discussion :

[Pasquinel39]

Après export Formulaire Word 2019 en PDF, les champs du formulaire PDF ne sont pas reconnus dans Acrobat reader ou autre...
Merci.

[Invité]

Bonjour,

Visiblement les différents essais d'impression d'un document contenant des signets et des ControlContents ne permettent par la modification des champs ensuite sur Acrobate comme vous l'avez constaté. Je pense qu'il vous faut la version payante d'Acrobate pour modifier les textes. En revanche, je ne sais pas comment sont gérés les champs et les signets dans ce cas.

Vous aurez peut-être une réponse plus avisée que la mienne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Sub Essai1()
 
Dim oDoc As Document
Dim stNom As String
Dim Repertoire As String
 
    Set oDoc = ActiveDocument
    Repertoire = oDoc.Path
    With oDoc
         stNom = Repertoire & "\" & "ATTESTATION_1" & "_" & Format(Date, "yyyy") & ".pdf"
         .ExportAsFixedFormat OutputFileName:=stNom, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True
    End With
    Set oDoc = Nothing
 
End Sub
 
 
 
Sub Essai2()
 
Dim oDoc As Document
Dim stNom As String
Dim Repertoire As String
 
    Set oDoc = ActiveDocument
    Repertoire = oDoc.Path
    With oDoc
         stNom = Repertoire & "\" & "ATTESTATION_2" & "_" & Format(Date, "yyyy") & ".pdf"
         .ExportAsFixedFormat OutputFileName:=stNom, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, _
         Item:=wdExportDocumentWithMarkup
    End With
    Set oDoc = Nothing
 
End Sub
 
 
 
Sub Essai3()
 
Dim oDoc As Document
Dim stNom As String
Dim Repertoire As String
 
    Set oDoc = ActiveDocument
    Repertoire = oDoc.Path
    With oDoc
         stNom = Repertoire & "\" & "ATTESTATION_3" & "_" & Format(Date, "yyyy") & ".pdf"
         .ExportAsFixedFormat OutputFileName:=stNom, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, _
         createbookmarks:=wdExportCreateWordBookmarks
    End With
    Set oDoc = Nothing
 
End Sub