Newsgroup: it.comp.lang.visual-basic
Titolo: Come cancellare un'intera riga in Word?

Salve a tutti.
Siccome faccio qualche investimento in borsa, ho la necessità di avere i
dati azionari (possibilmente gratis). Yahoo offre questo servizio, ma i file
che scarico devono essere leggermente modificati per essere letti dal
programma che uso per fare l'analisi delle varie azioni. In mancanza di
meglio, ho costruito una piccola macro per Word che fa il grosso del lavoro
al posto mio: cancella tutti i simboli di doppie virgolette, tutti gli
accenti circonflessi e tutte le righe bianche, ma ho un piccolo problema.
Devo cancellare tutte le righe che contengono la stringa "index". Credevo
fosse una sciocchezza (il vecchio Wordstar per Dos aveva un codice per
cancellare una riga intera, possibile che Word non l'abbia più?), ma non
sono riuscito a capire come si fa.
Come posso fare?
Grazie a chi potrà darmi una mano,
Maury

 ha scritto nel messaggio
news:EXf88.31734$nI1.9...@twister1.libero.it...

Ctrl+Y?
--
Esteban
Hosted by 
www.seber.it
Remove 'nonspammare' for reply

 ha scritto nel messaggio
news:EXf88.31734$nI1.9...@twister1.libero.it...


Ciao Francesco.
Il mio problema è un po' più complesso: devo cercare nel documento aperto
tutte le volte che compare il simbolo di accento circonflesso ^ e cancellare
tutte le righe che lo contengono. Avevo pensato di usare la funzione Trova
di Word e di inserirla in un ciclo for, in questo modo:
    For i = 1 To 10
        Selection.Find.ClearFormatting
        With Selection.Find
            .Text = "^^"
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute
        Selection.HomeKey Unit:=wdLine
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.Delete Unit:=wdCharacter, Count:=1
    Next i
(Forse ti sarai accorto che sono un pivello? Ho semplicemente registrato una
macro con Word ed ho provato a modificarla un po')
Il problema è che non sempre ci sono 10 righe contenenti il simbolo in
questione, ma spesso ce ne sono solo una o due, o addirittura nessuna! Credo
che forse si dovrebbe utilizzare un ciclo Do... loop, dal quale però bisogna
uscire quando Selection.Find non trova una nuova ricorrenza dell'accento
circonflesso. Come faccio? C'è un modo ad es. per contare preventivamente
quanti accenti circonflessi ci sono nel documento?
Grazie,
Maury
"FrDN" <fdellinoci@NOSPAM_libero.it> ha scritto nel messaggio
news:a3tpjd$olt$1...@fe2.cs.interbusiness.it...


 quanti accenti circonflessi ci sono nel documento?
Prova così.
dim zx as integer
For zx = 1 To ActiveDocument.Words.Count
        Selection.Find.ClearFormatting
        With Selection.Find
            .Text = "pippo"
            .Forward = True
        End With
        Selection.Find.Execute
        If Selection.Find.Found = True Then
            '***********
            Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
            Selection.Delete Unit:=wdWord
        End If
 Next zx
Devi modificare le opzioni di selezione per la cancellazione (vedi
***********)  poichè credo non vadano bene.
Ciao. Francesco.

 Ciao. Francesco.