Re: Fw: [users] Writer Automation

Thu, 24 Nov 2005 05:54:51 -0800

No comment on how to do this in Delphi, but for readonly, you need the argument 

ReadOnly
With the value True. I recommend that you first figure out how to do this in Basic and then implement it in Delphi. I have examples in my free macro document and I can not comment on Delphi since I do not have access to it. 

Alejandro wrote:
----- Original Message ----- From: "Alejandro" <[EMAIL PROTECTED]> 
To: <[email protected]>
Sent: Tuesday, November 22, 2005 8:43 AM
Subject: Re: [users] Writer Automation



Thanks Andrew

I want to assign the formated text to a  variable (really in a compoment

on

the form), for view and printing only.

Thanks.
Alejandro.
----- Original Message ----- From: "Andrew Douglas Pitonyak" <[EMAIL PROTECTED]> 
To: <[email protected]>
Sent: Monday, November 21, 2005 6:56 PM
Subject: Re: [users] Writer Automation



Alejandro wrote:


Hi

I'm attempting to use Writer from a program write in Delphi that open

a

.DOC document, the program Works good but the problem  is that  when I run
my program de Writer is open with the document, y must do that my program
open the doument without open the Writer and return the text in a

component

or a variable, for view o printing only. In MS Office I can Do that, but

im

New with the Open Office.

The Code or my program is:

function TSampleCode.CreateTextDocument(): Variant;
var
 ServiceManager: Variant;
 StarDesktop: Variant;
 Document: Variant;
begin
  ServiceManager:=CreateOleObject('com.sun.star.ServiceManager');


StarDesktop:=ServiceManager.CreateInstance('com.sun.star.frame.Desktop');

  Document:=ServiceManager.CreateInstance('com.sun.star.Text.text');
  Document:=

StarDeskTop.LoadComponentFromUrl('file:///C:/Tmp/ALE.doc','_blank',0,VarArra

yCreate([0, -1],varVariant));

  CreateTextDocument:=Document;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 SampleCode:TSampleCode;
begin
 SampleCode:=TSampleCode.Create;
 SampleCode.CreateTextDocument();
end;

Thanks



I do not understand what you want to do.
When you open a document, this opens a document such that you can edit
and manipulate the document. This is what your code snippet does.
I am not certain if you are saying that you want to open the document
but NOT have it visible? You can do this. You passing an empty array of
arguments, but you could pass the following arguments:

*'Dim args(0) As New com.sun.star.beans.PropertyValue*

*'args(0).name="Hidden"*

*'args(0).value=true*


Did you NOT want to open the document, but merely have the contained
text assigned to a variable?

--
Andrew Pitonyak
My Macro Document: http://www.pitonyak.org/AndrewMacro.odt
My Book: http://www.hentzenwerke.com/catalog/oome.htm
Info:  http://www.pitonyak.org/oo.php
See Also: http://documentation.openoffice.org/HOW_TO/index.html


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



--
Andrew Pitonyak
My Macro Document: http://www.pitonyak.org/AndrewMacro.odt
My Book: http://www.hentzenwerke.com/catalog/oome.htm
Info:  http://www.pitonyak.org/oo.php
See Also: http://documentation.openoffice.org/HOW_TO/index.html


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to