I am not sure of the relevance of the labels, however https://www.gmayor.com/document_batch_processes.htm will convert all the documents in a folder (its sub folders too if you require it) to PDF.
If you want to roll your own then the above is based on the following process, albeit it includes additional error handling which the following lacks
Option Explicit
Sub BatchSaveAsPDF()
'Graham Mayor - https://www.gmayor.com - Last updated - 03 Dec 2021
Dim strFile As String
Dim strPath As String
Dim strPDFName As String
Dim intPos As Integer
Dim oDoc As Document
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
With fDialog
.Title = "Select folder and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Cancelled By User", , "List Folder Contents"
Exit Sub
End If
strPath = fDialog.SelectedItems.Item(1)
Do Until Right(strPath, 1) = "\"
strPath = strPath & "\"
Loop
End With
strFile = Dir$(strPath & "*.docx")
While strFile <> ""
Set oDoc = Documents.Open(strPath & strFile)
intPos = InStrRev(strFile, ".")
strPDFName = Left(strFile, intPos)
strPDFName = strPath & strPDFName & "pdf"
oDoc.ExportAsFixedFormat _
OutputFileName:=strPDFName, _
ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, _
OptimizeFor:=wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=wdExportCreateHeadingBookmarks, _
DocStructureTags:=True, _
BitmapMissingFonts:=True
oDoc.Close SaveChanges:=wdDoNotSaveChanges
strFile = Dir$()
DoEvents
Wend
lbl_Exit:
Set oDoc = Nothing
Set fDialog = Nothing
Exit Sub
End Sub