BVA将excel题库转换为word版

最新推荐文章于 2025-07-17 12:21:03 发布

十二点零一分钟

最新推荐文章于 2025-07-17 12:21:03 发布

阅读量2.5k

点赞数 1

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/sinat_24421205/article/details/80784666

该博客介绍了如何利用VBA宏在Excel中创建代码，将不同类型的试题（单选、多选、判断、简答）从Excel表格转换成Word文档格式。代码分别处理了有答案和无答案的情况，详细展示了每个题型的转换过程，方便用户快速生成Word版试题集。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'单选题有答案相关代码:
Sub 单选有答案()
    Dim WdApp As Word.Application
    Dim owd As Word.Document
    Dim i, j As Integer
    Dim Rcount, Colcount As Integer
    Rcount = Sheets(1).UsedRange.Rows.Count
    Colcount = 7
    Set WdApp = New Word.Application
    WdApp.Visible = True
    Set owd = WdApp.Documents.Add
    owd.Content.InsertAfter ("单选题")
    owd.Content.InsertAfter (Chr(10))
    For i = 2 To Rcount
        owd.Content.InsertAfter (CStr(Sheets(1).Cells(i, 1)) + ". ")
        owd.Content.InsertAfter (Sheets(1).Cells(i, 2))
        owd.Content.InsertAfter (Chr(10))
        For j = 3 To 6
            owd.Content.InsertAfter (Sheets(1).Cells(1, j) + ". " + CStr(Sheets(1).Cells(i, j)) + "   ") + Chr(10)
        Next j
        'owd.Content.InsertAfter (Chr(10))
        owd.Content.InsertAfter (Sheets(1).Cells(1, 7) + "： " + Sheets(1).Cells(i, 7))
        owd.Content.InsertAfter (Chr(10))
        owd.Content.InsertAfter (Chr(10))
    Next i
    MsgBox ("jieshu")
End Sub


'单选题无答案版代码:
Sub 单选无答案()
    Dim WdApp As Word.Application
    Dim owd As Word.Document
    Dim i, j As Integer
    Dim Rcount, Colcount As Integer
    Rcount = Sheets(1).UsedRange.Rows.Count
    Colcount = 7
    Set WdApp = New Word.Application
    WdApp.Visible = True
    Set owd = WdApp.Documents.Add
    owd.Content.InsertAfter ("单选题")
    owd.Content.InsertAfter (Chr(10))
    For