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

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

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

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

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

　

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

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

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

　　Sub 手動(dòng)編號(hào)變自動(dòng)編號(hào)()

　　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

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