VB6 et TextFrame dans Word 2007 [Résolu]

Messages postés
4
Date d'inscription
vendredi 10 décembre 2010
Statut
Membre
Dernière intervention
3 février 2012
- - Dernière réponse : cs_pascalix
Messages postés
4
Date d'inscription
vendredi 10 décembre 2010
Statut
Membre
Dernière intervention
3 février 2012
- 3 févr. 2012 à 15:01
Bonjour,

je suis en train de développer en VB6 un programme pour manipuler des documents Word (insertion de TextBox (TextFrame), écriture dans ces Textbox, recherche de mot dans le document, impression de pages à la demande, etc...) jusqu'ici tout marche mais je bloque sur un détail cosmétique: est-il possible de justifier/aligner à droite un texte inséré dans une TextFrame ?

Merci
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
3
Merci
Bonjour,
Ta question relève plutôt de la connaissance de VBA/Word et non de VB6 (qui, lui, ne fait que piloter en transmettant des instructions VBA/Word).
Quelle est donc l'instruction Word (que je connais personnellement très peu) qui, depuis Word (sans pilotage, donc) le fait ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 196 internautes nous ont dit merci ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
0
Merci
Bon (et comme dit, puisque dépend de Word et non de VB6) ===>> j'ai donc ouvert Word ===>> ouvert son aide VBA ===>> regardé les propriétés de l'objet TextFrame ===>> pas vu de propriété Alignment ====>>> Conclusion ? (selon toi ?)


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Commenter la réponse de ucfoutu
Messages postés
4
Date d'inscription
vendredi 10 décembre 2010
Statut
Membre
Dernière intervention
3 février 2012
0
Merci
@ucfoutu
La conclusion (selon moi) est qu'en fouillant dans les macros VBA j'ai découvert que la propriété .Alignment existait et appliquée ainsi à VB6 j'ai résolu mon problème:

For I = 1 To nombrepages
Set objRange = docWord.Range.GoTo(wdGoToPage, wdGoToAbsolute, I) 'Select the Start of the page
docWord.ActiveWindow.Selection.SetRange objRange.Start, objRange.End
Set Box = appWord.ActiveDocument.Shapes.AddShape(1, 340, 15, 240, 20)
With Box
.TextFrame.AutoSize = ppAutoSizeShapeToFitText
.TextFrame.MarginRight = 0
.TextFrame.TextRange.Font.Color = wdColorRed
.TextFrame.TextRange.Font.Size = 8
.TextFrame.TextRange.Font.Name = "arial"
.TextFrame.TextRange.Font.Bold = True
.TextFrame.TextRange.Text = Date & " / " & Time & " / " & 0
.TextFrame.TextRange. ParagraphFormat.Alignment = wdAlignParagraphRight
.Fill.Transparency = 1
.Line.Visible = msoFalse
.Name = "TextBox" & I
End With
Next I

Merci
Commenter la réponse de cs_pascalix