VB6 et TextFrame dans Word 2007Résolu

Question

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

ucfoutu · Accepted Answer

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

ucfoutu · Answer

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

cs_pascalix · Answer

@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

VB6 et TextFrame dans Word 2007

3 réponses

Votre réponse