dobry den, kontrola pravopisu mi nepomue, zkomolenin je prilis mnoho a rucne to
opravovat nebudu, bylo by to casove narocne
******
hledal jsem a nasel na internetu script (makro) pro Word (VBA), ktery by to
porovnani vuci wordlistu mel umet, ale rozchodit se mi to nepodarilo, word 2013
vzdy vytuhne, ten script ma delat to ze ty "slova" co nejsou v Czech.dic (pro
potreby makra jsem si jej prejmenoval na 2.txt) zvyrazni tucne a to uz by se pak
asi ve wordu dalo pres Najit (tucne) a Nahradit (za nic nebo mezeru) pouzit,
staci kdyz ve wordu otevru svuj 1.txt (soubor s tim rozpoznanim) a spustim dane
makro ale jak rikam vytuhne to
***********
Sub CompareWordList()
Dim sCheckDoc As String
Dim docRef As Document
Dim docCurrent As Document
Dim wrdRef As Object
sCheckDoc = "c:\2.txt"
Set docCurrent = Selection.Document
Set docRef = Documents.Open(sCheckDoc)
docCurrent.Activate
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.Font.Bold = True
.Replacement.Text = "^&"
.Forward = True
.Format = True
.MatchWholeWord = True
.MatchCase = True
.MatchWildcards = False
End With
For Each wrdRef In docRef.Words
If Asc(Left(wrdRef, 1)) > 32 Then
With Selection.Find
.Wrap = wdFindContinue
.Text = wrdRef
.Execute Replace:=wdReplaceAll
End With
End If
Next wrdRef
docRef.Close
docCurrent.Activate
End Sub
--
<http://forum.pspad.com/read.php?1,67126,67138>
PSPad freeware editor http://www.pspad.com
