2 uporabni metodi za mehko iskanje v dokumentu Word

V spodnjem članku vam želimo ponuditi 2 uporabni metodi za mehko iskanje v Wordovem dokumentu.

Občasno se zgodi, da pozabimo, kako pravilno črkovati besedo, še posebej, če je dolga. Večinoma si zapomnimo le nekaj začetnih črk. Zaradi tega je natančno iskanje skoraj nemogoče.

Na srečo za nas obstajajo načini za mehko iskanje. Uporabite jih lahko v svojem dokumentu Word.

1. način: Uporabite funkcijo »Napredno iskanje« v Wordu

V našem primeru bomo iskali "DataNumen«, če se spomnimo, da se začne s »Podatki«.

1. Najprej v skupini »Urejanje« pod zavihkom »Domov« kliknite spustni gumb poleg ukaza »Najdi«.
2. In v tem meniju izberite možnost »Napredno iskanje«.
3. Nato postavite kazalec vstavljanja v besedilno polje »Najdi kaj« in tja prilepite naslednje nadomestne znake:

• »Podatki« so začetne črke ciljne besede. Zamenjajte jih z dejanskimi. Če pozabite začetne črke, pustite polje prazno in ne vnesite niti presledka.
• In »n,m« predstavlja število preostalih črk ciljne besede, brez začetnih črk. V tem primeru je to recimo število »5«. Nadomestni znaki bi morali izgledati takole:

• Če niste prepričani o točni številki dolžine črke, lahko vnesete 2 številki, ki označujeta obseg, na primer:

• In če ste prepričani, da je dolžina črke enaka ali večja od določene številke, jo vnesite v izraz, takole:

4. Nato kliknite »Več«, da prikažete več možnosti.
5. Potrdite polje »Uporabi nadomestne znake«.
6. Nato kliknite »Najdi v« in izberite »Glavni dokument«.

V izboru boste videli vse pojavitve ciljne besede.

2. način: Zaženite kode VBA za iskanje besedila

Izvajanje kod VBA vas lahko reši pred pomnjenjem izraza.

1. Najprej in predvsem pritisnite »Alt + F11«, da zaženete urejevalnik VBA v Wordu.
2. Nato kliknite »Normalni« projekt in kliknite »Vstavi«.
3. V meniju izberite “Module”.
4. Dvokliknite nanjo, da jo odprete in tja prilepite naslednje kode:

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

5. Nato pritisnite "F5", da zaženete makro.
6. V prvo vnosno polje, ki se prikaže, vnesite začetne črke ciljne besede in kliknite »V redu« za nadaljevanje.
7. In v drugo polje vnesite številko dolžine črke in kliknite »V redu«. Številke ločite z vejico.

Na koncu bodo vse najdene besede označene z rumeno.

Odpravite težave z besedo

Pogosteje se v Wordu verjetno pojavijo različne težave. Nekateri resni lahko povzročijo celo propad programske opreme. In a pokvarjena beseda lahko povzroči izgubo dragocenih podatkov. Zato morate takoj ukrepati, ko se pojavi težava.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z excel korupcije in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com