Discussion :

[natof]

bonjour
je dois générer un document word a partir d'excel

dans excel , j'ai cree un userform qui sert de formulaire et a partir de ce userform je dois générer un document word
dans ce document , je dois générer un code barre avec une font code 128
au debut de ma macro je cree un premier paragraph avec un teste isu du userform
ensuite je génère un 2eme texte qui doit converti en code barre dans le doc word
pour cela j'ai cree un 2 eme paragraph je mets le text ( qui est issu d'une variable et qui n'a jamais la meme longueur ) qui doit être avoir la fonte code barre 128
lorque je met la font code barre 128 , il me converti bien le texte en code barre mais il m'ajoute derriere le code barre un deuxieme code barre qui correspond au ¶


il faudrait que je change la font apres le texte du paragraph2 pour que ce code barre n'apparaisse pas ( je le fais a la main dans word et j'arrive a lire le code bar avec mon lecteur code barre)

il faut donc
creer le paragraphe
changer la fonte -code 128
ecrire le texte
changer la fonte -arail ( pour que le symbole ¶ soit en arial )

et la je cale

si quelqu'un pouvais m'aider

merci d'avance

Sub Creer_Word()
Dim WordApp As Object, WordDoc As Object, Rng As Object
Dim Rep As String, Ndf As String, Logo As String
Dim i As Integer, j As Integer
Dim Total As Single
'

Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Add

'
WordApp.Visible = True
With WordDoc

' Mise en page : Marges et orientation


With .PageSetup
.Orientation = wdOrientLandscape
.LeftMargin = WordApp.CentimetersToPoints(1.5)
.RightMargin = WordApp.CentimetersToPoints(1.5)
.TopMargin = WordApp.CentimetersToPoints(2)
.BottomMargin = WordApp.CentimetersToPoints(2)
End With




.Paragraphs.Add
With .Paragraphs(.Paragraphs.Count - 1)
.Range.Text = "05CSPPDM0001SPB"
.Range.Font.Size = 70
.Range.Font.Underline = False
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

' .Range.Font.Bold = True
' .Format.SpaceAfter = 18

.Range.InsertAfter (vbCrLf) ' ou bien .Range.InsertParagraphAfter()
End With


.Paragraphs.Add
With .Paragraphs(.Paragraphs.Count - 1)
.Range.Font.Name = "Code 128"
.Range.Text = "ÑESSAI , Ó"

