vb 自动生成 word 格式试卷代码
Dim TempRec1 As New ADODB.Recordset
Dim A1 As String
'Dim MyWord As Word.Application
Dim WordDoc As Word.Document
Dim BTextBox
Dim MyRange As Word.Range
Dim MyTable As Word.Table
Dim MyCell As Word.Cell
Dim MyCells As Word.Cells
Dim MyCols As Word.Columns
Dim A() As String
Dim B() As String
Dim ColN As Integer
Dim ArrBytes() As Byte
Dim FreeFileNumber As Integer
Dim Lngsize As Long
Set TempRec1.ActiveConnection = DBCon
If Combo1.ListIndex = -1 Then
MsgBox "没有选择试卷名称,不能生成试卷!", vbOKOnly, "提示"
Exit Sub
End If
TempRec1.Open "select id from sjtx where sjbm='" &
SjbmArry(Combo1.ListIndex + 1) & "'"
If TempRec1.RecordCount = 0 Then
MsgBox "没有选择试卷题型顺序,不能生成试卷!", vbOKOnly, "提示"
Exit Sub
剩余10页未读，继续阅读
评论7
最新资源