|
Login
  • Page:
  • 1
  • 2

TOPIC: Estrazione paragrafo da elenco di file Word

Estrazione paragrafo da elenco di file Word 3 years 4 months ago #10456

  • Marius44
  • Marius44's Avatar
  • 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 3 years 4 months ago #10457

  • Mauro80
  • Mauro80's Avatar
  • 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? :huh:
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: 3 years 4 months ago by Mauro80.
The administrator has disabled public write access.

Estrazione paragrafo da elenco di file Word 3 years 4 months ago #10458

  • Marius44
  • Marius44's Avatar
  • 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 3 years 4 months ago #10459

  • Mauro80
  • Mauro80's Avatar
  • 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
Time to create page: 0.578 seconds