怎樣給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,先用滑鼠選中一個標題;