[Comm] Нужна помощь в переходе на ООо

[Comm] Нужна помощь в переходе на ООо

[Dmitriy L. Kruglikov]

Доброго времени суток.

Возникла маленькая проблемка при переходе на ОпенОфис.

Был в пользовании макрос, написаный на VB, который преобразовывал
циферки в слова ...

По лицензионным соображениям этот макрос больше не к чему подключать ...

Помогите, кто может, написать аналогичный под ОпенОфис ...
У меня таких мозгов нет в пользовании :(

Или посоветуйте что-либо дельное ...

Макрос вышлю в личку, потому как размер в рассылку не пролазит ...

За ранее спасибо.



--
Best regards,
 Dmitriy L. Kruglikov                     .--.
 Dmitriy.Kruglikov@orionagro.com.ua      |@_@ |
 DKR6-RIPE                               |!_/ |
 ICQ# 13047326                          //   \ \
 XMPP:dkr6@jabber.ru                   (|     | )
                                      /'\_   _/`\
Powered by Linux                      \___)=(___/
 
-- Мысль --
Если человеку судьба рисовать, он будет рисовать даже ложкой по воде.
		-- Еврейская пословица

Re: [Comm] Нужна помощь в переходе на ООо

[Шишков Евгений Витальевич]

Dmitriy L. Kruglikov пишет:
> Доброго времени суток.
> 
> Возникла маленькая проблемка при переходе на ОпенОфис.
> 
> Был в пользовании макрос, написаный на VB, который преобразовывал
> циферки в слова ...
> 
> По лицензионным соображениям этот макрос больше не к чему подключать ...
> 
> Помогите, кто может, написать аналогичный под ОпенОфис ...
> У меня таких мозгов нет в пользовании :(
> 
> Или посоветуйте что-либо дельное ...
> 
> Макрос вышлю в личку, потому как размер в рассылку не пролазит ...
> 
> За ранее спасибо.
Интересно.
Можно попробовать.
Это типа 123 преобразовывал в 'сто двадцать три'?

-- 
С уважением,
Шишков Евгений (evgen[собак]tulanews[тчк]ru)

Re: [Comm] Нужна помощь в переходе на ООо

[Dmitriy L. Kruglikov]

On Fri, 05 May 2006 11:22:03 +0400
Шишков Евгений Витальевич wrote:


> Интересно.
> Можно попробовать.
> Это типа 123 преобразовывал в 'сто двадцать три'?
> 
 Это типа каталожный номер Ж/Д станции преобразовать в ее название на
человечьем языке.

Типа я так понял, что в личку макрос можно высылать?



--
Best regards,
 Dmitriy L. Kruglikov                     .--.
 Dmitriy.Kruglikov@orionagro.com.ua      |@_@ |
 DKR6-RIPE                               |!_/ |
 ICQ# 13047326                          //   \ \
 XMPP:dkr6@jabber.ru                   (|     | )
                                      /'\_   _/`\
Powered by Linux                      \___)=(___/
 
-- Мысль --
Дурак, которого вдруг осенила умная мысль, удивляет и озадачивает, как 
извозчичья кляча, несущаяся галопом.
		-- Шамфор

Re: [Comm] Нужна помощь в переходе на ООо

[Шишков Евгений Витальевич]

Dmitriy L. Kruglikov пишет:

> 
>> Интересно.
>> Можно попробовать.
>> Это типа 123 преобразовывал в 'сто двадцать три'?
>>
>  Это типа каталожный номер Ж/Д станции преобразовать в ее название на
> человечьем языке.
> 
> Типа я так понял, что в личку макрос можно высылать?

Давай. Попробую...
-- 
С уважением,
Шишков Евгений (evgen[собак]tulanews[тчк]ru)

Re: [Comm] Нужна помощь в переходе на ООо

[Valery V. Inozemtsev]

[-- Attachment #1: Type: text/plain, Size: 664 bytes --]

В сообщении от 5 мая 2006 11:19 Dmitriy L. Kruglikov написал(a):
> Доброго времени суток.
>
> Возникла маленькая проблемка при переходе на ОпенОфис.
>
> Был в пользовании макрос, написаный на VB, который преобразовывал
> циферки в слова ...
>
> По лицензионным соображениям этот макрос больше не к чему подключать ...
>
> Помогите, кто может, написать аналогичный под ОпенОфис ...
> У меня таких мозгов нет в пользовании :(
>
> Или посоветуйте что-либо дельное ...

http://oodevel.org.ru/
эта библиотека есть в openoffice.org2-2.0.2-alt0.1.M24

>
> Макрос вышлю в личку, потому как размер в рассылку не пролазит ...
>
> За ранее спасибо.

-- 
Valery V. Inozemtsev

[-- Attachment #2: Type: application/pgp-signature, Size: 191 bytes --]

Re: [Comm] Нужна помощь в переходе на ООо

[Michael Shigorin]

On Fri, May 05, 2006 at 10:19:31AM +0300, Dmitriy L. Kruglikov wrote:
> Возникла маленькая проблемка при переходе на ОпенОфис.
> Был в пользовании макрос, написаный на VB, который
> преобразовывал циферки в слова ...
> По лицензионным соображениям этот макрос больше не к чему
> подключать ...

1) может, Вам cyrtools нужны?
   ftp://ftp.linux.kiev.ua/pub/soft/OpenOffice/tools/
   (устанавливаются через Tools>Package Manager в 2.0)

2) мы занимаемся таким консалтингом.

-- 
Michael Shigorin
EMT.Com.UA

Re: [Comm] Нужна помощь в переходе на ООо

[Dmitriy L. Kruglikov]

On Fri, 5 May 2006 11:18:54 +0300
Michael Shigorin wrote:

> 
> 1) может, Вам cyrtools нужны?
>    ftp://ftp.linux.kiev.ua/pub/soft/OpenOffice/tools/
>    (устанавливаются через Tools>Package Manager в 2.0)
> 
> 2) мы занимаемся таким консалтингом.
> 

У меня проблема со специализированным макросом преобразования номера
станции Ж/Д в ее название.
Эти названия и забиты в макросе ...
Типа так:
Attribute VB_Name = "ТЕХПД"

Sub ТЕХПД()
Attribute ТЕХПД.VB_Description = "Макрос записан 30.01.03 Роман"
Attribute ТЕХПД.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.ТЕХПД"
'
' ТЕХПД Макрос
' Макрос записан 30.01.03 Демидович Роман (для Орион Агро)
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "     ДАТА   КОД ДОКУМЕНТ СТАНЦIЯ        СУМА
ПДВ" .Replacement.Text = "     ДАТА   КОД ДОКУМЕНТ
СТАНЦIЯ                  СУМА ПДВ"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "400004"
        .Replacement.Text = "Одесса-Сортировочная"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


И таких блоков там немеряно ...
Собственно, это база подстановок 
"400004" = "Одесса-Сортировочная"
И так далее ...

Кодировку я поменял... В оригинале СР-1251...

Так вот, к нашим сотрудникам по мылу приходит doc с отчетом, где 
в колонке "Станция" написаны циферки, и макрос прописывает названия
вместо них... Документ генериться, видать, автоматически ...
И без этого макроса нам ни как ...



--
Best regards,
 Dmitriy L. Kruglikov                     .--.
 Dmitriy.Kruglikov@orionagro.com.ua      |@_@ |
 DKR6-RIPE                               |!_/ |
 ICQ# 13047326                          //   \ \
 XMPP:dkr6@jabber.ru                   (|     | )
                                      /'\_   _/`\
Powered by Linux                      \___)=(___/
 
-- Мысль --
Отдаленность увеличивает обаяние.
		-- Тацит

Re: [Comm] Нужна помощь в переходе на ООо

[Andrii Dobrovol`s`kii]

[-- Attachment #1: Type: text/plain, Size: 1082 bytes --]

Dmitriy L. Kruglikov пишет:
> On Fri, 5 May 2006 11:18:54 +0300
> Michael Shigorin wrote:
> 
>> 1) может, Вам cyrtools нужны?
>>    ftp://ftp.linux.kiev.ua/pub/soft/OpenOffice/tools/
>>    (устанавливаются через Tools>Package Manager в 2.0)
>>
>> 2) мы занимаемся таким консалтингом.
>>
> 
> У меня проблема со специализированным макросом преобразования номера
> станции Ж/Д в ее название.
> Эти названия и забиты в макросе ...
> Типа так:
> Attribute VB_Name = "ТЕХПД"
>
ИМХО. Самое время заменить это безобразие на более правильный
вариант. :) Т.е. сделать базу соответствий код-станция и брать из
базы назавания по коду через подстановку значения поля в документ.
Кажись ОО 2Х такое уже умеет.
-- 
Rgrds,
Andriy
*********************************************************************
email: dobr at iop dot kiev dot ua            Kyiv, Ukraine
Phone: (380-44)   525-7824            Department of Gas Electronics
Fax:   (380-44)   525-2329             Institute of Physics of NASU
*********************************************************************


