Minha macro para exportar arquivos PDF para PDF/A-2b sempre apresenta erro em - " oDoc.storeToURL(ConvertToURL(sPDFPath), oPDFProps())"
Alguém sabe a saída?
Eis a macro:
Sub SalvarComoPDF()
Dim oDoc As Object
Dim sFilePath As String
Dim sPDFPath As String
' Caminho do arquivo PDF a ser aberto
sFilePath = "C:\APOIO\2024000018\1.pdf" ' Altere para o nome do seu arquivo
' Caminho para salvar o PDF
sPDFPath = "C:\APOIO\2024000018\1_A2b.pdf" ' Altere para o nome desejado do PDF
' Tente abrir o documento PDF
On Error GoTo ErrorHandler
oDoc = StarDesktop.loadComponentFromURL(ConvertToURL(sFilePath), "_blank", 0, Array())
' Verifique se o documento foi aberto corretamente
If IsNull(oDoc) Then
MsgBox "Não foi possível abrir o arquivo: " & sFilePath, vbExclamation
Exit Sub
End If
' Salvar como PDF
Dim oPDFProps(1) As New com.sun.star.beans.PropertyValue
oPDFProps(0).Name = "FilterName"
oPDFProps(0).Value = "writer_pdf_Export"
oPDFProps(1).Name = "Overwrite"
oPDFProps(1).Value = True
' Executar a exportação
oDoc.storeToURL(ConvertToURL(sPDFPath), oPDFProps())
' Fechar o documento
oDoc.close(True)
Exit Sub
ErrorHandler:
MsgBox "Erro ao processar o arquivo: " & Err.Description, vbExclamation
If Not IsNull(oDoc) Then
oDoc.close(True)
End If
End Su