Condividi:        

Estrazione righe da Word

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Estrazione righe da Word

Postdi biasutti » 25/02/18 15:42

Come posso estrarre tutte le righe, di un documento di Word, che hanno al loro interno la parola "Vedi pag."
ed eventualmente salvarle in un altro documento o in un file di Excel
Grazie anticipatamente
biasutti
Newbie
 
Post: 9
Iscritto il: 25/02/18 15:35

Sponsor
 

Re: Estrazione righe da Word

Postdi Anthony47 » 26/02/18 00:28

Le mie macro per word sono rozze, comunque questa dovrebbe funzionare:
Codice: Seleziona tutto
Sub CercaAll()
Dim fString As String
Dim fCount As Long, dDoc As Document
'
fString = "Vedi Pag."           '<<< La stringa da cercare
'
Documents.Add      'DocumentType:=wdNewBlankDocument
Set dDoc = ActiveDocument
ThisDocument.Activate
Application.ScreenUpdating = False
fCount = 0
    With Selection
        .HomeKey unit:=wdStory
        With .Find
            .ClearFormatting
            .Text = fString
            'Cerca:
            Do While .Execute
            DoEvents
                fCount = fCount + 1
                Selection.HomeKey unit:=wdLine
                Selection.EndKey unit:=wdLine, Extend:=wdExtend
                Selection.Copy
                dDoc.Activate
                Selection.EndKey unit:=wdStory
                Selection.Range.Text = vbCrLf
                Selection.PasteSpecial datatype:=wdPasteText
                ThisDocument.Activate
                Selection.MoveRight unit:=wdWord, Count:=1
            Loop
        End With
        Debug.Print fString & " - "; fCount & " volte"
    End With
Application.ScreenUpdating = True
MsgBox ("Completato...")
End Sub


Va inserita in un Modulo vba di word. Il modo piu' semplice di farlo:
-partendo dal documento da investigare premi Alt-F11 per aprire l'editor delle macro
-fai subito Menu /Inserisci /Modulo
-copia il codice e incollalo nel frame vuoto che e' stato cosi' creato
La riga marcata <<< va personalizzata come da commento

Per lanciarla:
-attivare il documento in cui cercare
-premere Alt-F8, scegliere CercaAll dall'elenco di macro visibili e premi Esegui.

La macro crea un nuovo documento vuoto, al cui interno saranno copiate le intere righe che contengono la stringa cercata.
Ambedue i documenti rimangono aperti per le azioni successive.

Fai sapere...
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Estrazione righe da Word

Postdi biasutti » 26/02/18 11:19

Nell'esecuzione della macro viene segnalato come errore:

Errore di run-time '91'
Variabile oggetto o variabile del blocco With non impostata
e viene evidenziata in giallo la seguente riga
.HomeKey unit:=wdStory

Resto in attesa di istruzioni
Intanto un grazie infinito per la cortese crisposta
Biasutti
biasutti
Newbie
 
Post: 9
Iscritto il: 25/02/18 15:35

Re: Estrazione righe da Word

Postdi Anthony47 » 26/02/18 19:38

Mah... prova a sostituire ThisDocument.Activate con
Codice: Seleziona tutto
ThisDocument.Select


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Estrazione righe da Word

Postdi biasutti » 21/03/18 14:38

Ho provato a modificare come suggerito, ma il problema non viene risolto.
Viene sempre segnalato
Errore di run-time '91'
Variabile oggetto o variabile del blocco With non impostata
e viene evidenziata in giallo la seguente riga
.HomeKey unit:=wdStory

Grazie per ulteriori informazioni
biasutti
Newbie
 
Post: 9
Iscritto il: 25/02/18 15:35

Re: Estrazione righe da Word

Postdi Anthony47 » 21/03/18 15:33

Quale versione di Word usi?
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Estrazione righe da Word

Postdi biasutti » 22/03/18 10:28

Uso Word 2016
biasutti
Newbie
 
Post: 9
Iscritto il: 25/02/18 15:35

Re: Estrazione righe da Word

Postdi Anthony47 » 22/03/18 15:42

Allora ti chiedo di pubblicare un file dimostrativo, che includa gia' la macro e che dia quell'errore.

Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Estrazione righe da Word

Postdi biasutti » 23/03/18 13:18

Risolto!!
Il documento di word su cui eseguire la macro (utilizzando Word 2016)
va prima salvato con l'opzione "Documento di word con attivazione macro"
Solo così l'esecuzione della macro funziona.
Grazie comunque per la macro inviatami.
biasutti
Newbie
 
Post: 9
Iscritto il: 25/02/18 15:35


Torna a Applicazioni Office Windows


Topic correlati a "Estrazione righe da Word":


Chi c’è in linea

Visitano il forum: Nessuno e 42 ospiti