il faut que je passe en fonte arial juste a la fin du text ( ce teste est une variable , il n'a jamais la meme longueur)

End With




End With
end sub

[Nain porte koi]

Hello,

j'avoue ne rien avoir compris à vos explications et encore moins à votre code, j'ai juste compris qu'il fallait un paragraphe de plus... donc voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Option Explicit
 
Sub Creer_Word()
 
    Dim WordApp As Object, WordDoc As Object, Rng As Object
    Dim Rep As String, Ndf As String, Logo As String
    Dim i As Integer, j As Integer
    Dim Total As Single
    '
 
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Add
 
    '
    WordApp.Visible = True
    With WordDoc
 
    ' Mise en page : Marges et orientation
 
 
        With .PageSetup
            .Orientation = wdOrientLandscape
            .LeftMargin = WordApp.CentimetersToPoints(1.5)
            .RightMargin = WordApp.CentimetersToPoints(1.5)
            .TopMargin = WordApp.CentimetersToPoints(2)
            .BottomMargin = WordApp.CentimetersToPoints(2)
        End With
 
        .Paragraphs.Add
 
        With .Paragraphs(.Paragraphs.Count - 1)
            .Range.Text = "05CSPPDM0001SPB"
            .Range.Font.Size = 70
            .Range.Font.Underline = False
            .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
            ' .Range.Font.Bold = True
            ' .Format.SpaceAfter = 18
 
            .Range.InsertAfter (vbCrLf) ' ou bien .Range.InsertParagraphAfter()
        End With
 
 
        .Paragraphs.Add
        .Paragraphs.Add
 
        With .Paragraphs(.Paragraphs.Count - 2)
            .Range.Font.Name = "Code 128"
            .Range.Text = "ÑESSAI , Ó"
 
            'il faut que je p'asse en fonte arial juste a la fin du text ( ce teste est une variable , il n'a jamais la meme longueur)
 
        End With
 
    End With
 
End Sub

et le résultat

[natof]

Merci mais ce n est pas une histoire de paragraphe..
Dans le paragraphe ou je suis en fonte code 128,
il faut que je passe en fonte arial apres le range text sinon qd je fais un cr lf
Ça me crée un deuxième code barre qui empêche de lire le code barre avec mon. Lecteur

With .Paragraphs(.Paragraphs.Count - 2)
.Range.Font.Name = "Code 128"
.Range.Text = "ÑESSAI , Ó"
. . Range.InsertAfter (vbCrLf)
End with

[Nain porte koi]

2 choses :
1- vous n'avez pas testé mon code
2- je ne comprend rien à vos explications
3 - je ne sais pas d'où provient votre code mais bof bof (a bin oui, j'ai mal compté )

[natof]

Sub Creer_Word()
Dim WordApp As Object, WordDoc As Object, Rng As Object
Dim Rep As String, Ndf As String, Logo As String
Dim i As Integer, j As Integer
Dim Total As Single
'

Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Add

'
WordApp.Visible = True
With WordDoc

' Mise en page : Marges et orientation


With .PageSetup
.Orientation = wdOrientLandscape
.LeftMargin = WordApp.CentimetersToPoints(1.5)
.RightMargin = WordApp.CentimetersToPoints(1.5)
.TopMargin = WordApp.CentimetersToPoints(2)
.BottomMargin = WordApp.CentimetersToPoints(2)
End With




.Paragraphs.Add
With .Paragraphs(.Paragraphs.Count - 1)
.Range.Text = "05CSPPDM0001SPB"
.Range.Font.Size = 70
.Range.Font.Underline = False
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

' .Range.Font.Bold = True
' .Format.SpaceAfter = 18

.Range.InsertAfter (vbCrLf) ' ou bien .Range.InsertParagraphAfter()
End With


.Paragraphs.Add
With .Paragraphs(.Paragraphs.Count - 1)
.Range.Font.Name = "Code 128"
.Range.Text = "ÑESSAI , Ó"
.Range.InsertAfter (vbCrLf)
End With

.Paragraphs.Add
With .Paragraphs(.Paragraphs.Count - 1)
.Range.Text = "QUANTITE"
.Range.Font.Size = 40
.Range.Font.Underline = False
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

' .Range.Font.Bold = True
' .Format.SpaceAfter = 18

.Range.InsertAfter (vbCrLf) ' ou bien .Range.InsertParagraphAfter()
End With



End With





End Sub


Voilà ce que j obtiens... Le code barre entoure en rouge posé problème

[natof]

[Nain porte koi]

Hello,

bon, j'ai refais votre code vite fait (vous n'avez toujours pas dit d'où est-ce qu'il provient et quel est le but réel), il est loin d'être optimum mais fonctionnel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub Creer_Word()
 
    Dim WordApp As Object, WordDoc As Object, Rng As Object
    Dim Rep As String, Ndf As String, Logo As String
    Dim i As Integer, j As Integer
    Dim Total As Single
    '
 
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Add
 
    '
    WordApp.Visible = True
    With WordDoc
 
        ' Mise en page : Marges et orientation
        With .PageSetup
            .Orientation = wdOrientLandscape
            .LeftMargin = WordApp.CentimetersToPoints(1.5)
            .RightMargin = WordApp.CentimetersToPoints(1.5)
            .TopMargin = WordApp.CentimetersToPoints(2)
            .BottomMargin = WordApp.CentimetersToPoints(2)
        End With
 
        .Content.Font.Size = 70
        .Content.ParagraphFormat.Alignment = wdAlignParagraphCenter
 
        With .Paragraphs(1)
            .Range.Text = "05CSPPDM0001SPB"
            .Range.InsertAfter vbCrLf
 
            ' .Range.Font.Bold = True
            ' .Format.SpaceAfter = 18
 
        End With
 
        With .Paragraphs(2)
            .Range.Font.Name = "Code 128"
            .Range.Text = "ÑESSAI , Ó"
            .Range.InsertAfter vbCrLf
        End With
 
        With .Paragraphs(3)
            .Range.Font.Name = "Arial"
            .Range.Font.Size = 40
            .Range.Text = "QUANTITE"
'            .Range.InsertAfter vbCrLf
 
            ' .Range.Font.Bold = True
            ' .Format.SpaceAfter = 18
 
        End With
 
    End With
 
End Sub

Je pense que si vous voulez imprimez une liste de code barre avec des données provenant d'Excel le mieux serait de passer par un publipostage parce que là ça va être lent