在 Word 文档中保存带有特定文本的 Word 文件

Question

我是 VBA 新手，并尝试编写可以将多页 word 文档另存为单独 PDF 的代码。

我不仅在文件名上苦苦挣扎，目前，它正在使用 Page no 保存，但我要求它是 Word 文档中的特定字段。

我已经添加了word doc的截图，文件名应该是“User ID”和“Reminder 1 (this is fixed value)”.doc

enter image description here

这是我的代码

Sub SaveAsSeparatePDFs()
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    On Error GoTo lbl
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Select Start Page No", "Information"))
    xEnd = CInt(InputBox("Select End Page No", "Information"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
            ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                xFolder & "\Reminder 1" & I & ".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:
    MsgBox "Enter right page number", vbInformation, "ERROR"
End Sub

Answer 1

无法从您的屏幕截图中确定您的 ID# 在哪个段落中。它似乎在第 3 段中，在这种情况下：

Sub SaveAsSeparatePDFs()
    Dim I As Long, Rng As Range
    Dim xDlg As FileDialog, xFolder As Variant
    Dim xStart As Long, xEnd As Long
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    On Error GoTo lbl
    xStart = CInt(InputBox("Select Start Page No", "Information"))
    xEnd = CInt(InputBox("Select End Page No", "Information"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
            With ActiveDocument
                Set Rng = .Range.GoTo(What:=wdGoToPage, Name:=I)
                Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\page")
                .ExportAsFixedFormat OutputFileName:=xFolder & "\" & _
                    Split(Split(Rng.Paragraphs(3).Range.Text, vbCr)(0), ": ")(1) & _
                    " 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
            End With
        Next
    End If
    Exit Sub
lbl:
    MsgBox "Enter right page number", vbInformation, "ERROR"
End Sub

如果不是第 3 段，请将 '.Paragraphs(3)' 中的 '3' 更改为适合。