Autor: Jaroslaw Tabor (jarek_at_srv.pl)
Data: Thu 10 Feb 2000 - 20:17:27 MET
"Marcin P. Ciaszczyk" napisa³(a):
> To znalazlem w poscie od Leszka Gerwatowskiego z 28.08.99
> /* CYTATA */
> Sub win2iso
Jak wskazuje nazwa to makro zmienia z 1250 na ISO8859-2 !!!
To nie jest to co nam potrzeba. To makro pochodzi z SO dla linuxa. W OS/2 jest
CP852.
Wlasnie niedawno zaczalaem poprawiac to makro zeby chodzilo z 852, ale nie
doszedlem
do konca z braku czasu.
To jest moje :
Sub win2852
ActiveWindow.ReplaceAll(Chr(165),Chr(164))
ActiveWindow.ReplaceAll(Chr(198),Chr(143))
ActiveWindow.ReplaceAll(Chr(202),Chr(168))
ActiveWindow.ReplaceAll(Chr(163),Chr(157))
ActiveWindow.ReplaceAll(Chr(209),Chr(227))
ActiveWindow.ReplaceAll(Chr(211),Chr(224))
ActiveWindow.ReplaceAll(Chr(140),Chr(151))
ActiveWindow.ReplaceAll(Chr(143),Chr(141))
ActiveWindow.ReplaceAll(Chr(175),Chr(189))
ActiveWindow.ReplaceAll(Chr(185),Chr(165))
ActiveWindow.ReplaceAll(Chr(230),Chr(134))
ActiveWindow.ReplaceAll(Chr(234),Chr(169))
ActiveWindow.ReplaceAll(Chr(179),Chr(136))
ActiveWindow.ReplaceAll(Chr(241),Chr(228))
ActiveWindow.ReplaceAll(Chr(243),Chr(162))
ActiveWindow.ReplaceAll(Chr(156),Chr(152))
ActiveWindow.ReplaceAll(Chr(159),Chr(171))
ActiveWindow.ReplaceAll(Chr(191),Chr(190))
End Sub
Problem w tym ze nie mam jak sprawdzic, bo nie mam Worda ani dokumentu z
polskimi literkami.
Jako ktos sprawdzi ze dziala to niech da znac.
JT.
To archiwum zosta³o wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:26:03 MET DST