Re: Makro konwertujŕce polskie litery do StarOffice

Autor: Marcin P. Ciaszczyk (mpc_at_chzgoda.pl)
Data: Thu 10 Feb 2000 - 12:39:07 MET

On Sun, 10 Feb 3900 12:19:07, dobrawka_at_obta.uw.edu.pl (Przemyslaw
Dobrowolski) wrote:

> On Thu, 10 Feb 2000 12:08:36 +0100 (MET), Jan N. Waliszewski wrote:
>
> >1. swego czasu widzia em tu makro umo liwiaj ce konwersjŕ polskich liter
> >w StarOffice pomiŕdzy CP1250 a CP852. Czy mo e mi je kto podrzuciŠ na
> >konto prywatne (nie bardzo mam ochotŕ wymyÂlaŠ je samemu...). BTW: makro
> >takie mog oby siŕ pojawiŠ na stronach Teamu....
>
> Też poproszę...
>
To znalazlem w poscie od Leszka Gerwatowskiego z 28.08.99
/* CYTATA */
Sub win2iso
ActiveWindow.ReplaceAll(Chr(185),Chr(177))
ActiveWindow.ReplaceAll(Chr(156),Chr(182))
ActiveWindow.ReplaceAll(Chr(159),Chr(188))
ActiveWindow.ReplaceAll(Chr(165),Chr(161))
ActiveWindow.ReplaceAll(Chr(140),Chr(166))
ActiveWindow.ReplaceAll(Chr(143),Chr(172))
End Sub
 
Sub iso2win
ActiveWindow.ReplaceAll(Chr(177),Chr(185))
ActiveWindow.ReplaceAll(Chr(182),Chr(156))
ActiveWindow.ReplaceAll(Chr(188),Chr(159))
ActiveWindow.ReplaceAll(Chr(161),Chr(165))
ActiveWindow.ReplaceAll(Chr(166),Chr(140))
ActiveWindow.ReplaceAll(Chr(172),Chr(143))
End Sub
 
  

-- 
o------------------o      ___
|Leszek Gerwatowski|    _/_|_\
o------------------o   (o\__/o)=)))))))))))))
"Don't fix it if it isn't broken"
 
/* END CYTATA */
na cp852 to ja to sobie przerobilem zmieniajac kody wyjsciowe
Pozdrawiam i przepraszam za cytowanie bez zgody autora :)
mpc

To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:26:03 MET DST