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)擊“宏”,輸入名稱(chēng)并點(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)行操作就可以了。

繼續(xù)查找其他問(wèn)題的答案?
-
Word 2019如何轉(zhuǎn)換為PowerPoint?(視頻講解)
2021-01-258次播放
-
PowerPoint 2019如何為切換效果添加聲音?(視頻講解)
2021-01-232次播放
-
PowerPoint 2019如何設(shè)置切換效果的屬性?(視頻講解)
2021-01-232次播放
-
PowerPoint 2019如何為幻燈片添加切換效果?(視頻講解)
2021-01-230次播放
-
2021-01-199次播放
-
2021-01-193次播放
-
2021-01-192次播放
-
2021-01-191次播放
-
2021-01-1912次播放
-
2021-01-196次播放
點(diǎn)擊加載更多評(píng)論>>