[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 191 bytes --]

Re: [Comm] Нужна помощь в переходе на ООо

[Шишков Евгений Витальевич]

Andrii Dobrovol`s`kii пишет:
>>
>>> 1) может, Вам cyrtools нужны?
>>>    ftp://ftp.linux.kiev.ua/pub/soft/OpenOffice/tools/
>>>    (устанавливаются через Tools>Package Manager в 2.0)
>>>
>>> 2) мы занимаемся таким консалтингом.
>>>
>> У меня проблема со специализированным макросом преобразования номера
>> станции Ж/Д в ее название.
>> Эти названия и забиты в макросе ...
>> Типа так:
>> Attribute VB_Name = "ТЕХПД"
>>
> ИМХО. Самое время заменить это безобразие на более правильный
> вариант. :) Т.е. сделать базу соответствий код-станция и брать из
> базы назавания по коду через подстановку значения поля в документ.
> Кажись ОО 2Х такое уже умеет.
Дело в том, что ОО не может понять например вот это:
     Selection.Find.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
     With Selection.Find

-- 
С уважением,
Шишков Евгений (evgen[собак]tulanews[тчк]ru)

Re: [Comm] Нужна помощь в переходе на ООо

[Andrii Dobrovol`s`kii]

[-- Attachment #1: Type: text/plain, Size: 1498 bytes --]

Шишков Евгений Витальевич пишет:
> Andrii Dobrovol`s`kii пишет:
>>>> 1) может, Вам cyrtools нужны?
>>>>    ftp://ftp.linux.kiev.ua/pub/soft/OpenOffice/tools/
>>>>    (устанавливаются через Tools>Package Manager в 2.0)
>>>>
>>>> 2) мы занимаемся таким консалтингом.
>>>>
>>> У меня проблема со специализированным макросом преобразования номера
>>> станции Ж/Д в ее название.
>>> Эти названия и забиты в макросе ...
>>> Типа так:
>>> Attribute VB_Name = "ТЕХПД"
>>>
>> ИМХО. Самое время заменить это безобразие на более правильный
>> вариант. :) Т.е. сделать базу соответствий код-станция и брать из
>> базы назавания по коду через подстановку значения поля в документ.
>> Кажись ОО 2Х такое уже умеет.
> Дело в том, что ОО не может понять например вот это:
>      Selection.Find.ClearFormatting
>      Selection.Find.Replacement.ClearFormatting
>      With Selection.Find
> 
ИМХО, сам принцип того макроса ущербен. Подменять базу данных
макросом в принципе неправильно. Даные должны храниться отдельно, а
логика их обработки отдельно. Т.к. всё равно требуется передлка, то
лучше сразу сделать "по людски".

