Tengo la siguiente macros para guardar un documento en pdf al principio bien pero después de modificar el doc da error

' Macro1 Macro
' Guarda Boletin en pdf

Dim fichero As String
fichero = "C:\Users\User\Documents\pruebas\" + ActiveDocument.MailMerge.DataSource.DataFields("grado").Value + "\" + ActiveDocument.MailMerge.DataSource.DataFields("seccion").Value + "\" + ActiveDocument.MailMerge.DataSource.DataFields("nombres").Value + ".pdf"
MsgBox "<" & fichero & ">"
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
fichero, ExportFormat _
:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False

ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
End Sub