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)

Rispondi quotando