The problem with the document you attached is that there is no consistency between the pages as to where the content begins. On pages 1, 2, 7, & 11, 'Company Name' is in the first paragraph. On pages 3-6, & 10, it's in the 2nd paragraph. On page 8 & 12, it's in the 3rd paragraph. On page 9, it's in the 4th paragraph.
It seems most unlikely (to me, at least), that that's how they're being generated.
That said, for what's in your attachment:
Sub SaveAsPDFs()
Dim i As Long, Rng As Range
With ActiveDocument
With .Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "[^13]@Company"
.Replacement.Text = "^p^12Company"
.Forward = True
.Format = False
.Wrap = wdFindContinue
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
For i = 1 To .ComputeStatistics(wdStatisticPages)
Set Rng = .Range.GoTo(What:=wdGoToPage, Name:=i).GoTo(What:=wdGoToBookmark, Name:="\page")
.ExportAsFixedFormat OutputFileName:=.Path & "\" & _
Split(Rng.Paragraphs(3).Range.Text, vbTab)(2) & ".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 With
End Sub