Word Sauvegarder un doc word sous PDF

Bonjour,
j'utilise la macro ci-dessous pour remplir et imprimerun doc word.
je souhaite avoir la possibilité de sauvegarder sous pdf.

Voici le code:
'Imprimer un contrat
Private Sub ImprimerContrat_Click()
Dim wrdApp As Object
Dim wrdDoc As Object
Dim sPath As String, sFic As String
' Initialisation des variables
If Application.WorksheetFunction.CountIf(Sheets("contrats_en_cours").Range("d2:d2500"), Me.Compteur2.Text) = 0 Then MsgBox "Veuillez d'abord enregistrer ce contrat": Exit Sub
'sPath = ThisWorkbook.Path
sPath = "W:\Contrats de chantiers\Models"
sFic = "\" & TxtFonction.Text & ".docm"
' Création d'une instance Word
Set wrdApp = CreateObject("Word.Application")

Set wrdDoc = wrdApp.Documents.Open(sPath & sFic)
wrdApp.ShowMe ' pour afficher le document
wrdApp.Visible = True

With wrdDoc
.Bookmarks("Matricule").Range.Text = Me.TxtMat.Value 'ca bloque ici
.Bookmarks("Nom").Range.Text = Me.Txtnom.Value
.Bookmarks("Prénom").Range.Text = Me.TXTPrenom.Value
.Bookmarks("CIN").Range.Text = Me.txtCIN.Value
.Bookmarks("CNSS").Range.Text = Me.txtcnss.Value
.Bookmarks("Naissance").Range.Text = Me.txtnaissance.Value

If MsgBox("Êtes vous sûr de vouloir imprimer ce docuement?", vbYesNo, "Demande de confirmation") = vbYes Then
.PrintOut
End If
End With
wrdDoc.Close False 'ferme le document word en sauvegardant les données
wrdApp.Quit 'ferme la session Word
End Sub

Merci à vous