|
Login
  • Page:
  • 1
  • 2

TOPIC: Estrazione paragrafo da elenco di file Word

Estrazione paragrafo da elenco di file Word 3 years 7 months ago #10446

  • Mauro80
  • Mauro80's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 8
  • Karma: 0
Buonasera,

Sono un neofita del linguaggio VBA. Fresco di acquisto di un manuale di 600 pagine pensavo dopo averlo letto più di una volta di poter fare cose egregie, aimè sono riuscito a fare per adesso solo cose misere :unsure:
Mi trovo alle prese con un problema pratico. Ho un centinaio di file Word di cui devo estrarre il primo paragrafo e porlo in un file Excel affianco alla casella che contiene il nome del file word.

Sto lavorando nel VBA di Word con questo codice

Sub CopiaInExcel()
Dim Testo
Dim Brano As Range
Dim Excel As Object
Dim Cartella As Object




'Apriamo Excel:
Set Excel = CreateObject("Excel.Application")
'Se si vuole accedere ad un'istanza già attiva di Excel:
'Set Excel = GetObject(,"Excel.Application")

Excel.Visible = True

' Scegli il file dove salvare

Workbooks.Open FileName:="C:\Users\Mauro\Desktop\Softwaresicurezza\Elenco schede bibliografiche.xlsx"

' Scegli il file word da aprire
Set Scelta = ActiveWorkbook.Worksheets(1).Range("A1")

Documents.Open FileName:="C:\Users\Mauro\Desktop\Softwaresicurezza\Scelta.docx"
Set Brano = ActiveDocument.Paragraphs(1).Range
ActiveWorkbook.Worksheets(1).Range("C1").Value = Brano.Text
ActiveWorkbook.Close

End Sub


Diciamo che l'inghippo è nella parte evidenziata.
Non ho ancora impostato un ciclo, ma il mio intento sarebbe di passare tramite un contatore "i" il Range("A1").

Mi scuso se sono tropo vago, in attesa di suggerimenti torno a studiare.

Grazie
:)
Attachments:
The administrator has disabled public write access.

Estrazione paragrafo da elenco di file Word 3 years 7 months ago #10447

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
Non so se può esserti d'aiuto ma dai uno sguardo a questo indirizzo (senza spazi)
h t t p s://www.timeatlas.com/converting-word-docs-to-excel/

Ciao,
Mario
The administrator has disabled public write access.

Estrazione paragrafo da elenco di file Word 3 years 7 months ago #10448

  • Mauro80
  • Mauro80's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 8
  • Karma: 0
Grazie Mario
Nel link ho trovato indicazioni utili ad altri dubbi, ma non al problema pratico con cui sono alle prese adesso.
The administrator has disabled public write access.

Estrazione paragrafo da elenco di file Word 3 years 7 months ago #10453

  • Marius44
  • Marius44's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 185
  • Thank you received: 38
  • Karma: 14
Ciao Mauro
prova con questa macro (apre un documento Word e copia i primi 5 paragrafi) dovresti ottenere quello che ti serve (con le opportune modìfiche)
Sub prova()

Dim WD As Object
Set WD = CreateObject("Word.Application")
WD.documents.Open  '<== qui l'indirizzo completo del documento compreso il suffisso, per es. ".doc"
WD.Visible = True
For i = 1 To 5
  Worksheets(1).Cells(i, 1) = WD.activedocument.Paragraphs(i)
Next
WD.documents.Close (wdDoNotSaveChanges)
End Sub
Un'ultima cosa: il documento viene chiuso ma Word rimane aperto. A te il "piacere" di trovare come.
Prova e fai sapere. Ciao,
Mario
The administrator has disabled public write access.
The following user(s) said Thank You: Mauro80

Estrazione paragrafo da elenco di file Word 3 years 7 months ago #10454

  • Mauro80
  • Mauro80's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 8
  • Karma: 0
Mario ciao

Ti ringrazio per lo stimolo a cercare la soluzione al problema posto. E' un ottimo metodo per imparare.

Credo, o meglio facendo dei tentativi bisogna aggiungere alla fine la riga

Application.Quit
Impostando i vari messaggi
With Application
.DisplayAlerts = False
.Quit
.DisplayAlerts = True
End With

Per quanto riguarda il problema pratico che sto ancora cercando di risolvere. La Sub prova è lontana da quello che avevo in mente.
Dovrei

1) leggere il nome del file nelle caselle A1-A150 tipo A.01.01.docx
2) Aprire il file A.01.01.docx
3) Scrivere nelle caselle B1 - B150 il primo paragrafo del file corrispondente.

Sono un pò intimorito a sperimentare perchè l'ultima volta ho aperto centinai di file, ho impallato il computer....ed ho perso anche qualche dato! Per cautela poi ho ridotto il ciclo a pochi passi, ma non ci riesco! :(
Ad ogni modo grazie ancora.

Mauro
The administrator has disabled public write access.

Estrazione paragrafo da elenco di file Word 3 years 7 months ago #10455

  • Mauro80
  • Mauro80's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 8
  • Karma: 0
Ho ridotto le ambizioni iniziali a:
Creare un nuovo foglio avente il nome presente in una cella nel foglio SGOmodel e copiare tutti i valori presente nel foglio iniziale chiamato SGOmodel nel nuovo foglio aggiunto.
La prima parte mi riesce, infatti ho chiamato Giovanni, Peppre.... la seconda aime, no! :evil:
Credo di sbagliare sempre a voler passare il nome tramite una variabile!
Chiunque mi riesce a dare una dritta, allieverà di molto il mio stato di avvilimento. :(
Grazie
Attachments:
Last Edit: 3 years 7 months ago by Mauro80.
The administrator has disabled public write access.
  • Page:
  • 1
  • 2
Time to create page: 0.545 seconds