Hi,
I use this macro to export the doc to pdf
Code:
Sub SaveAsPDF()
Dim strDocName As String
Dim strPath As String
Dim intPos As Integer
Start:
strDocName = ActiveDocument.Name
strPath = ActiveDocument.path & "\"
intPos = InStrRev(strDocName, ".")
If intPos = 0 Then
ActiveDocument.Save
GoTo Start
End If
strDocName = Left(strDocName, intPos - 1)
strDocName = strPath & strDocName & ".pdf"
ActiveDocument.ExportAsFixedFormat OutputFileName:=strDocName, _
ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, _
OptimizeFor:=wdExportOptimizeForPrint, _
range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=wdExportCreateHeadingBookmarks, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
lbl_Exit:
Exit Sub
End Sub
But the exported file shows misformatted text for italic text only (red underlined), as shown below
Wuchereria bancrofti mis.jpg
These misformatted texts also appear on printed paper
I tried many solutions including save as pdf option and contacted the PDF-XChange Editor support service, they gave many other solutions, but also no change.
Today, I installed Adobe Acrobat addon, also when I exported the file, it appeared normally, as shown below (green underlined)
Wuchereria bancrofti right.jpg
Additionally, I exported the file using Microsoft Print to pdf, and it also appears normally.
So, I concluded the issue was caused by the exporting method "ExportAsFixedFormat"
Is my conclusion right or there are other causes?
However, according to the previous macro, I want to save my document as pdf in the current folder and name by printer method such as "Microsoft print to pdf", not by "ExportAsFixedFormat", in order to ignore the issue.
Thanks