----- Original Message -----
From: <spool@atlas.cz>
jde nejakym jednoduchym zpusobem upravit text ve Wordu, abych se
zbavil veskere diakritiky?
Diky za kazdou reakci.
----
makrom...
--cut--
Sub BezDiakritiky()
Dim i
Dim dia$
Dim bez$
dia$ = "áäcdéeíllnóôöstúuýzrrÁÄCDÉEÍLLNÓÔÖSTÚUÝZR"
bez$ = "aacdeeillnooostuuyzrrAACDEEILLNOOOSTUUYZR"
For i = 1 To Len(dia$)
WordBasic.EditReplace Find:=Mid(dia$, i, 1), Replace:=Mid(bez$, i,
1), Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=0,
SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, FindAllWordForms:=0
Next i
End Sub
--/cut--
Vsetko za riadkom "For i =..." pocnuc "WordBasic..." sekni na jeden riadok,
dalsi riadok bude az "Next i"
Teraz vidim ze znaky s diakritikou v retazci "dia$" budu "zmrsene",
ale to si bez problemov doplnis.
Dopln si tam este specificke ceske pismena (e s hackom...)
Keby nieco, napis private.
Milan Kevely
milank@softhome.net
This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 06:56 CEST