国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Word > 正文

Word如何把兩個人的內容合并到同一個文檔里呢?

2019-12-13 08:24:10
字體:
來源:轉載
供稿:網友

甲乙合作寫一篇文章,有甲寫的也有乙寫的部分,而且各自穿插章節(jié),如何能夠把兩個人的內容合并到同一個文檔里呢?下面就為大家詳細介紹一下,來看看吧!

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

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

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

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

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

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

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

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

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

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

014

以上就是Word如何把兩個人的內容合并到同一個文檔方法介紹,操作很簡單的,大家按照上面步驟進行操作即可,希望能對大家有所幫助!  
發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 资源县| 龙山县| 庆云县| 台东市| 高州市| 恩平市| 江永县| 大洼县| 高碑店市| 房山区| 个旧市| 霞浦县| 南木林县| 寻乌县| 蓝山县| 九龙县| 晋州市| 蕉岭县| 台湾省| 霍林郭勒市| 新津县| 大英县| 康乐县| 宝兴县| 年辖:市辖区| 三明市| 正镶白旗| 霍州市| 文山县| 德兴市| 乐亭县| 凤庆县| 孟连| 巢湖市| 新宾| 左权县| 城步| 抚宁县| 峨山| 天津市| 乳源|