Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports Word Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'declaration de l'objet Dim obj As New Word.Application 'ouverture obj.Documents.Open(My.Application.Info.DirectoryPath & "\mondoc.doc") 'affichage TextBox1.Text = obj.ActiveDocument.Content.Text.Replace(vbCr, vbCrLf) 'exemple de remplacement de texte obj.Application.ActiveDocument.Content.Find.Execute(FindText:="Tutu", ReplaceWith:="VB.NET") 'sauvegarde obj.ActiveDocument.Save() 'impression obj.ActiveDocument.PrintOut() 'fermeture obj.Quit() 'libération objet obj = Nothing End Sub End Class