I want to do this without the need to confirm the format every time.
When I try to paste to a calc file in OO.o 2.3, a window pops up
asking if I want "Text Import" as "unicode". I need to manually press
<enter>
I ALWAYS want this.
If I select to 'paste special' I am then asked if I want 'unformatted
text' (only choice). I need to manually press <enter>.
Then the same "Text Import" as "unicode" pops up.I need to manually
press <enter> again.
How do I tell OO.o to DEFAULT to this without the pop-up window ALWAYS
showing??
How do I code chr$13 in this macro?
I always want to default to unformatted text from any other program.
(This was also happening in OO.o 2.2)
I recorded a macro to do this but I can't get it to 'ENTER' the final
"ENTER'.
( I have to type <ENTER> manually)
this is the recorded code:
REM ***** BASIC *****
sub PasteUnformatted
rem
----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem
----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Format"
args1(0).Value = 1
dispatcher.executeDispatch(document, ".uno:PasteSpecial", "",
0,args1())
end sub
Thanks for any help, Greg
--
Greg Agent 1.93/32.576 Opera9.24 OOo2.3 Eudora6.2.5.6
news.readfreenews.net & news.gmane.org Win98se
for sale: Apple//,Auto Parts/Equip/Manuals:
http://geardoc36.hostingisfree.com/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
