Dovrei sostituire un certo simbolo "@" da un file word, quindi .doc, con una casella di controllo checcata!
Il codice che fino ad ora usavo per lavorare sui file .doc è il seguente, ho fatto un tentativo inserendo la riga con l'asterisco ma, ovviamente, non va.
Mi restituisce un errore in wdFieldFormCheckBox (name wdFieldFormCheckBox is not declared)
Come posso fare?
codice:Sub EditaDoc(ByVal FileDaAprire, ByVal FileDaSalvare) Dim objWordApp As Word.Application Dim objDoc As Word.Document Dim oSel As Object objWordApp = New Word.Application 'objWordApp.Visible = True objWordApp.Documents.Open(FileDaAprire) objDoc = objWordApp.ActiveDocument oSel = objDoc.Content oSel.Find.Execute(FindText:="@" , ReplaceWith:=wdFieldFormCheckBox) '************ oSel = Nothing objDoc.SaveAs(FileDaSalvare) objDoc.Close() objDoc = Nothing objWordApp.Quit() objWordApp = Nothing End Sub

Rispondi quotando