-- 
Rgrds,
Andriy
*********************************************************************
email: dobr at iop dot kiev dot ua            Kyiv, Ukraine
Phone: (380-44)   525-7824            Department of Gas Electronics
Fax:   (380-44)   525-2329             Institute of Physics of NASU
*********************************************************************


[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 191 bytes --]

Re: [Comm] Нужна помощь в переходе на ООо

[Шишков Евгений Витальевич]

Andrii Dobrovol`s`kii пишет:
>> Дело в том, что ОО не может понять например вот это:
>>      Selection.Find.ClearFormatting
>>      Selection.Find.Replacement.ClearFormatting
>>      With Selection.Find
>>
> ИМХО, сам принцип того макроса ущербен. Подменять базу данных
> макросом в принципе неправильно. Даные должны храниться отдельно, а
> логика их обработки отдельно. Т.к. всё равно требуется передлка, то
> лучше сразу сделать "по людски".

Макрос написан просто на пролом.

-- 
С уважением,
Шишков Евгений (evgen[собак]tulanews[тчк]ru)

Re: [Comm] Нужна помощь в переходе на ООо

[Dmitriy L. Kruglikov]

On Fri, 05 May 2006 13:34:28 +0300
Andrii Dobrovol`s`kii wrote:

> > Дело в том, что ОО не может понять например вот это:
> >      Selection.Find.ClearFormatting
> >      Selection.Find.Replacement.ClearFormatting
> >      With Selection.Find
> > 
> ИМХО, сам принцип того макроса ущербен. Подменять базу данных
> макросом в принципе неправильно. Даные должны храниться отдельно, а
> логика их обработки отдельно. Т.к. всё равно требуется передлка, то
> лучше сразу сделать "по людски".
Я ж не спорю .... 
Но не умею я ни "по людски", ни "по мастдайному" ...
Я паять умею ... Параметры кабеля измерять умею ...
Затухание канала связи...
Ну, сеть спланировать и построить ...
Кое как настроить сервисы, чтоб работали :)

