The following should produce the required PDFs from your 14 page document. If it is 15 pages as in your later post, change the two references that refer to 14 to 15.
Sub PrintCustomPDF()
'Graham Mayor - https://www.gmayor.com - Last updated - 04 Oct 2019
Dim i As Long
Dim strName As String
Const strPath As String = "C:\Path\" 'the path to save the files
For i = 1 To 14
Select Case i
Case 1 To 5, 11 To 14
strName = "Page " & i & ".pdf"
SelectPages i, i
Case 6
strName = "Pages 6-7" & ".pdf"
SelectPages i, i + 1
Case 8
strName = "Pages 8-10" & ".pdf"
SelectPages i, i + 2
Case Else
GoTo Skip
End Select
Selection.ExportAsFixedFormat _
OutputFileName:=strPath & strName, _
ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, _
OptimizeFor:=wdExportOptimizeForPrint, _
ExportCurrentPage:=False, _
Item:=wdExportDocumentContent, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=True
ChangeFileOpenDirectory "D:\My Documents\Test\Merge\TestMerge\"
Skip:
Next i
End Sub
Private Sub SelectPages(lngStartPage As Long, lngEndPage As Long)
'Graham Mayor - https://www.gmayor.com - Last updated - 04 Oct 2019
Dim oRng As Range
Selection.GoTo What:=wdGoToPage, which:=wdGoToNext, Name:=lngStartPage
ActiveDocument.Bookmarks("\page").Range.Select
Set oRng = Selection.Range
If lngEndPage > lngStartPage Then
Selection.GoTo What:=wdGoToPage, which:=wdGoToNext, Name:=lngEndPage
ActiveDocument.Bookmarks("\page").Range.Select
oRng.End = Selection.End - 1
End If
Do While oRng.Characters.Last = Chr(13)
oRng.End = oRng.End - 1
Loop
oRng.Select
End Sub