Corregir Macro que guarda de Word a PDF

Tengo este macro

Sub Macro1()
Dim URL As String
Dim nombres As String
URL = "D:\Dropbox\"
nombres = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)
    ActiveDocument.ExportAsFixedFormat _
        OutputFileName:=URL & nombres & ".pdf", _
        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
    ChangeFileOpenDirectory URL
End Sub

Siempre en el documento de word hay una linea con este formato:

Préstamo 999-999999 adeudado por: JUAN PEREZ

Quiero que al guardar el archivo lo guarde con el nombre que tiene actualmente (hasta aquí todo bien) pero también que le agregue el nombre de JUAN PEREZ

EJEMPLO:

Nombre del Archivo: A0002511

Línea que siempre sale en word: Préstamo 002-001254 adeudado por: Emmanuel Guzman

Debe guardar el archivo como: A0002511 Emmanuel Guzman PDF