2024年3月9日发(作者：)

Private Sub Doc2imgToolStripMenuItem1_Click(sender As Object, e As EventA

rgs) Handles

Dim fp As String =

Dim fl() As String = es(fp, "*.doc*", ector

ies)

m =

= 0

Dim dt As New DataTable

()

For Each fn As String In fl

If Mid(fn, 1, 1) <> "$" Then

= fn

ts()

Dim fnl() As String = einfo(fn)

If Mid(fnl(1), 1, 1) <> "~" Then

Dim nfp As String = edPath

nfp = nfp & "" & fnl(3)

If (nfp) = False Then

Directory(nfp)

End If

nfp = nfp & "" & fnl(1)

If (nfp) = False Then

Directory(nfp)

End If

Try

Dim jpgl() As String = es(nfp, "*.jpg")

Dim doc As New nt(fn)

If < unt Then

For i As Integer = 0 To unt - 1

Dim nfp0 As String = nfp & "" & (i + 1) & ".jpg"

s()

Format =

hQualityRendering =

dex = i

(nfp0, o)

If (nfp0) = False Then

Try

Dim o As New aveOption

True

True

Catch ex As Exception

End Try

End If

Next

End If

Catch ex As Exception

Dim dr As DataRow =

dr(0) = fn

(dr)

End Try

End If

' serWorkItem(New ing.

WaitCallback(AddressOf doc2pdf), fn)

mStep()

ts()

End If

Next

urce = dt

End Sub