Retirar aviso

[Juan.rba]

exemplo.ods

em anexo esta um exemplo do problema que estou tendo, a macro cria arquivos txt, porém aparece um aviso q me força apertar OK a cada arquivo txt salvo. tem como remover esse aviso?

[Juan.rba]

@Grafeno, ai esta em anexo um exemplo. mesmo utilizando os códigos que me sugeriu, não consegui.

[Juan.rba]

REM ***** BASIC *****

Sub SaveAs

Dim sFileName As String
Dim sPath As String
Dim sSaveToURL as string

sPath = “D:”
sFileName = thisComponent.getSheets.getByName(“Planilha1”).getCellRangeByName(“F3”).getString
sSaveToURL = ConvertToURL(sPath & sFileName)
thisComponent.storeToUrl(sSaveToURL, Array(MakePropertyValue(“FilterName”, “Calc8”)))

End Sub

Function MakePropertyValue(Optional sName As String, Optional sValue) As com.sun.star.beans.PropertyValue
'-------------------------------------------------------------------
’ Create and return a new com.sun.star.beans.PropertyValue
'-------------------------------------------------------------------

Dim oPropertyValue As New com.sun.star.beans.PropertyValue

If Not IsMissing(sName) Then
oPropertyValue.Name = sName
EndIf

If Not IsMissing(sValue) Then
oPropertyValue.Value = sValue
EndIf

MakePropertyValue() = oPropertyValue

End Function