Ciao a tutti..
Ho il seguente problema che nn so come affrontare,
ho la necessità di creare una procedura che automaticamente apra un file .doc e sostituisca determinate occorrenze con altre, piu precisamente sostituisca i collegamenti ipertestuali.
Il problema che se apro il file è praticamente incomprensibile.
C'è una possibile soluzione a questo problema?!?
Grazie in anticipo per le risposte.
Che mestiere difficile.....essere da soli ancora di più
Con che linguaggio?
Chi non cerca trova.
visual basic
Che mestiere difficile.....essere da soli ancora di più
ingenuamente ho prova ad aprire il file in lettura modificando solo le parti che mi servivano e poi riscriverlo... pero vado a corromperlo uff
Che mestiere difficile.....essere da soli ancora di più
Per modificare un file doc (ma il discorso non cambia per qualsiasi altro file di MS Office) devi utilizzare le apposite librerie. Il discorso è ampio, ti consiglio di cominciare a leggere da qui:
http://msdn.microsoft.com/it-it/library/d2tx7z6d.aspx
Chi non cerca trova.
si nel corso del pomeriggio mi sono guardato un bel po di documentazione e tutte forniscono esempi pratici per creare il documento con tabelle paragrafi ecc...
ma nn ho trovato nulla su come aprire un documento gia creato e su come andare a fare la replace di determinate parole..
Che mestiere difficile.....essere da soli ancora di più
Ma stai usando Visual Studio 2010? Che versione esattamente?
Chi non cerca trova.
prefessional
Che mestiere difficile.....essere da soli ancora di più
Dim myword As Word.Application
myword = New Word.Application
myword.Documents.Open "path+nomefile.doc"
Fino ad ora quello che sono riuscito a capire e trovare e' questo:
in questo modo creo le istanze necessarie e carico il documento da qui come posso fare la replace?
Che mestiere difficile.....essere da soli ancora di più
Dim objWordApp As New Word.Application
objWordApp.Visible = True
'apro il documento
Dim objDoc As Word.Document = objWordApp.Documents.Open("c:\Pr001.doc")
objDoc = objWordApp.ActiveDocument
'Trovo e modifico del testo
objDoc.Content.Find.Execute(FindText:="w", ReplaceWith:="h", Replace:=Word.WdReplace.wdReplaceAll)
Perfetto in questo modo riesco ad aprire il documento e sostituire tutte le occorrenze di w con h..
Pero il problema sorge che queste occorrenze sono nel pie pagina... come posso modificare anche il piepagina... ho letto che devo iniziare a lavorare con le sezioni..
ho tentato una cosa del genere ma nn riesco a istanziare la section con il footer(piepagina) e non riesco a trovare delle documentazioni dettagliate... qualcuno puo aiutarmi.
Ecco il codice generato per interagire con la section non funzionante
Dim objSection As Word.Section
objSection.Footers(Word.WdHeaderFooterIndex.wdHead erFooterPrimary).Range.Find.Execute(FindText:="w", ReplaceWith:="h", Replace:=Word.WdReplace.wdReplaceAll)
Che mestiere difficile.....essere da soli ancora di più
Permessi di invio
Rispondi quotando