[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                      \___)=(___/
 
-- Мысль --
Отдаленность увеличивает обаяние.
		-- Тацит