الكتابة في الورود من خلال الاكسس

هذا الكود يمكنك من خلاله ذلك

لكن للاسف ليس لدى اوبن اوفيس للتجربة

Public Sub createDocument(ByVal sDocTemplate As String, ByVal sFilename As String)
On Error GoTo handler

Dim tmp As String
Dim tmp2 As String

Dim objRows As Object
Dim objRow As Object
Dim objTable As Object
Dim objSize As Object
Dim objTextFrame As Object
Dim objFrameTextCursor As Object
Dim objDocument As Object
Dim objFrameText As Object

Dim aSaveArgs(0) 'leave as variant data type
Dim rs2 As New ADODB.Recordset
Dim docType As String

Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")

'Open a new empty writer document
Dim args()

'Load from template if one is provided, else create a new blank document 
If Left(Right(sDocTemplate, 4), 1) <> "." Then sDocTemplate = sDocTemplate & ".stw"
tmp = appendSlash(g_DBPath) & "templates\" & sDocTemplate
If Dir(tmp) = "" Then
Set objDocument = objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)
Else
Set objDocument = objDesktop.loadComponentFromURL("file:///" & Replace(tmp, "\", "/"), "_blank", 0, args())
End If

Set objText = objDocument.GetText
Set objCursor = objText.createTextCursor

'Inserting some Text
objText.insertString objCursor, "Testing new document with OpenOffice." & vbLf, False

'Save document in native form. Use no export filter.
Dim aNoArgs()
On Error Resume Next
Err.Clear

tmp = createUniqueFilename("", "sxw")
tmp2 = "file:///" & Replace(tmp, "\", "/")

'don't pass the zero element of the array, even if the example shows this- pass the entire array
Call objDocument.storeToURL(tmp2, aNoArgs)

'This is what I do for now- if the document has been saved and you can
'find the document on the disk, then close and reopen it.
'Not very elegant!

If Err.Number = 0 Then
If Dir(tmp) <> "" Then

Call objDocument.Close(True)
Set objDocument = objDesktop.loadComponentFromURL("file:///" & Replace(tmp, "\", "/"), "_blank", 0, args())

End If

End If
GoTo tidyUp

handler:
MsgBox "There was an error while trying to create your document using OpenOffice." & vbCrLf & "Error returned was: " & Err.Number & " " & Err.Description, vbOKOnly + vbExclamation, "Error generating document"

'Create a log entry with error details (global function defined in globals module)
eLog "[modOpenOffice.createDocument] " & Err.Number & " " & Err.Description

tidyUp:
Set objRows = Nothing
Set objRow = Nothing
Set objTable = Nothing
Set objSize = Nothing
Set objTextFrame = Nothing
Set objFrameTextCursor = Nothing
Set objDocument = Nothing
Set objFrameText = Nothing
Set aSaveArgs(0) = Nothing

End Sub

اخي العزيز ابو يوسف

بارك الله فيك

اين اضع هذا الكود هل في زر الامر ام هو وحدة نمطية ويتم استدعاءه

ارجو التوضيح لاني عملته بكلا الطريقيتن ولم تنفع .

الف شكر

للرفع