教大家Word文檔合并技巧

近日有關(guān)于Word文檔合并技巧的問題受到了很多網(wǎng)友們的關(guān)注，大多數(shù)網(wǎng)友都想要知道Word文檔合并技巧的具體情況，那么關(guān)于到Word文檔合并技巧的相關(guān)信息，小編也是在網(wǎng)上進(jìn)行了一系列的信息，那么接下來就由小編來給大家分享下小編所收集到與Word文檔合并技巧相關(guān)的信息吧(以下內(nèi)容來自于網(wǎng)絡(luò)非小編所寫，如有侵權(quán)請與站長聯(lián)系刪除)

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

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

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

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

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

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

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

復(fù)制以下代碼到VBA編輯器，如圖所示，完畢后退出即可(PC登錄微信，進(jìn)入訂閱號找到我們，點(diǎn)擊查看歷史消息并復(fù)制本文內(nèi)代碼，或在公眾號界面輸入“合并”直接獲取下載地址)。

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

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