Quick fix for github issue 12

If the exception in the formatXML function involves setting the CurentXML font, catch/ignore the exception.
ExLibrisGroup · Jul 24, 2020 · 7c82b1f · 7c82b1f
1 parent 493c4d1
commit 7c82b1f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Form1.vb b/Form1.vb
@@ -1621,7 +1621,9 @@ Public Class Form1
                 End While
             End With
         Catch ex As Exception
-            MsgBox("error: " & ex.ToString)
+            If Not ex.ToString.Contains("Font prototype, FontStyle newStyle") Then
+                MsgBox("error: " & ex.ToString)
+            End If
         End Try
     End Sub
     Private Function StripControlChars(ByVal source As String, Optional ByVal KeepCRLF As _