Extraer campos de un documento word combinado con excel

Veamos, recurro a tí porque por más vueltas que le he dado no doy con la tecla.

Te explico: Tengo un documento word que ha sido combinado con uno de excel. Este documento word tiene 497 páginas personalizadas cada una. Uno de los campos del documento es "FARMACIA". Necesitaría un código vba para poder crear un fichero .pdf por cada una de las páginas y que el nombre de ese fichero fuera el valor del campo "FARMACIA". Es decir, tendría 497 ficheros .pdf y cada uno se llamaría p.e. "far_1.pdf", "far_5.pdf"... "far_23.pdf"... Y así hasta llegar a la página 497.

Este es el código que tengo, pero por más vueltas que le doy me da un error 5852 de "el objeto solicitado no está disponible" y ya se me han acabado los recursos.

Este es el código:

Let nPaginas = ActiveDocument.ComputeStatistics(wdStatisticPages)
fila = 1

For x = 1 To nPaginas

ActiveDocument.Fields.Update
FARMA = ActiveDocument.MailMerge.DataSource.DataFields("FARMACIA").Value
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
ruta & "\" & "Far_" & FARMA & ".pdf", ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportFromTo, From:=x, To:=x, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
Next x