Потому и помощи прошу :)

Ткните носом:
1) Заменить ЭТО на ТО...
2) ВОТ ТУТ написать ТАК...
3) Повторить ЭТО столько-то раз...

И я все сделаю. :)

P.S. Этот злополучный макрос должен работать не в электронной таблице,
а в текстовом документе... Хотя, это не должно иметь значения, вроде
как...



--
Best regards,
 Dmitriy L. Kruglikov                     .--.
 Dmitriy.Kruglikov@orionagro.com.ua      |@_@ |
 DKR6-RIPE                               |!_/ |
 ICQ# 13047326                          //   \ \
 XMPP:dkr6@jabber.ru                   (|     | )
                                      /'\_   _/`\
Powered by Linux                      \___)=(___/
 
-- Мысль --
Не думай, что сделавши что-либо нехорошее, ты сможешь скрыться, так 
как, скрывшись от других, ты не скроешься от своей совести.
		-- Исократ

Re: [Comm] [JT] Нужна помощь в переходе на ООо

[Шишков Евгений Витальевич]

Dmitriy L. Kruglikov пишет:

> Потому и помощи прошу :)
> 
> 
> P.S. Этот злополучный макрос должен работать не в электронной таблице,
> а в текстовом документе... Хотя, это не должно иметь значения, вроде
> как...

Нда, дока в ОО ....
Ни фига не пойму как из документа строку взять и вставить её....
Пора изучать правильные весчи.....

-- 
С уважением,
Шишков Евгений (evgen[собак]tulanews[тчк]ru)

Re: [Comm] [JT] Нужна помощь в переходе на ООо

[Dmitriy L. Kruglikov]

On Fri, 05 May 2006 14:57:47 +0400
Шишков Евгений Витальевич wrote:

