Sub d2()
Dim ch As Document, s As Section, from_&, to_&, i&, r#, rl#
Set ch = ActiveDocument
from_ = InputBox("from_section?:", , 1)
to_ = InputBox("TO_section?:", , ch.Sections.Count)
For i = from_ To to_
Set s = ch.Sections(i)
r = s.Range.Characters(1).Information(3)
rl = s.Range.Information(3)
ActiveDocument.ExportAsFixedFormat OutputFileName:=ch.Path & "\" & i & ".pdf" _
        , ExportFormat:=wdExportFormatPDF _
        , OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, _
        Range:=wdExportFromTo, From:=r, To:=rl, Item:=wdExportDocumentContent, _
        IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
        wdExportCreateNoBookmarks, DocStructureTags:=False, BitmapMissingFonts:= _
        False, UseISO19005_1:=False
Next
End Sub