MS Word and Barcode font

[wolve]

Hi, all

i have a font problem with a word doc :

Dim WordObj As Word.Application
Dim WordDoc As Word.Document
Dim WordRange As Word.Range
Dim WordTable As Word.Table
Dim WordColumn As Word.Column
Dim WordRow As Word.Row
 
Private Sub Command1_Click()
 
Set WordObj = Nothing
Set WordObj = CreateObject("Word.Application")
Set WordDoc = WordObj.Documents.Add(DocumentType:=wdNewBlankDocument)   'Open the document
Set WordRange = WordDoc.Range(Start:=0, End:=0)
WordObj.Visible = True
 
With WordRange
    '.Font.Name = "Code 128"
    '.Font.Size = 16
    .InsertParagraphAfter
    .InsertParagraphAfter
    .SetRange Start:=WordRange.End, _
        End:=WordRange.End
End With
 
WordDoc.Range(Start:=0, End:=0).Bold = True
Set WordTable = WordDoc.Tables.Add(WordDoc.Paragraphs.Item(2).Range, 1, 2, wdWord9TableBehavior, wdAutoFitFixed)
Set WordRow = WordTable.Rows.Add(BeforeRow:=WordTable.Rows(1))
Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext
WordDoc.Tables(1).Cell(1, 1).Select
WordRange = Selection.Range
 
' Adds info to cells
 With WordObj
        ' Prints BC1
        '.ActiveWindow.Selection.Font.Size = 20
        WordRange.Font.Name = "Code 128"
        WordRange.Text = "34324324324332"
        WordRange.Move Unit:=wdCell
        
        WordRange.Font.Name = "Code 128"
        WordRange.Text = "34324324324332"
        WordRange.Move Unit:=wdCell
        'WordTable.Rows.Add BeforeRow:=WordTable.Rows(1)
    End With
       
WordObj.ActiveDocument.SaveAs "C:\BarCode.doc"
End Sub

when run it creates the word doc, saves it all fine but it doesnt print out in "Code 128" Font, Ive installed it in the font folder, and if i open word app manually and use it it prints fine, but when i run the code it just prints out in "New Roman" or something

ive looked around msdn and google but nothing really
would anyone know why the font wont shift to code 128?

Thanks

[baja_yu]

Can you upload the font here so I can try the code?

[wolve]

ok np's

im sure you know where to put it.

Thanks

[baja_yu]

This line is your problem

WordDoc.Tables(1).Cell(1, 1).Select

You are setting the range to be only the first cell of the table.

[baja_yu]

Maybe not. I just tried it. Sorry. Let me work with the code for a minute.

[baja_yu]

Actually it is. Try this code. With it, you will get the bar code in both table cells:

Option Explicit
    
    Dim WordObj As Word.Application
    Dim WordDoc As Word.Document
    Dim WordRange As Word.Range
    Dim WordTable As Word.Table
    Dim WordColumn As Word.Column
    Dim WordRow As Word.Row
    
    Private Sub Form_Load()
        Set WordObj = Nothing
        Set WordObj = CreateObject("Word.Application")
        Set WordDoc = WordObj.Documents.Add(DocumentType:=wdNewBlankDocument)   'Open the document
        Set WordRange = WordDoc.Range(Start:=0, End:=0)
        WordObj.Visible = True
        
        With WordRange
            '.Font.Name = "Code 128"
            '.Font.Size = 16
            .InsertParagraphAfter
            .InsertParagraphAfter
            .SetRange Start:=WordRange.End, End:=WordRange.End
        End With
        
        WordDoc.Range(Start:=0, End:=0).Bold = True
        Set WordTable = WordDoc.Tables.Add(WordDoc.Paragraphs.Item(2).Range, 1, 2, wdWord9TableBehavior, wdAutoFitFixed)
        Set WordRow = WordTable.Rows.Add(BeforeRow:=WordTable.Rows(1))
        Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext
        WordDoc.Tables(1).Cell(1, 1).Select
        WordRange = Selection.Range
        
        ' Adds info to cells
         With WordObj
                ' Prints BC1
                '.ActiveWindow.Selection.Font.Size = 20
                WordRange.Font.Name = "Code 128"
                WordRange.Text = "34324324324332"
                WordRange.Move Unit:=wdCell
                
                'Set range to cell 1,2
                WordDoc.Tables(1).Cell(1, 2).Select
                WordRange = Selection.Range
                
                WordRange.Font.Name = "Code 128"
                WordRange.Text = "34324324324332"
                WordRange.Move Unit:=wdCell
                'WordTable.Rows.Add BeforeRow:=WordTable.Rows(1)
            End With
               
        WordObj.ActiveDocument.SaveAs "C:\BarCode.doc"
    End Sub

[wolve]

you know what? for for reason it still pints new times roman.
did print the numbers in barcode font to you?

[baja_yu]

Yes, in both cells.

[wolve]

ok i got it working but it feels a little unstable to me. this what i did

' Adds info to cells
            ' Prints BC1
            WordObj.ActiveWindow.Selection.Font.Name = "Code 128"
            'WordRange.Font.Name = "Code 128"
            WordRange.Text = "34324324324332"
            WordRange.Move Unit:=wdCell
            
            'Set range to cell 1,2
            WordDoc.Tables(1).Cell(1, 2).Select
            WordRange = Selection.Range
            
            WordObj.ActiveWindow.Selection.Font.Name = "Code 128"
            'WordRange.Font.Name = "Code 128"
            WordRange.Text = "34324324324332"
            WordRange.Move Unit:=wdCell
            'WordTable.Rows.Add BeforeRow:=WordTable.Rows(1)

[baja_yu]

It looks good.

[RobDog888]

Moved from Classic VB