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

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

Bonjour

tu peux remettre tous les codes de fin de paragraphe en Arial (adapte le nom de la police de code barre)

Sub Arial()

    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Font.Name = "3 of 9 Barcode"
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Name = "Arial"
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Merci pour votre aide