Mettre en forme du texte word depuis excel en vba
Contenu du snippet
Bonjour à tous,
Voilà je butte depuis 5 jours sur une mise en forme de texte de Word depuis Excel vba. Dans mon programme je mets en place dans un document Word en .dot des signets que je fais remplacer par la suite au cours de l'exécution depuis un document excel et ses textbox. Tout cela fonctionne. Le hic, par rapport à l'emplacement d'un signet je veux sélectionner une phrase bien précise dans le document word, et barrer le texte sélectionné (texte barré). Cette partie là ne fonctionne pas du tout. Mon code vient d'une macro faite de word et modifié pour qu'elle fonctionne via excel...Merci à tout ceux qui peuvent m'aider.
Voilà je butte depuis 5 jours sur une mise en forme de texte de Word depuis Excel vba. Dans mon programme je mets en place dans un document Word en .dot des signets que je fais remplacer par la suite au cours de l'exécution depuis un document excel et ses textbox. Tout cela fonctionne. Le hic, par rapport à l'emplacement d'un signet je veux sélectionner une phrase bien précise dans le document word, et barrer le texte sélectionné (texte barré). Cette partie là ne fonctionne pas du tout. Mon code vient d'une macro faite de word et modifié pour qu'elle fonctionne via excel...Merci à tout ceux qui peuvent m'aider.
Source / Exemple :
Function compterendu()
Dim wordapp As Object ' OUVERTURE DE WORD ET DU FICHIER .DOT PUIS ENREGISTREMENT SOUS UN AUTRE NOM
Dim worddoc As Object
Set wordapp = CreateObject("word.application")
wordapp.Visible = True
wordapp.documents.Add template:="C:\Bureau\HYMENOPTERE\Compte-rendu hymenopteres.dot", newtemplate:=False, documenttype:=0
wordapp.ActiveDocument.SaveAs "C:\Bureau\HYMENOPTERE\guepe" & Format(Date, "yymmdd ") & Format(Time, "hhmm") & ".doc"
'REMPLACE LES SIGNETS DANS WORD PAR LES VALEURS TEXTBOX...
wordapp.ActiveDocument.Bookmarks("crss").Range.Text = Usfguepe.Label7
wordapp.ActiveDocument.Bookmarks("date").Range.Text = Usfguepe.TextBox1.Value
wordapp.ActiveDocument.Bookmarks("requerant").Range.Text = Usfguepe.TextBox4.Value
wordapp.ActiveDocument.Bookmarks("adresse").Range.Text = Usfguepe.TextBox3.Value
wordapp.ActiveDocument.Bookmarks("commune").Range.Text = Usfguepe.ComboBox1.Value
wordapp.ActiveDocument.Bookmarks("agres").Range.Text = Usfguepe.Label10
'Le bug commence ici***
wordapp.ActiveDocument.Bookmarks("deux").Select
wordapp.ActiveDocument.Bookmarks.Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.MoveRight Unit:=wdWord, Count:=9, Extend:=wdExtend
wordapp.ActiveDocument.Bookmarks.Selection.Font.Strikethrough = wdToggle
End function
A voir également
- Mettre en forme du texte word depuis excel en vba
- Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
- Vba convertir nombre en texte - Forum Visual Basic
- Convertir un integer en string - Forum Visual Basic
- Conversion nombre en texte ✓ - Forum VBA Office (Excel, Word ...)
- Mettre en commentaire vba ✓ - Forum Visual Basic
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.