From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <Dmitriy.Kruglikov@orionagro.com.ua>
Date: Fri, 5 May 2006 11:45:07 +0300
From: "Dmitriy L. Kruglikov" <Dmitriy.Kruglikov@orionagro.com.ua>
To: community@lists.altlinux.org
Message-ID: <20060505114507.6b427787@shadow.orionagro.com.ua>
In-Reply-To: <20060505081854.GZ13926@osdn.org.ua>
References: <20060505101931.2cd2affa@shadow.orionagro.com.ua>
	<20060505081854.GZ13926@osdn.org.ua>
Organization: ORION AGRO
X-Mailer: Sylpheed-Claws 2.0.0cvs41 (GTK+ 2.8.17; i586-alt-linux-gnu)
Mime-Version: 1.0
Content-Type: text/plain; charset=KOI8-R
Content-Transfer-Encoding: 8bit
X-Virus-Scanned: amavisd-new at orionagro.com.ua
Subject: Re: [Comm] =?koi8-r?b?7tXWzsEg0M/Nz93YINcg0MXSxcjPxMUgzsEg7+/P?=
X-BeenThere: community@lists.altlinux.org
X-Mailman-Version: 2.1.7
Precedence: list
Reply-To: ALT Linux Community <community@lists.altlinux.org>
List-Id: ALT Linux Community <community.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/listinfo/community>,
	<mailto:community-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/community>
List-Post: <mailto:community@lists.altlinux.org>
List-Help: <mailto:community-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/community>,
	<mailto:community-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Fri, 05 May 2006 08:45:17 -0000
Archived-At: <http://lore.altlinux.org/community/20060505114507.6b427787@shadow.orionagro.com.ua/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

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