前因：
有考试用题库，需要导入考试平台，因为出题的老师给出的WORD文档
形式如下：
1. 全媒体运营师在工作中应遵循的首要职业守则是（ ）
A. 追求流量最大化
B. 爱岗敬业，诚实守信
C. 优先满足客户需求
D. 快速实现商业变现
答案：B
解析：爱岗敬业、诚实守信是各行各业从业者都应遵循的基本职业守则，对于全媒体运营师而言，这是开展工作的首要准则。追求流量最大化、优先满足客户需求、快速实现商业变现可能会导致忽视内容质量、用户权益等重要方面，不符合职业操守。
群里的老师“时光静好”采用CHATGPT的AI技术生成了VBA的代码

Sub ConvertWordQuestionsToExcel()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim excelApp As Object
    Dim excelWB As Object
    Dim excelWS As Object
    Dim docPath As String
    Dim i As Long, questionCount As Long
    Dim questionNo As Long