Word Création doc Word à partir Excel... Pb changement fonte ds paragrah

[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

 

[jurassic pork]

Hello,
chez moi en Word 2016 le caractère de fin de paragraphe ne se retrouve pas dans le code barre en utilisant ton code :

Le code barre correspond à ESSAIS : on voit bien que le dernier code du code barre est celui du S.

Ami calmant, J.P

 

[natof]

Hello,
chez moi en Word 2016 le caractère de fin de paragraphe ne se retrouve pas dans le code barre en utilisant ton code :
Regarde la pièce jointe 1213099
Le code barre correspond à ESSAIS : on voit bien que le dernier code du code barre est celui du S.

Ami calmant,

Hello,
chez moi en Word 2016 le caractère de fin de paragraphe ne se retrouve pas dans le code barre en utilisant ton code :
Regarde la pièce jointe 1213099
Le code barre correspond à ESSAIS : on voit bien que le dernier code du code barre est celui du S.

Ami calmant, J.P

Merci.. Dans ce cas je ne vois que la fonte qui pourrait poser pb... Pourrais tu me dire où tu as téléchargé la fonte code 128 que tu as utilisé
Merci d avance
Cristlf

 

[Volvo64400]

Bonjour,

Ici assez complet.

Code 128

 

[jurassic pork]

Merci.. Dans ce cas je ne vois que la fonte qui pourrait poser pb... Pourrais tu me dire où tu as téléchargé la fonte code 128 que tu as utilisé

Hello,
Je l'ai téléchargé sur dafont.com mais normalement c'est celle de grandzebu que propose Volvo64400.
Le code que j'utilises :

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 = "ESSAIS"
  End With
End With
End Sub

Quelle version de Word utilises-tu ?
Ami calmant, J.P

 

[natof]

Hello,
Je l'ai téléchargé sur dafont.com mais normalement c'est celle de grandzebu que propose Volvo64400.
Le code que j'utilises :

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 = "ESSAIS"
  End With
End With
End Sub

Quelle version de Word utilises-tu ?
Ami calmant, J.P

bjr
tout d'abord merci pour votre aide .

je viens de me rendre compte que j'avais oublie de mettre un crlf apres mon paragraphe et c'est pour cela que il n'y avait pas de pb sur l'exemple que j'avais donné précédemment
et c'est le crlf qui me cree un code barre

pour qu'i n'apparaisse pas , je passe tout ce qui est apres le code barre en font arial manuellement sur word
mais dans la macro , je n'arrive pas a le faire

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

 

[jurassic pork]

Hello,
voilà ce que c'est de poster une question dans plusieurs forums et de ne pas regarder et répondre à ce qu'il s'y passe. Dans un autre forum 78chris t'a donné la solution : Remplacer la police des caractères de paragraphe qui ont une police en code barre par une police standard (ex : Arial).
Ami calmant, J.P

 

[natof]

Désolé.. Je viens de voir que les mails venant de l autre forum était mis ds mes spam.... Merci