Re: StarOffica

Autor: Andrzej Pięta (ap_at_koszalin.tpnet.pl)
Data: Thu 09 Sep 1999 - 09:13:25 MET DST

• Następna wiadomość: Marek Łukawski: "Scroll myszka i OS/2"
• Poprzednia wiadomość: Andrzej Pięta: "Re: StarOffica"
• W odpowiedzi na: Leszek Gerwatowski: "Re: StarOffica"
• Następna w wątku: XMa: "Re: StarOffica"
• Wiadomości sortowane wg: [ datay ] [ wątku ] [ tematu ] [ autora ] [ załącznik ]

On Wed, 8 Sep 1999, Leszek Gerwatowski wrote:

> Dnia 6 Sep 1999 09:10:55 +0200, Andrzej Pięta <ap_at_koszalin.tpnet.pl> napisał(a):
> > >
> > Być może w wersji windzianej tak kiepsko działa. Pod OS/2 nie miałem
> > problemu z 32MB ramu, a i polskie znaki bez problemu się wpisywało.
> > Do otwierania plików z shita dorobiłem sobie makro zamieniające krzaki na
> > polskie znaki. Ogólnie poza brakiem słownika to nie zabardzo mam mu coś do
> > zarzucenia, cały czas na nim pracuje i niemam żadnych problemów.
> >
>
> A mógłbym prosić o takie makro? Bo ja spróbowałem takie coś napisać i nijak mi
> nie wychodzi chociaż na pewno kody literek mam dobre.
>

U mnie to wygląda w ten sposób:
<macro>
Sub zamianacp
                ActiveWindow.SearchSettings.CaseSensitive = TRUE
rem duze litery
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("Ľ","¤") rem A
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("","") rem Z' ziet
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("Ć","") rem C
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("Ę","¨") rem E
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("Ł","") rem L
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("Ń","ă") rem N
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("Ó","ŕ") rem O
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("Œ","—") rem S
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("Ż","˝") rem Z z kropka
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("”",asc(34)) rem uszy
rem koniec duzych liter
rem male litery
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("š","Ľ")
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("ć","†")
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("ę","Š")
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("ł","ˆ")
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("ń","ä")
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("ó","˘")
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("œ","˜")
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("ż","ž")
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("Ÿ","Ť")
                Selection.GoToStartOfDoc( FALSE )
                ActiveWindow.ReplaceAll ("„",asc(34))
rem koniec malych liter
                MsgBox("Zamiana wykonana w caˆym dokumencie",6,"Zamiana Cp1250 - Latin2")

End Sub
</macro>
                        Pozdrowienia
                                Andrzej
OS / 2 > Win ^ 95
|--------Telekomunikacja Polska S.A.----------------------------|
|+ + + +Andrzej Pięta+ + + + + + + + + + + + + + + + + + + + + +|
|* * * *ap_at_zt.koszalin.tpsa.pl ap_at_zt.koszalin.tpnet.pl* * * * *|
|--------Zakład Telekomunikacji w Koszalinie--------------------|

• Następna wiadomość: Marek Łukawski: "Scroll myszka i OS/2"
• Poprzednia wiadomość: Andrzej Pięta: "Re: StarOffica"
• W odpowiedzi na: Leszek Gerwatowski: "Re: StarOffica"
• Następna w wątku: XMa: "Re: StarOffica"
• 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:36 MET DST