Excelling :: Topic: Estrazione paragrafo da elenco di file Word (2/2)

Welcome, Guest

Page:
1
2

TOPIC: Estrazione paragrafo da elenco di file Word

Estrazione paragrafo da elenco di file Word 6 years 5 months ago #10456

Marius44
OFFLINE
Gold Boarder
Posts: 185
Thank you received: 38
Karma: 14

Ciao Mauro
guarda che la macro che ti ho inviato non è "lontana" da ciò che ti serve. Era solo un esempio per vedere come riuscire a "leggere e scrivere" e, opportunamente adattata, risponde, credo, alle tue esigenze.
Precisazione: nelle righe A1:A150 scrivi i titoli dei file (compreso il suffisso)
Poi aggiunge la macro provaDue() e lanciala (ovviamente nelle riga evidenziata devi mettere il percorso completo).

Sub provaDue()
Dim WD As Object, percorso As String, titolo As String, i As Integer
Set WD = CreateObject("Word.Application")
For i = 1 To 150  '<== Consiglio: prova con due o tre file
    percorso =    '<== qui il percorso completo, es. "C:\Users\"
    titolo = Cells(i, 1)
    WD.documents.Open percorso & titolo
    WD.Visible = True
    Worksheets(1).Cells(i, 2) = WD.activedocument.Paragraphs(1)
    WD.documents.Close (wdDoNotSaveChanges)
Next i
Set WD = Nothing

End Sub

Per evitare patemi ti consiglio di provare con due o tre file. Vedi se va bene e fai sapere.
Attento ad una cosa: quando dici che per chiudere Word usi Application.Quit mi pare un errore, ti chiede Excel non Word.
Ciao,
Mario

The administrator has disabled public write access.

Estrazione paragrafo da elenco di file Word 6 years 5 months ago #10457

Mauro80
OFFLINE
Fresh Boarder
Posts: 8
Karma: 0

Buona domenica a tutti i membri del forum.

Mario grazie per i consigli

Lontana hai miei occhi profani, la provaDue, già mi sembra più vicina.
Purtoppo ho notato che quando la lancio mi compare l'errore RUN - TIME 5174. Sono andato a vedere su support.microsoft.com/en-us/kb/212664 ed ho capito che non trova il file.

Ho fatto qualche modifica, ma non credo siano dovute ad esse, come potrai costatare dal codice che ti allego. Da cosa può dipendere l'errore?

Sub provaDue()
Dim WD As Object, percorso As String, titolo As String, i As Integer
Set WD = CreateObject("Word.Application")

For i = 1 To 3  '<== Consiglio: prova con due o tre file
    percorso = "C:\Users\Mauro\Desktop\Modelli INAIL DVR\ManualeValutazioneRischi\03 SCHEDE BIBLIOGRAFICHE E MISURE DI PREVENZIONE\SBR"
    titolo = Cells(i, 1) & ".doc" ' Ho unito il suffisso nella stringa
    MsgBox titolo
    WD.Visible = True ' ho spostato la visibilità da ciclo
    WD.documents.Open percorso & titolo ' questo è il punto in cui compare l'errore
    Worksheets(1).Cells(i, 2) = WD.activedocument.Paragraphs(1)
    WD.documents.Close (wdDoNotSaveChanges)
Next i
Set WD = Nothing

End Sub

Last Edit: 6 years 5 months ago by Mauro80.

The administrator has disabled public write access.

Estrazione paragrafo da elenco di file Word 6 years 5 months ago #10458

Marius44 OFFLINE Gold Boarder Posts: 185 Thank you received: 38 Karma: 14	Ciao Mauro probabilmente sbagli l'indicazione del percorso. a miA vist sembra che manchi "\" finale. Il msgbox fattelo dare per percorso & titolo così potrai notare se manca qualcosa. fai sapere. Ciao, Mario
	The administrator has disabled public write access.

Estrazione paragrafo da elenco di file Word 6 years 5 months ago #10459

Mauro80 OFFLINE Fresh Boarder Posts: 8 Karma: 0	Grazie mille Mario. Il codice funziona! Ora cercherò di sperimentare alcune alternative... La prima quella di cancellare i primi paragrafi su Word se sono vuoti. Così da scrivere nella casella il titolo pure se si trova dopo 1 o più a-capo in word.
	The administrator has disabled public write access.

Page:
1
2

Forum

Excel

VBA generale

Estrazione paragrafo da elenco di file Word