Forum » Programska oprema » MS Word - Search v dokumentu
MS Word - Search v dokumentu
poga ::
Zivjo!
V Wordu 2000 bi rad naredil naslednje:
preko "control toolboxa" sem v dokument vnesel polji "Text Box" in "Command button". Rad bi naredil naslednje (ce je seveda izvedljivo):
uporabnik bi vpisal v "text box" nek zahtevek in ko bi pritisnil "button" bi to kar je vpisano program poiskal (se pravi naredil Find).
poanta vsega naj bi bila, da uporabniku ne bi bilo potrebno iti v Edit-Find (oz. CTRL+F) ampak da bi kar direkto zahtevek vpisal v dokument (v polje text box seveda).
Ce je kaksen VB programer med vami in bi bil prijazen da bi mi napisal kako to narediti bi bilo super
ce to ni izvedljivo pa drugacno vprasanje:
kako naj naredim Macro, da se bo odprlo "Find" okno?
sam ukaz "Selection.Find" mi noce odpreti okna... A je za to kaksen drug ukaz??
lp,
PoGa
V Wordu 2000 bi rad naredil naslednje:
preko "control toolboxa" sem v dokument vnesel polji "Text Box" in "Command button". Rad bi naredil naslednje (ce je seveda izvedljivo):
uporabnik bi vpisal v "text box" nek zahtevek in ko bi pritisnil "button" bi to kar je vpisano program poiskal (se pravi naredil Find).
poanta vsega naj bi bila, da uporabniku ne bi bilo potrebno iti v Edit-Find (oz. CTRL+F) ampak da bi kar direkto zahtevek vpisal v dokument (v polje text box seveda).
Ce je kaksen VB programer med vami in bi bil prijazen da bi mi napisal kako to narediti bi bilo super
ce to ni izvedljivo pa drugacno vprasanje:
kako naj naredim Macro, da se bo odprlo "Find" okno?
sam ukaz "Selection.Find" mi noce odpreti okna... A je za to kaksen drug ukaz??
lp,
PoGa
ToniT ::
Nisem ravno neki programer, ampak meni to dela:
Private Sub CommandButton1_Click()
Call NajdiText
End Sub
Sub NajdiText()
Selection.Find.ClearFormatting
With Selection.Find
.Text = TextBox1.Text ' Ime vnosnega polja
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub
V originalu je z zamiki
Private Sub CommandButton1_Click()
Call NajdiText
End Sub
Sub NajdiText()
Selection.Find.ClearFormatting
With Selection.Find
.Text = TextBox1.Text ' Ime vnosnega polja
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub
V originalu je z zamiki
Zgodovina sprememb…
- spremenil: ToniT ()
poga ::
Hvala za odgovor - resitev je res preprosta in tudi krasno deluje!!
hvala se enkrat za pomoc.
lp,
PoGa
hvala se enkrat za pomoc.
lp,
PoGa
Zgodovina sprememb…
- spremenil: poga ()
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | Visual BasicOddelek: Programiranje | 3428 (2454) | cekr |
» | Word 2003 VBA problemOddelek: Programska oprema | 1039 (926) | mimax |
» | Makro v worduOddelek: Pomoč in nasveti | 2084 (1798) | vvisoc_1 |
» | [Excel]Vrednost celice = ime dokumentaOddelek: Programska oprema | 4743 (4165) | veteran |
» | word makroOddelek: Programska oprema | 1107 (971) | gumby |