> Нда, дока в ОО ....
> Ни фига не пойму как из документа строку взять и вставить её....


Думаю, именно по этому макрос и работает путем перебора всего текста и
подмены одной последовательности на другую ...

Я тут нарыл описалово на макросы VB и SB ...
С описанием различий каждой команды.
Например:
VBA
Sub MyProc
  Dim wksh as Worksheet
    set wksh = ActiveWorksheet
End Sub

SB
Sub MyProc
    Dim oSheet as Object

    oSheet = ThisComponent.CurrentController.ActiveSheet

    'or

    set oSheet = ThisComponent.CurrentController.ActiveSheet
End Sub

Только там все на буржуйском языке ...
Кому интересно, то тут:
http://www.openoffice.org/nonav/issues/showattachment.cgi/15705/VbaStarBasicXref.sxw



--
Best regards,
 Dmitriy L. Kruglikov                     .--.
 Dmitriy.Kruglikov@orionagro.com.ua      |@_@ |
 DKR6-RIPE                               |!_/ |
 ICQ# 13047326                          //   \ \
 XMPP:dkr6@jabber.ru                   (|     | )
                                      /'\_   _/`\
Powered by Linux                      \___)=(___/
 
-- Мысль --
Не во времени все возникает, а само возникновение и есть время.
		-- Гегель

Re: [Comm] [JT] Нужна помощь в переходе на ООо

[Шишков Евгений Витальевич]

Dmitriy L. Kruglikov пишет:
>> Нда, дока в ОО ....
>> Ни фига не пойму как из документа строку взять и вставить её....
> 
> 
> Думаю, именно по этому макрос и работает путем перебора всего текста и
> подмены одной последовательности на другую ...
Да нет. В M$ отличная дока.

Нарыл как к документу подкопаться (текст получить).

Sub Main

oDoc=ThisComponent
MyText=oDoc.GetText()

MsgBox MyText.String
	
End Sub

Пора в oo рассылку нас гнать... 8)

-- 
С уважением,
Шишков Евгений (evgen[собак]tulanews[тчк]ru)

Re: [Comm] [JT] Нужна помощь в переходе на ООо

[Dmitriy L. Kruglikov]

On Fri, 05 May 2006 15:27:32 +0400
Шишков Евгений Витальевич wrote:

> Dmitriy L. Kruglikov пишет:
> >> Нда, дока в ОО ....
> >> Ни фига не пойму как из документа строку взять и вставить её....
> > 
> > 
> > Думаю, именно по этому макрос и работает путем перебора всего текста и
> > подмены одной последовательности на другую ...
> Да нет. В M$ отличная дока.
> 
> Нарыл как к документу подкопаться (текст получить).
> 
> Sub Main
> 
> oDoc=ThisComponent
> MyText=oDoc.GetText()
> 
> MsgBox MyText.String
> 	
> End Sub
> 
> Пора в oo рассылку нас гнать... 8)
> 
Не знаю, как вас, а я уже там ... ?)
Гнать, не гнали, но вежливо намекнули ...

А посему в этой рассылке эту тему я предлагаю закрыть ...

И приношу свои извинения, если кому-то помешал.



--
Best regards,
 Dmitriy L. Kruglikov                     .--.
 Dmitriy.Kruglikov@orionagro.com.ua      |@_@ |
 DKR6-RIPE                               |!_/ |
 ICQ# 13047326                          //   \ \
 XMPP:dkr6@jabber.ru                   (|     | )
                                      /'\_   _/`\
Powered by Linux                      \___)=(___/
 
-- Мысль --
У семи редакторов автор без книги.
		-- В.Коняхин

Re: [Comm] [JT] Нужна помощь в переходе на ООо

[Шишков Евгений Витальевич]

Dmitriy L. Kruglikov пишет:

>> Пора в oo рассылку нас гнать... 8)
>>
> Не знаю, как вас, а я уже там ... ?)
Там... это где? Где подписываться?

