Public Class Form1 Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Dim application As New Windows.Forms.Application() Dim document As Document.word = application.Documents.Open("C:\documentFromCode.docx") SearcheAndReplace("{nom}", nom.Text, application) SearcheAndReplace("{prenom}", prenom.Text, application) SearcheAndReplace("{ville}", ville.Text, application) document.SaveAs2("C:\documentFromCode.docx") End Sub Private Sub SearcheAndReplace(ByVal toReplace As String, ByVal replacementString As String, ByVal applicationWhereToReplace As Word.Application) Dim find As Word.Find = applicationWhereToReplace.Selection.Find find.ClearFormatting() find.Text = toReplace find.Replacement.ClearFormatting() find.Replacement.Text = replacementString Dim replaceAll As Object = Word.WdReplace.wdReplaceAll find.Execute(Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, _ Type.Missing, Type.Missing, Type.Missing, Type.Missing, replaceAll, Type.Missing, _ Type.Missing, Type.Missing, Type.Missing) End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim application As New Windows.Forms.Application() Dim document As Document.word = application.Documents.Open("C:\documentFromCode.docx")
Dim app As New Word.Application Dim doc As Word.Document = app.Documents.Open("Document1.doc") doc.Content.Find.Execute(FindText:="{chat}", ReplaceWith:="chien", Replace:=Word.WdReplace.wdReplaceAll) doc.Save() doc.Close() doc = Nothing app.Quit() app = Nothing