怎样给word文档批量添加选项
Ⅰ word中怎样批量添加ABCD
大神我来帮你解答!
打开此文档,按Alt+F11,打开宏代码编辑器,然后把如下代码原样复制粘贴进去,然后将光标至于代码中,按F5运行宏,10秒钟搞定几千道题。
这种东西需要用宏代码编程来实现的,并非excel一定就能用得上或好用的。
SubAddABCD()
DimTableCountAsLong
DimColumnAsInteger
DimColumnsAsInteger
DimRowsAsLong
DimselsAsString
TableCount=ActiveDocument.Tables.Count'获取文档中的表格数
Column=4'编号加在第4列,可以自行修改
Fori=1ToTableCount
Columns=ActiveDocument.Tables(i).Columns.Count
Rows=ActiveDocument.Tables(i).Rows.Count
IfColumn<1ThenColumn=1
IfColumn>ColumnsThenColumn=Columns
Forr=2ToRows
ActiveDocument.Tables(i).Cell(r,Column).Select
IfInStr(Trim(Selection.Text),vbCr)=InStrRev(Trim(Selection.Text),vbCr)ThenGoToNextR
WithListGalleries(wdNumberGallery).ListTemplates(4).ListLevels(1)
.NumberFormat="%1."
.TrailingCharacter=wdTrailingTab
.NumberStyle=
.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=""
EndWith
.LinkedStyle=""
EndWith
ListGalleries(wdNumberGallery).ListTemplates(4).Name=""
Selection.Range.ListFormat.ApplyListTemplateListTemplate:=ListGalleries(_
wdNumberGallery).ListTemplates(4),ContinuePreviousList:=False,ApplyTo:=_
wdListApplyToWholeList,DefaultListBehavior:=wdWord9ListBehavior
NextR:
Next
Next
MsgBox"处理完毕!"&vbcrlf&"更多批量处理实用功能,请参见《文件批量处理百宝箱V10.0》",vbInformation+vbOKOnly,"消息"EndSub
Ⅱ WORD里几千道选择题怎么批量添加 ABCD
摘要 这个建议你先将文字复制到记事本里面,让后将文字复制到excel中,使用分列功能,选择分列间隔符号为;,注意你的选项和题干是连在一起的,观察了你用的是空格隔开,也就是你要分列两次,第一步先要把题干和选项分开,第二步才分选项。
Ⅲ 如何给word文档批量加复选框
的话,打开你的Word文档,然后在菜单里栏里面选择这个功能就可
Ⅳ word文档怎么批量在答案前添加ABCDE,每个答案前都有“.”
答案:使用通配符查找替换 ,Ctrl+H打开替换对话框,单击高级,勾选使用通配符,在查找框中输入:([0-9]@.*.)(*.)(*.)(*.)(*.),替换为框中输入: \1A.\2\B.\3\C.\4D.\5
更多批量处理实用功能,请参见百--@@宝¥%箱**V10.0.
Ⅳ Word文档考试题怎样批量添加序号和选项的ABCD,并批量把答案放在括号里
添加序号
选择需要添加编号的文字,使用word里的编号功能
添加A选项
题干和选项之间不好找匹配规律,不容易批量操作,建议分批手动替换,先替换句号结尾的,剩下的手动填写A选项。
Ⅵ 在编辑word文档时,如何添加选项卡
word文档中,编辑某些数学公式可以使用【插入】菜单中的(对象)命令。 然后在【对象】对话框“新建”标签页下找到Microsoft 公式3.0,最后点击“确定”,从而调出公式编辑器。
Ⅶ 如何在word批量添加ABCD和序号
这在word中不好处理,建议使用Excel进行处理。
先将所有的空行删除:使用查找和替换,查找内容:^p^p,替换为:^p,点“全部替换”,一次替换不完再点一次全部替换。
然后复制所有内容粘贴到Excel,在前面插入一列,输入1、ABCD,选中A1~A6,向下复制,再复制到WORD中,或者直接在Excel中排版打印。
Ⅷ 怎么在Word里一次添加很多行
该WORD里面依次添加很多行可以通过使用WORD的插入表格来完成。点击插入表格,然后在弹出的对话框中输入需要的行数以及列数即可完成。具体的以WORD2007为例,操作方法如下:
1、在电脑上打开一个WORD文件,点击菜单栏的插入按钮并点击表格的下拉箭头。
Ⅸ 如何按章节批量给word中已存在的所有表格添加题注。比如1节的表格 为:表格1-1、1-2…… 2节的表格为2-1
1首先要点击桌面上的word2007桌面快捷方式打开一个word的空白文档。然后在打开的word文档窗口上面用鼠标点击功能栏上面的引用,然后在点击引用功能栏下面的插入题注按钮进行题注设置
2在引用功能栏下点击插入题注以后会出现题注设置窗口,在题注窗口的选项栏里点击标签后面的下拉按钮选择表格,选择好标签以后点击题注窗口左下角的自动插入题注按钮
3在题注窗口点击自动插入题注按钮以后会出现自动插入题注窗口,在窗口上面的插入时添加题注栏里面选择microsoft
word表格,然后在选项栏里把使用标签选择为表格,位置可以选择项目上方,也可选择下方,最后点击确定按钮即可完成设置
4题注设置好以后,就可以在已打开的word文档窗口上面的功能栏上面点击选择插入,然后在插入功能下面点击表格
5再插入功能栏点击表格以后会出现插入表格窗口,在插入表格窗口上面点击插入表格按钮
6在插入表格窗口点击插入表格按钮以后进入插入表格设置窗口,在窗口上面设置好表格的尺寸,然后在选择好自动调整操作,都设定好以后点击确定按钮就可以插入表格了
7重复上面的插入表格操作进行插入多个表格,就会看到插入到文档里面的多个表格会自动排序
Ⅹ 如何批量给多个word文档加标题
我们打开word,先用鼠标选中一个标题;