Cautare in text definit

Informatii despre cum se utilizeaza Microsoft Word 2007. Editare, formatare, automatizare de documente
Închis
ccirtina
Mesaje: 280
Membru din: Lun Oct 11, 2010 9:49 pm
Localitate: Craiova

Cautare in text definit

Mesaj de ccirtina » Sâm Ian 21, 2012 7:02 pm

Word 2007
Avem un fisier in care sunt 3 pagini de text.
Cum pot defini zona de cautare?
1. De exemplu sa caut doar in primele 10 linii de text un anumit cuvant.
2. Sau sa caut de la linia 25 pana la linia 27.

Dr.Windows
Moderator
Moderator
Mesaje: 4567
Membru din: Vin Iul 31, 2009 7:32 am

Re: Cautare in text definit

Mesaj de Dr.Windows » Lun Ian 23, 2012 10:13 am

Uite un exemplu de macro in care comentariile sper sa-ti fie de folos pentru a face exact manevrele care te intereseaza pe tine:

Cod: Selectaţi tot

Sub CautareInSelectie()
    'Deplasarea cursorului la inceputul documentului
    Selection.HomeKey Unit:=wdStory
    
    'Deplasarea cursorului pe linia 10
    Selection.MoveDown Unit:=wdLine, Count:=10
    
    'Selectarea de la pozitia curenta inca 12 linii
    Selection.MoveDown Unit:=wdLine, Count:=12, Extend:=wdExtend
    
    'Cautarea dupa cuvantul "galleries" in selectua curenta
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "galleries"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
End Sub

ccirtina
Mesaje: 280
Membru din: Lun Oct 11, 2010 9:49 pm
Localitate: Craiova

Re: Cautare in text definit

Mesaj de ccirtina » Lun Ian 23, 2012 8:44 pm

Super, tocmai am facut proba, este mai mult decat multumitor, este ceea ce mi-am dorit si chiar functioneaza in parametrii optimi.
Multumesc.

ccirtina
Mesaje: 280
Membru din: Lun Oct 11, 2010 9:49 pm
Localitate: Craiova

Re: Cautare in text definit

Mesaj de ccirtina » Lun Ian 23, 2012 10:17 pm

A aparut o mica problema.
Daca nu gaseste textul cautat raman selectate toate liniile solicitate.
Cum fac sa se deselecteze?
pentru ca in cazul de fata nu se poate folosi: If Selection.Type = wdSelectionNormal Then....

ccirtina
Mesaje: 280
Membru din: Lun Oct 11, 2010 9:49 pm
Localitate: Craiova

Re: Cautare in text definit

Mesaj de ccirtina » Lun Ian 23, 2012 11:05 pm

Cred ca merge asa:

Cod: Selectaţi tot

If Selection.Text = "galleries" Then
    MsgBox "da"
    Else
    MsgBox "nu"
    End If
alta metoda nu am gasit.

Dr.Windows
Moderator
Moderator
Mesaje: 4567
Membru din: Vin Iul 31, 2009 7:32 am

Re: Cautare in text definit

Mesaj de Dr.Windows » Mar Ian 24, 2012 3:40 pm

Anularea selectiei se face cu

Cod: Selectaţi tot

Selection.Collapse
daca vrei, poti stabili unde sa ramana cursorul - la inceputul sau la sfarsitul selectiei:

Cod: Selectaţi tot

    Selection.Collapse Direction:=wdCollapseStart
    
    Selection.Collapse Direction:=wdCollapseEnd

Închis

Înapoi la “Intrebari despre Word 2007”