Visual Basic

Copy Code

 Public Function IDV_makros_bearbeiten() As Boolean
    If Param.DebugMode Then
        DivFnkt.InsertJournale("EDKB12: Start IDV_makros_bearbeiten", clsDivFnkt.Enum_InfoTyp.Information)
    End If
 
    Try
        Dim idvmakros As New edokadb.clsMyDokumentDaten()
        Dim makros As System.Data.DataTable
        Dim i As Long
 
        idvmakros.cpMainConnectionProvider = conn
        makros = idvmakros.Select_IDVMakros(DokType.iDokumenttypnr.Value)
 
        For i = 0 To makros.Rows.Count - 1
            Try
                If makros.Rows(i).Item("ist_in_dll") = True Then
                    'SetForegroundWindow(...)
                    Try
                        objword.Activate()
                    Catch
                        Thread.Sleep(100)
                        objword.Activate()
                    End Try
                    'System.Windows.Forms.Application.DoEvents()
                    '                    idvdll = CreateObject("IDVMakros.Application")
                    '                   Call idvdll.CallSub(objword, makros.Rows(i).Item("makro"))
                    'System.Windows.Forms.Application.DoEvents()
                    objword.Visible = True
                    Try
                        '                        objWord.Activate()
                    Catch
                        '                       Thread.Sleep(100)
                        '                      objWord.Activate()
                    End Try
                Else
                    'System.Windows.Forms.Application.DoEvents()
                    If Param.DebugMode Then
                        DivFnkt.InsertJournale("EDKB12: Start IDV_makros_bearbeiten:Makro: " & makros.Rows(i).Item("makro"), clsDivFnkt.Enum_InfoTyp.Information)
                    End If
 
                    objword.Run(makros.Rows(i).Item("makro"))
                    'System.Windows.Forms.Application.DoEvents()
                End If
            Catch ex As Exception
                If Param.DebugMode Then
                    DivFnkt.InsertJournale("EDKB12: IDV_makros_bearbeiten:: Fehler beim Makro-Aufruf::" & makros.Rows(i).Item("makro") & "::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information)
                End If
            End Try
        Next i
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende IDV_makros_bearbeiten (True)", clsDivFnkt.Enum_InfoTyp.Information)
        End If
        Return True
    Catch ex As Exception
        DivFnkt.InsertJournale("EDKB12::Fehler:: IDV_makros_bearbeiten::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler)
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende IDV_makros_bearbeiten (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information)
        End If
        Return False
    End Try
 End Function