----- 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]
