V níže uvedeném článku bychom vám chtěli poskytnout 2 užitečné metody pro fuzzy vyhledávání v dokumentu Word.
Občas se stává, že zapomeneme, jak se slovo správně píše, zvláště když je dlouhé. Většinou si pamatujeme jen pár počátečních písmen. To přesné vyhledávání téměř znemožňuje.
Naštěstí pro nás existují způsoby fuzzy vyhledávání. A můžete je použít ve svém dokumentu Word.
Metoda 1: Použijte funkci „Rozšířené hledání“ v aplikaci Word
V našem případě budeme hledat „DataNumen“, Předpokládejme, že si pamatujeme, že to začíná na„ Data “.
- Nejprve klikněte ve skupině „Úpravy“ na kartě „Domů“ na rozevírací tlačítko vedle příkazu „Najít“.
- A v této nabídce vyberte možnost „Rozšířené hledání“.
- Poté vložte ukazatel vložení do textového pole „Najít co“ a vložte tam následující zástupné znaky:
- „Data“ jsou počáteční písmena cílového slova. Měli byste je nahradit skutečnými písmeny. V případě, že zapomenete počáteční písmena, nechte pole prázdné a nevkládejte ani mezeru.
- A „n,m“ představuje počet zbývajících písmen cílového slova, s výjimkou počátečních písmen. V tomto případě je to například číslo „5“. Zástupné znaky by tedy měly vypadat takto:
- Pokud si nejste jisti přesným počtem písmen, můžete zadat dvě čísla označující rozsah, například:
- A pokud jste si jisti, že délka písmene je stejná nebo větší než konkrétní číslo, zadejte jej do výrazu, například takto:
- Poté klikněte na „Více“ a zobrazte další možnosti.
- Zaškrtněte políčko „Použít zástupné znaky“.
- Poté klikněte na „Najít v“ a vyberte „Hlavní dokument“.
Ve výběru uvidíte všechny výskyty cílového slova.
Metoda 2: Spuštěním kódů VBA vyhledejte text
Spuštění kódů VBA vám může ušetřit zapamatování výrazu.
- Nejprve stiskněte klávesy „Alt+F11“ pro spuštění editoru VBA ve Wordu.
- Dále klikněte na „Normální“ projekt a poté klikněte na „Vložit“.
- V nabídce zvolte „Modul“.
- Poklepáním na něj otevřete a vložte následující kódy:
Sub FindTheWordsByLength()
Dim objRange As Range
Dim strStartWord As String
Dim strLength As String
strStartWord = InputBox("Enter the beginning letters which you remember of target word ", "Beginning Letters of Word", "For example:Data")
strLength = InputBox("Enter the letter length of the rest part of target word which you don't remember", "Number of Letter Length", "For example:5,7")
With Selection
.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "<" & strStartWord & "[a-zA-Z]{" & strLength & "}>"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute
End With
Do While .Find.Found
Set objRange = Selection.Range
objRange.HighlightColorIndex = wdYellow
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
End Sub
- Potom spusťte makro stisknutím klávesy „F5“.
- Do prvního zobrazeného vstupního pole zadejte počáteční písmena cílového slova a klikněte na tlačítko „OK“ pro pokračování.
- A do druhého pole zadejte počet písmen a klikněte na „OK“. K oddělení čísel použijte čárku.
Nakonec budou všechna nalezená slova zvýrazněna žlutě.
Opravte problémy se slovy
Nejčastěji se v Wordu pravděpodobně vyskytnou různé problémy. Některé závažné mohou dokonce vést ke zhroucení softwaru. A zkorumpované slovo může vést ke ztrátě cenných dat. Jakmile se objeví problém, musíte okamžitě jednat.
Úvod autora:
Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně korupce Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com





