LOCAL laArgs[3]
oDisp = goOOoServiceManager.createInstance("com.sun.star.frame.DispatchHelper")  
sGraphicURL = "file:///" + CHRTRAN( cPdf, "\", "/" )    
laArgs[1] = OOoPropertyValue("URL",sGraphicURL)  
laArgs[2] = OOoPropertyValue("FilterName", "writer_pdf_Export")  
laArgs[3] = OOoPropertyValue("SelectionOnly", .T.)  
oDisp.executeDispatch(oDoc.currentController.frame, ".uno:ExportTo", "", 0, @laArgs )

#define FILE_ATTRIBUTE_READONLY 0x00000001
#define FILE_ATTRIBUTE_HIDDEN 0x00000002
#define FILE_ATTRIBUTE_SYSTEM 0x00000004
#define FILE_ATTRIBUTE_DIRECTORY 0x00000010
#define FILE_ATTRIBUTE_ARCHIVE 0x00000020
#define FILE_ATTRIBUTE_ENCRYPTED 0x00000040
#define FILE_ATTRIBUTE_NORMAL 0x00000080
#define FILE_ATTRIBUTE_TEMPORARY 0x00000100
#define FILE_ATTRIBUTE_SPARSE_FILE 0x00000200
#define FILE_ATTRIBUTE_REPARSE_POINT 0x00000400
#define FILE_ATTRIBUTE_COMPRESSED 0x00000800
#define FILE_ATTRIBUTE_OFFLINE 0x00001000
#define FILE_ATTRIBUTE_NOT_CONTENT_INDEXED 0x00002000
#define FILE_ATTRIBUTE_ERROR 0xFFFFFFFF

declare integer SetFileAttributes in win32api string @, integer
declare integer GetFileAttributes in win32api string @

private lnAttr

*-- Получить текущие атрибуты файла
lnAttr = GetFileAttributes(m.lcFile)

if lnAttr <> FILE_ATTRIBUTE_ERROR && Атрибуты получены
	*-- Сбрасываем атрибут ReadOnly
	*lnAttr = bitand(lnAttr, bitnot(FILE_ATTRIBUTE_READONLY))
	*-- Сбрасываем атрибут Hidden
	*lnAttr = bitand(lnAttr, bitnot(FILE_ATTRIBUTE_HIDDEN))
	*-- Сбрасываем атрибут System
	*lnAttr = bitand(lnAttr, bitnot(FILE_ATTRIBUTE_SYSTEM))
	*-- Установить ReadOnly
	lnAttr = bitor(lnAttr, FILE_ATTRIBUTE_READONLY)
	*-- Установить Hidden
	*lnAttr = bitor(lnAttr, FILE_ATTRIBUTE_HIDDEN)
	*-- Установить System
	*lnAttr = bitor(lnAttr, FILE_ATTRIBUTE_SYSTEM)
	
	*-- Устанавливаем измененное значение
	if SetFileAttributes(m.lcFile, lnAttr) = 0
		= messagebox("Невозможно установить атрибуты файла")
	endif
else && Атрибуты получить не удалось.
	= messagebox("Невозможно получить атрибуты файла.")
endif