word中怎样批量添加ABCD

大神我来帮你解答！

打开此文档，按Alt+F11，打开宏代码编辑器，然后把如下代码原样复制粘贴进去，然后将光标至于代码中，按F5运行宏，10秒钟搞定几千道题。

这种东西需要用宏代码编程来实现的，并非Excel一定就能用得上或好用的。

 Sub AddABCD()

  Dim TableCount As Long

  Dim Column As Integer

  Dim Columns As Integer

  Dim Rows As Long

  Dim sels As String

  TableCount = ActiveDocument.Tables.Count '获取文档中的表格数

  Column = 4 '编号加在第4列，可以自行修改

  For i = 1 To TableCount

     Columns = ActiveDocument.Tables(i).Columns.Count

     Rows = ActiveDocument.Tables(i).Rows.Count

  If Column < 1 Then Column = 1

  If Column > Columns Then Column = Columns

  For r = 2 To Rows

    ActiveDocument.Tables(i).Cell(r, Column).Select

    If InStr(Trim(Selection.Text), vbCr) = InStrRev(Trim(Selection.Text), vbCr) Then GoTo NextR

     With ListGalleries(wdNumberGallery).ListTemplates(4).ListLevels(1)

        .NumberFormat = "%1."

        .TrailingCharacter = wdTrailingTab

        .NumberStyle = wdListNumberStyleUppercaseLetter

        .NumberPosition = CentimetersToPoints(0)

        .Alignment = wdListLevelAlignLeft

        .TextPosition = CentimetersToPoints(0.74)

        .TabPosition = CentimetersToPoints(0.74)

        .ResetOnHigher = 0

        .StartAt = 1

        With .Font

            .Bold = wdUndefined

            .Italic = wdUndefined

            .StrikeThrough = wdUndefined

            .Subscript = wdUndefined

            .Superscript = wdUndefined

            .Shadow = wdUndefined

            .Outline = wdUndefined

            .Emboss = wdUndefined

            .Engrave = wdUndefined

            .AllCaps = wdUndefined

            .Hidden = wdUndefined

            .Underline = wdUndefined

            .Color = wdUndefined

            .Size = wdUndefined

            .Animation = wdUndefined

            .DoubleStrikeThrough = wdUndefined

            .Name = ""

        End With

        .LinkedStyle = ""

    End With

    ListGalleries(wdNumberGallery).ListTemplates(4).Name = ""

    Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _

        wdNumberGallery).ListTemplates(4), ContinuePreviousList:=False, ApplyTo:= _

        wdListApplyToWholeList, DefaultListBehavior:=wdWord9ListBehavior

NextR:

      Next

   Next

    MsgBox "处理完毕！" & vbcrlf & "更多批量处理实用功能，请参见《文件批量处理百宝箱V10.0》", vbInformation + vbOKOnly, "消息"End Sub

添加序号

选择需要添加编号的文字，使用word里的编号功能

添加BCD选项，并把答案放在括号内

使用替换功能，勾选“更多”里的“使用通配符”功能，

查找内容：（*）(*)#(*)#(*)#(*)##*([A-D])

替换为：（\5）\1 B.\2 C.\3 D.\4

全部替换

添加A选项

题干和选项之间不好找匹配规律，不容易批量 *** 作，建议分批手动替换，先替换句号结尾的，剩下的手动填写A选项。

---