关于使用VBA将Word文档多页另存为独立PDF并按文档内User ID字段命名的技术问询

Hey there! Let's tweak your code so it uses the 'User ID' field from your Word document instead of page numbers for the PDF filenames. Here's how to make it work:

Key Adjustments Needed #

1. Pull the 'User ID' value from your document (we'll cover both custom document properties and built-in USERID field scenarios)
2. Update the PDF filename logic to pair the User ID with your fixed text "Reminder 1"
3. Add safeguards in case the 'User ID' field can't be found

Updated Working Code #

Sub SaveAsSeparatePDFs()
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    Dim userID As String
    Dim fld As Field
    
    On Error GoTo lbl
    
    ' Step 1: Retrieve the User ID value from the document
    ' First check for a custom document property named "User ID"
    On Error Resume Next
    userID = ActiveDocument.CustomDocumentProperties("User ID").Value
    On Error GoTo 0
    
    ' If custom property not found, look for the built-in USERID field
    If userID = "" Then
        For Each fld In ActiveDocument.Fields
            If fld.Type = wdFieldUserID Then
                userID = Trim(fld.Result.Text)
                Exit For
            End If
        Next fld
    End If
    
    ' Exit if User ID still can't be located
    If userID = "" Then
        MsgBox "Could not find the 'User ID' field in your document.", vbExclamation, "Missing Field"
        Exit Sub
    End If
    
    ' Step 2: Select output folder
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    
    ' Step 3: Get start/end page range
    xStart = CInt(InputBox("Select Start Page No", "Information"))
    xEnd = CInt(InputBox("Select End Page No", "Information"))
    
    ' Step 4: Export each page as PDF with the correct filename
    If xStart <= xEnd Then
        For I = xStart To xEnd
            ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                xFolder & "\" & userID & " Reminder 1.pdf", ExportFormat:=wdExportFormatPDF, _
                OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
                wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, _
                IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
                wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
    
    Exit Sub
    
lbl:
    If Err.Number = 13 Then ' Handle non-numeric page input error
        MsgBox "Please enter valid numeric page numbers.", vbInformation, "ERROR"
    Else
        MsgBox "An unexpected error occurred: " & Err.Description, vbCritical, "ERROR"
    End If
End Sub

What Changed? #

• User ID Retrieval: The code first checks for a custom document property called "User ID". If that doesn't exist, it scans the document's fields for the built-in USERID field (the one you insert via Insert > Quick Parts > Field > User ID).
• Filename Logic: The output filename now uses userID & " Reminder 1.pdf" instead of the page number. If you prefer the format "Reminder 1 - [User ID]", just swap the order to "Reminder 1 - " & userID & ".pdf".
• Better Error Handling: Added a check for missing User ID, and more specific messages for invalid page inputs.

Quick Notes #

• If your 'User ID' is stored in a content control or a specific paragraph, let me know and we can adjust the retrieval code!
• Make sure the User ID value doesn't contain invalid filename characters (like \ / : * ? " < > |)—you can add a cleanup step if needed.

内容的提问来源于stack exchange，提问作者Akshay