Visual Basic

Copy Code

 Private Sub insert_Textfield()
    Dim Public_barcodeleft
    Dim Public_barcodetop
    Dim Public_barcodewidth#
    Dim Public_barcodeheight
    Try
        Public_barcodeleft = OfficeVorlage.iBcpl.Value
        Public_barcodetop = OfficeVorlage.iBcpt.Value
        Public_barcodewidth = OfficeVorlage.iBcw.Value
        Public_barcodeheight = OfficeVorlage.iBch.Value
 
        HeaderFooterAnzeigen()
        objWord.Selection.HeaderFooter.Shapes.AddTextbox(1, Public_barcodeleft, Public_barcodetop, _
            Public_barcodewidth#, Public_barcodeheight).Select()
        '  objWord.Selection.ShapeRange.TextFrame.TextRange.Select
        objword.Selection.ShapeRange.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse
        'objWord.Selection.ShapeRange.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse 'RS:2006-08-22
        objWord.Selection.ShapeRange.TextFrame.MarginLeft = 0.0#
        objWord.Selection.ShapeRange.TextFrame.MarginRight = 0.0#
        objWord.Selection.ShapeRange.TextFrame.MarginTop = 0.0#
        objWord.Selection.ShapeRange.TextFrame.MarginBottom = 0.0#
        objWord.Selection.Collapse()
        Textboxes(Textboxesi) = objWord.Selection.HeaderFooter.Shapes.Item(Textboxesi).Name
        Textboxesi = Textboxesi + 1
        'System.Windows.Forms.Application.DoEvents()
        Exit Sub
 
    Catch ex As Exception
        'MsgBox(ex.Message)
    End Try
 
 End Sub