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文档，输入一些选项。

二、按住快捷键ctrl加h，调出替换按钮。

三、在替换中查找内容为空格，替换为在更多中把区分全半角不划钩，点击全部替换。

四、提示12处被替换掉。

五、输入查找内容ABCD空格，替换为^t^&，勾选使用通配符，点击全部替换。

六、完成点确定。

七、最后看一下效果。

这样就完成了ABCD选项都对齐了。

Word中将ABCD合成一行的方法如下：

1、通过桌面快捷方式或搜索来打开word文档。

2、在随后打开的界面左侧点击需要将ABCD选项放在同一行的文档。

3、在新打开的界面中将鼠标光标放到B前面，并点击，随后按键盘上的“backspace”键（即退格键）将B移到第一行，随后点击C前面的空格，再按一下退格键。接着点击D前面的空格，再次按下退格键。

4、在第一行的B选项前面，A选项后面的位置点击，随后点击键盘上的“Tab”键，即可将A和B选项分割开。随后点击C和B选项的衔接点，再次按下Tab键盘，最后再点击D和C的连接处，按下Tab键，即可将ABCD放到同一行并有间隔。

---