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

1、首先在打开的Word文档中可以看到选项有不同的位置，需要将所有的选项对齐。

2、然后按下Ctrl+A全选所有的文档内容。

3、之后点击页面上方工具栏中的“替换”按钮。

4、在打开的“替换”对话框中的查找内容中输入“^p”，在替换为中空置不填，直接点击全部替换按钮。

5、点击替换后即可将选项前面的空格取消，将选项对齐显示。

1、首先，打开Word，然后把光标放到要插入域的位置。

2、然后，点击功能区的“插入”，如图。

3、然后，在右侧点击“文档部件”，选择“域”如图。

4、然后在d出的对话框中，然后选择类别和域名，单击确认。

5、如果还要添加到域，点击下方的“域代码，单击“选项”。

6、然后添加域即可。

---