位置:首頁 > 軟件操作教程 > 辦公軟件 > Word > 問題詳情

Word如何把兩個人的內(nèi)容合并到同一個文檔里?

提問人:周麗平發(fā)布時間:2021-09-28

 image.png

  來看看甲乙各自寫在哪里了?甲負(fù)責(zé)撰寫大綱1的內(nèi)容,乙負(fù)責(zé)寫大綱3的部分,二者不是順序排列,簡單的復(fù)制粘貼非常麻煩。

image.png


image.png

  這時,新建一個Word文檔,切換選項(xiàng)卡到審閱,最右側(cè)選擇“比較”中的“合并”

image.png
image.png

  分別在原文檔和修訂的文檔中,選中兩個文檔內(nèi)容(無所謂順序),例子中甲寫的部分為Doc1.docx,乙寫的部分為Doc2.docx,點(diǎn)擊確定。

image.png

image.png

  彈出提示框中,選擇任意一個要保留的格式方案,根據(jù)自己需求選擇。

 

image.png 
合并后,甲乙寫作的部分都已經(jīng)合并到相應(yīng)位置(注意,前提是文章大綱的格式一致),不過處于修訂狀態(tài)。

image.png

  此時,點(diǎn)擊審閱選項(xiàng)卡中的“接受”,選擇“接受所有更改并停止修訂”,文檔內(nèi)容就可以無縫合并到一個文檔里面了。

image.png


image.png

  這僅僅是合并,如果需要在此基礎(chǔ)上,將文章段落自動編號如何實(shí)現(xiàn),總不能手動輸吧?其實(shí)這個小編也想到了,利用VBA宏可以幫助你實(shí)現(xiàn)文章自動編號。切換到“開發(fā)工具”(注:如沒有,請打開文件—選項(xiàng)—自定義功能區(qū),勾選右側(cè)欄中的“開發(fā)工具”)選項(xiàng)卡,點(diǎn)擊“宏”,輸入名稱并點(diǎn)擊創(chuàng)建,例如“手動編號變自動編號”。

image.png

  復(fù)制以下代碼到VBA編輯器,如圖所示,完畢后退出即可

image.png

  Sub 手動編號變自動編號()

  Dim myRange As Range

  If Selection.Type = wdSelectionIP Then Selection.WholeStory

  Set myRange = Selection.Range

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

  .NumberFormat = "%1."

  .TrailingCharacter = wdTrailingTab

  .NumberStyle = wdListNumberStyleArabic

  .NumberPosition = CentimetersToPoints(1.98)

  .Alignment = wdListLevelAlignLeft

  .TextPosition = CentimetersToPoints(2.72)

  .TabPosition = CentimetersToPoints(2.72)

  .ResetOnHigher = 0

  .StartAt = 1

  .LinkedStyle = ""

  End With

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

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

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

  wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior

  myRange.Select

  Dim i As Paragraph

  For Each i In Selection.Paragraphs

  i.Range.Characters(1).Select

  Do While Selection.Characters.Last Like "#"

  Selection.MoveEnd unit:=wdCharacter, Count:=1

  Loop

  If Selection Like "*[、..]" Then Selection.Delete

  myRange.Select

  Next

  Selection.ParagraphFormat.TabStops.ClearAll

  ActiveDocument.DefaultTabStop = CentimetersToPoints(0.19)

  With Selection.ParagraphFormat

  .LeftIndent = CentimetersToPoints(0.74)

  .FirstLineIndent = CentimetersToPoints(-0.74)

  End With

  End Sub

  使用的時候,還是點(diǎn)擊開發(fā)工具選項(xiàng)卡中的“宏”選中“手動編號變自動編號”,點(diǎn)擊運(yùn)行即可。如果只是某一個段落需要自動編號,可以圈選要編號的文檔內(nèi)容再進(jìn)行操作就可以了。

image.png

繼續(xù)查找其他問題的答案?

回復(fù)(0)
返回頂部