Risultati da 1 a 9 di 9

Discussione: estrarre dati da un documento word



  1. #1
    L'avatar di deltagamma
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Vitolini
    Età
    38
    Messaggi
    11
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    estrarre dati da un documento word

    salve a tutti, girovagando per il web mi sono imbattuto un questa macro che dovrebbe estrarre parte di un documento word in excel.

    Ho provato a lanciarla ma non mi riconosce il tipo di variabili As word.application e word.document.
    Vi ricordo che sono sono alle prime armi con il Vba... sapete aiutarmi

    "la macro che segue, estrae il contenuto della riga "Oggetto" di tutti i file Doc contenuti in una specifica directory."

    Codice: 
    Option Compare Text
    Sub ElencoFile()
    Dim f As String, miadir As String, i As Integer
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim tString As String, tRange As Word.Range
    Dim p As Long
    miadir = "d:\ora\pratiche\"
    f = Dir("D:\ora\pratiche\*.doc")
    If f = "" Then Exit Sub
    While f <> ""
    i = i + 1
    Cells(i, 1) = f
    Set wrdApp = CreateObject("Word.Application")
    Set wrdDoc = wrdApp.Documents.Open(miadir & f)
    With wrdDoc
    For p = 1 To .Paragraphs.Count
    Set tRange = .Range(Start:=.Paragraphs(p).Range.Start, _
    End:=.Paragraphs(p).Range.End)
    tString = tRange.Text
    tString = Left(tString, Len(tString) - 1)
    If Left(tString, 7) = "Oggetto" Then
    ActiveSheet.Range("B" & i).Formula = Mid(tString, 10, 100)
    Exit For
    End If
    Next p
    End With
    wrdApp.Quit
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
    f = Dir
    Wend
    End Sub
    Ultima modifica fatta da:cromagno; 18/07/16 alle 18:11 Motivo: Inserito codice tra i tag CODE...

  2. #2
    L'avatar di deltagamma
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Vitolini
    Età
    38
    Messaggi
    11
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: estrarre dati da un documento word

    Nessuna idea?????

  3. #3

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7161
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301

    Re: estrarre dati da un documento word

    Ciao,
    questo è il forum più veloce in risposte in merito a excel ma, tenuto conto del tuo quesito particolare, devi dare il tempo a chi vuole di poter rispondere.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2811
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979

    Re: estrarre dati da un documento word

    Hai provato a dichiarare le variabili come Variant?

  5. #5
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: estrarre dati da un documento word

    ciao a tutti,
    oltre a quello che tiè già stato segnalato,
    hai controllato in VBE > Strumenti > Riferimenti

    di avere flaggato il Microsoft Word Object Library?

    Ciao
    Frank
    Excel 2007 win7 - Ogni Progetto è composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  6. #6
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1116
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: estrarre dati da un documento word

    Dim wrdApp As object, wrdDoc As object

  7. I seguenti utenti hanno dato un "Like"


  8. #7

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: estrarre dati da un documento word

    Citazione Originariamente Scritto da deltagamma Visualizza Messaggio
    Nessuna idea?????
    Nessuna risposta????

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  9. #8
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1116
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: estrarre dati da un documento word

    la macro funziona molto bene, basta usare questi dimensionamenti
    Codice: 
    Dim f As String, miadir As String, i As Integer
    Dim wrdApp As Object, wrdDoc As Object, tRange As Object
    Dim tString As String,
    Dim p As Long

  10. #9
    L'avatar di deltagamma
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Vitolini
    Età
    38
    Messaggi
    11
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: estrarre dati da un documento word

    grazie patel 6 stato di grandissimo aiuto!!!!

    ----------Post unito in automatico----------

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao,
    questo è il forum più veloce in risposte in merito a excel ma, tenuto conto del tuo quesito particolare, devi dare il tempo a chi vuole di poter rispondere.

    scusate, pensavo fosse una cosa un po' troppo difficile, ma vedo che siete sempre i migliori

    ----------Post unito in automatico----------

    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Nessuna risposta????
    Eja!!

Discussioni Simili

  1. [Risolto] Pulsante Carica Documento e Pulsante Apri Documento Caricato
    Di xeienl nel forum Domande su Microsoft Access
    Risposte: 20
    Ultimo Messaggio: 08/02/17, 07:51
  2. [Risolto] aprire documento Word da UserForm
    Di robertopiro nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 27/11/16, 21:05
  3. dati excel su word
    Di MatteoG nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 12/11/16, 08:40
  4. Esportare foglio su documento Word
    Di iliomil nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 12/07/16, 11:50
  5. richiesta estrazione dati da una tabella per creare fattura o altro documento
    Di danilodart nel forum Domande su Excel VBA e MACRO
    Risposte: 16
    Ultimo Messaggio: 03/03/16, 00:51

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •