How to perform font substitution in .NET WebForms Word to PDF conversion?

// Loads an existing Word document.
WordDocument wordDocument = new WordDocument("template.docx", FormatType.Docx);
// Initializes the SubstituteFont event to perform font substitution during Word to PDF conversion.
wordDocument.FontSettings.SubstituteFont += new SubstituteFontEventHandler(SubstituteFont);
// Creates an instance of DocToPDFConverter.
DocToPDFConverter converter = new DocToPDFConverter();
// Converts the Word document into PDF document.
PdfDocument pdfDocument = converter.ConvertToPDF(wordDocument);
// Closes the instance of Word document object.
wordDocument.Close();
// Saves the PDF file.
pdfDocument.Save("WordtoPDF.pdf");
// Closes the instance of PDF document object.
pdfDocument.Close(true);

' Loads an existing Word document.
Dim wordDocument As New WordDocument("template.docx", FormatType.Docx)
' Initializes the SubstituteFont event to perform font substitution during Word to PDF conversion.
AddHandler wordDocument.FontSettings.SubstituteFont, AddressOf SubstituteFont
' Creates an instance of DocToPDFConverter.
Dim converter As New DocToPDFConverter()
' Converts the Word document into PDF document.
Dim pdfDocument As PdfDocument = converter.ConvertToPDF(wordDocument)
' Closes the instance of document object.
wordDocument.Close()
' Saves the PDF file .
pdfDocument.Save("WordtoPDF.pdf")
' Closes the instance of document object.
pdfDocument.Close(True)

private void SubstituteFont(object sender, SubstituteFontEventArgs args)
{
    // Sets the alternate font when a specified font is not installed in the production environment.
    if (args.OrignalFontName == "Arial Unicode MS")
        args.AlternateFontName = "Arial";
    else
        args.AlternateFontName = "Times New Roman";
}

Private Sub SubstituteFont(ByVal sender As Object, ByVal args As SubstituteFontEventArgs)
    ' Sets the alternate font when a specified font is not installed in the production environment.
    If args.OrignalFontName = "Arial Unicode MS" Then
        args.AlternateFontName = "Arial"
    Else
        args.AlternateFontName = "Times New Roman"
    End If
End Sub