domyślny seperator tekstu

[pruszko]

Witam Wszystkich!
Jestem szczęśliwym użytkownikiem nowej wersji OO 3.3 i mam drobny problem.
Czy ktoś może wie gdzie można ustawić domyślny separator tekstu przy imporcie do calca? Po prostu chcę tak ja miałem w oo 3.2 domyślny separator TAB. Mam napisane pewne makro, które mi automatycznie wstawia pewne zestawienie w formie tekstowej. To makro wklejało mi to zestawienie automatycznie ale teraz muszę za każdym razem wskazywać na tabulator jako separator. Może można to gdzieś ustawić na stałe?

[Jan_J]

Trzeba by porzebać po konfiguracji, na pamięć nie wiem.
Ale w makrze da się dodać argument do intrukcji wywołania filtra, który wymusi odpowiednie traktowanie tab-a.

[pruszko]

Dzięku Janie za odpowiedź . Oto te makro, czy mógłbyś pomóc w napisaniu tej instrukcji?

Kod: Zaznacz cały

REM  *****  BASIC  *****
 'wkleja zawartość schowka w określone miejce wcześniej czyści arkusz'

sub wklej_kadry
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 = "Nr"
args1(0).Value = 5

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SelectAll", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0, Array())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$A$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$A$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

end sub