🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #1415

copy-find-paste

#1415
From: fangorn
Date: Sat, 24 Apr 2004 12:33
51 lines
2482 bytes
Ciao a tutti:

Premetto che non mi intendo di vbasic ma mi � utile per le macro in word... 
;]
sto cercando, senza riuscirci, un modo per usare la funzione 'trova' in 
successione per un elenco di termini diversi, ad es. dei nomi.
Costruendo la macro, la funzione mi cerca sempre e solo il primo termine; ad 
es:

#    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2"
#    Selection.MoveDown Unit:=wdLine, Count:=3
#    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
#    Selection.Copy
#    Selection.HomeKey Unit:=wdStory
#    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
#    Selection.paste

In questo modo ho il nome da cercare all'inizio della prima pagina (ogni 
volta diverso, perch� la riga 3 di pag 2 si modifica ad ogni uso di un'altra 
macro).
Ad es se prima c'era Maria ora c'� Pietro.
Il fatto che la macro che mi interesserebbe dovrebbe ora selezionare Pietro 
sulla prima riga della prima pag e cercarlo (sempre nella prima pag) ma 
continua a cercare Maria:

# Selection.HomeKey Unit:=wdStory
#     Selection.EndKey Unit:=wdLine, Extend:=wdExtend
#     Selection.Copy
#     Selection.Find.ClearFormatting
#     With Selection.Find
#         .Text = "Maria"
#         .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


C'� un modo per eliminare l'inconveniente?
Grazie in anticipo.


-- 
... di parti non so niente. Io vado per la mia strada...
Technical Details
Message-ID: <Xns94D593F3FF179fangorn@195.31.190.131>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!news.glorb.com!nntp-server.pubsub.com!news-out.tin.it!news-in.tin.it!news3.tin.it.POSTED!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: ITALIAN,ASCII
X-Google-Thread: f94ee,77b0119e8ebaa42b,start
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2004-04-24 05:33:05 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!news.glorb.com!nntp-server.pubsub.com!news-out.tin.it!news-in.tin.it!news3.tin.it.POSTED!not-for-mail
Newsgroups: free.it.visual-basic
Subject: copy-find-paste
From: fangorn <fangorn@fangorn.ent>
Message-ID: <Xns94D593F3FF179fangorn@195.31.190.131>
User-Agent: Xnews/5.04.25
Lines: 51
Date: Sat, 24 Apr 2004 12:33:04 GMT
NNTP-Posting-Host: 212.171.82.29
X-Complaints-To: newsmaster@tin.it
X-Trace: news3.tin.it 1082809984 212.171.82.29 (Sat, 24 Apr 2004 14:33:04 MET DST)
NNTP-Posting-Date: Sat, 24 Apr 2004 14:33:04 MET DST
Organization: TIN