Visual Basic

Copy Code

 Private Sub insert_Barcode(ByVal x As Integer)
 
    Dim Form
    Dim strsel As String
    Dim strresult
    Dim s As String
    ' Selection.ShapeRange.Select
    If DokType.bZu_retournieren.Value = True Then
        Try
            Form = objword.Selection.HeaderFooter.Shapes.Item(Textboxes(Textboxesi))
            Form.Select()
            Form = objword.Selection.HeaderFooter.Shapes.Item(Textboxes(Textboxesi))
            Form.Select()
            If OfficeVorlage.bBchorizontal.Value = False Then
                objword.ActiveDocument.Tables.Add(Range:=objword.Selection.Range, NumRows:=1, NumColumns:=1)
                With objword.Selection.Tables.Item(1)
                    .Borders.Item(WdBorderType.wdBorderLeft).LineStyle = WdLineStyle.wdLineStyleNone
                    .Borders.Item(WdBorderType.wdBorderRight).LineStyle = WdLineStyle.wdLineStyleNone
                    .Borders.Item(WdBorderType.wdBorderTop).LineStyle = WdLineStyle.wdLineStyleNone
                    .Borders.Item(WdBorderType.wdBorderBottom).LineStyle = WdLineStyle.wdLineStyleNone
                    .Borders.Item(WdBorderType.wdBorderDiagonalDown).LineStyle = WdLineStyle.wdLineStyleNone
                    .Borders.Item(WdBorderType.wdBorderDiagonalUp).LineStyle = WdLineStyle.wdLineStyleNone
                    .Borders.Shadow = False
                End With
                objword.Selection.Orientation = WdTextOrientation.wdTextOrientationUpward
                objword.Selection.Tables.Item(1).Rows.HeightRule = WdRowHeightRule.wdRowHeightAtLeast
                objword.Selection.Tables.Item(1).Rows.Height = Form.height
            End If
            'gaga'
            Dim id As String
            id = Dokumentid
            s = Bar25I(Microsoft.VisualBasic.Right(Right(id, Len(id) - 6), 16))
            objword.Selection.TypeText(Text:=s)
            objword.Selection.HomeKey(Unit:=WdUnits.wdLine, Extend:=WdMovementType.wdExtend)
            objword.Selection.Font.Name = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("barcode_font")
            objword.Selection.Font.Size = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("bcfont_groesse")
            objword.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphRight
            objword.Selection.EndKey(Unit:=WdUnits.wdLine)
            objword.Selection.Font.Name = "Arial"
            objword.Selection.Font.Size = 8
 
            Dim Zeichen As String
            Select Case DokType.iPhysisches_archiv.Value
                Case 0
                Case 1
                    Zeichen = " U"
                Case 2
                    Zeichen = " F"
            End Select
            objword.Selection.TypeText(Zeichen)
            Form = Nothing
        Catch ex As Exception
        End Try
    End If
 End Sub