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