-- 
С уважением,
Шишков Евгений (evgen[собак]tulanews[тчк]ru)

Re: [Comm] [JT] Нужна помощь в переходе на ООо

[Dmitriy L. Kruglikov]

On Fri, 05 May 2006 15:39:42 +0400
Шишков Евгений Витальевич wrote:

> Там... это где? Где подписываться?
https://lists.openoffice.ru/mailman/listinfo/oo-discuss



--
Best regards,
 Dmitriy L. Kruglikov                     .--.
 Dmitriy.Kruglikov@orionagro.com.ua      |@_@ |
 DKR6-RIPE                               |!_/ |
 ICQ# 13047326                          //   \ \
 XMPP:dkr6@jabber.ru                   (|     | )
                                      /'\_   _/`\
Powered by Linux                      \___)=(___/
 
-- Мысль --
Мала гадюка, да ядовита.
		-- Томас Фуллер

Re: [Comm] Нужна помощь в переходе на ООо

[Michael Popov]

Есть пакет CyrillicTools. Легко гуглится.
Там есть готовое решение.

В Calc можно сделать функции, преобразующие число в строку.

PS. И заходите на http://community.i-rs.ru/


Dmitriy L. Kruglikov wrote:
> Доброго времени суток.
> 
> Возникла маленькая проблемка при переходе на ОпенОфис.
> 
> Был в пользовании макрос, написаный на VB, который преобразовывал
> циферки в слова ...
> 
> По лицензионным соображениям этот макрос больше не к чему подключать ...
> 
> Помогите, кто может, написать аналогичный под ОпенОфис ...
> У меня таких мозгов нет в пользовании :(
> 
> Или посоветуйте что-либо дельное ...

Re: [Comm] Нужна помощь в переходе на ООо

[Dmitriy L. Kruglikov]

On Fri, 5 May 2006 10:19:31 +0300
Dmitriy L. Kruglikov wrote:

> Доброго времени суток.
> 
> Возникла маленькая проблемка при переходе на ОпенОфис.

Большое спасибо всем откликнувшимся ...
Вопрос уже решен.

За подробностями в личку ...



--
Best regards,
 Dmitriy L. Kruglikov                     .--.
 Dmitriy.Kruglikov@orionagro.com.ua      |@_@ |
 DKR6-RIPE                               |!_/ |
 ICQ# 13047326                          //   \ \
 XMPP:dkr6@jabber.ru                   (|     | )
                                      /'\_   _/`\
Powered by Linux                      \___)=(___/
 
-- Мысль --
ЗАКОН НАХОДИМОСТИ ОШИБОК
  Программист может найти ошибку только в чужой программе.

СЛЕДСТВИЕ
  Ошибке не все равно, кто ее обнаружит.

Re: [Comm] Нужна помощь в переходе на ООо

[Dmitriy L. Kruglikov]

On Fri, 05 May 2006 18:49:33 +0400
Michael Popov wrote:

> Есть пакет CyrillicTools. Легко гуглится.
> Там есть готовое решение.
> 
Спасибо ... Но я уже писал вчера, что вопрос решен ...
Но не CyrillicTools.... 
Помогли в рассылке oo-discuss@openoffice.ru

> 
> PS. И заходите на http://community.i-rs.ru/
Спасибо .... Зайду ...



--
Best regards,
 Dmitriy L. Kruglikov                     .--.
 Dmitriy.Kruglikov@orionagro.com.ua      |@_@ |
 DKR6-RIPE                               |!_/ |
 ICQ# 13047326                          //   \ \
 XMPP:dkr6@jabber.ru                   (|     | )
                                      /'\_   _/`\
Powered by Linux                      \___)=(___/
 
-- Мысль --
Сильна Россия чудесами 
И не устала их плести: 
Здесь выбирают овцы сами 
Себе волков себя пасти.
		-- И.М.Губерман