Re: Makro do StarOffice 5.1

Autor: Leszek Gerwatowski (Leszek.Gerwatowski_at_pwpw.pl)
Data: Tue 28 Sep 1999 - 16:50:42 MET DST

• Następna wiadomość: Piotr Grzybowski: "Re: TPSA sux"
• Poprzednia wiadomość: Leszek Gerwatowski: "Re: Odp: word 97 a OS2"
• W odpowiedzi na: lk: "Makro do StarOffice 5.1"
• Wiadomości sortowane wg: [ datay ] [ wątku ] [ tematu ] [ autora ] [ załącznik ]

Dnia Mon, 27 Sep 1999 08:57:19 GMT, lk <leszcz_at_rocketmail.com> napisał(a):
> Bardzo prosze o makro do konwersji polskich znaków dla StarOffice 5.1.
> Bardzo mi zalezy na czasie wiec czekam niecierpilwie na odpowiedz. Serdeczne
> dzieki za poprzednie podpowiedzi.
> Pozdrowionka.
>

Proszę bardzo:

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"

• Następna wiadomość: Piotr Grzybowski: "Re: TPSA sux"
• Poprzednia wiadomość: Leszek Gerwatowski: "Re: Odp: word 97 a OS2"
• W odpowiedzi na: lk: "Makro do StarOffice 5.1"
• Wiadomości sortowane wg: [ datay ] [ wątku ] [ tematu ] [ autora ] [ załącznik ]

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