售前的進階之路-菜鳥級改文檔格式
作為一個已工作一年的售前工程師，仍然停留在菜鳥級，改文檔格式也是最基本的技能，用到的主要工具是Word，下面來總結一下你的領導說讓你寫完方案瞭調一下格式，可以從以下幾個方面來檢查，如果你按照我的帖子調完格式瞭領導說調的方面還不全，讓他來找我，拿走不謝
文件
1）文件重命名
2）改版本號
3）如有必要在文件後面添加完成日期
封面
如果套用的是別的項目上的文件，封面的海報需要註意
1）標題
2）日期
3）文檔總頁數
4）封面可能標識瞭版本
目錄
1）更新域
2）字體、字號、行距、縮進
序號
標題編號
1）鏈接到對應的樣式中，中文字體西文字體、每級標題是否縮進
項目編號
1）能不能使用自動編號
2）能不能使用項目符號
3）先字母編號還是先數字編號，編號要不要括號，什麼時候有縮進
正文
1）刪除空行、空白頁
2）文檔中有密字的脫密
字體
1）字號、字體（中文字體、西文字體）
2）是不是要統一顏色（鏈接可能會是藍色）
段落
1）統一行距、縮進、對齊方式、段前段後
交叉引用
1）一般隻插入標簽和編號，有時候插入瞭不能成功匹配正文的字體和字號，需要手動調
表註、圖註等題註
1）題註序號要不要加章節號，如**圖12**，還是**圖1-12**
2）格式一致，如都是黑體五號
3）批量給圖片添加題註的方法，
選中一個題註按shift+f9切換域代碼，選中文檔中需要添加圖註的文本，打開查找替換框，將
> `^g替換為^&^P^C`
4）題註的空格，如
圖12阿奔的改文檔格式圖
有的會要求圖與12沒有空格，12與阿奔之間有兩個空格，但在Word默認程序中插入題註就是圖與12之間有一個空格，12與阿奔之間有一個空格，這時候就需要宏來修改Word中的默認程序，如下
修改題註格式shift+f9還原域代碼
'功能：自動刪除標簽與編號間的空格（英文除外），並在題註數字後添加一個空格；適用於：Word 2003 - 2013，不兼容WPS文字！
'真正從原理上協同系統插入題註，無任何前提條件；用戶照常插入題註即可，甚至感覺不到程序的存在！
'Endlesswx於2015年8月4日
'另,如果插入的始終未域代碼而不是數字，非程序問題，Alt+F9一次即可
Dim Lab As String, startPt As Long, endPt As Long, myrang As Range
'On Error Resume Next '發生錯誤時讓程序繼續執行下一句代碼
' Application.ScreenUpdating = False '關閉屏幕更新，2013在此處關閉更新會導致輸入框灰色不可選，故修正在調出對話框之後
startPt = Selection.Start 'startPt標註起始點
'***將if條件隱藏隱藏即可實現----手動替換題註空格***
If Application.Dialogs(357).Show = -1 Then '插入“題註”對話框秀出來,如果按確定結束時執行以下程序，避免按取消後的空格,357也可換成wdDialogInsertCaption
Application.ScreenUpdating = False '關閉屏幕更新
Lab = Dialogs(357).Label
endPt = Selection.Start 'endPt標記插入的題註部分終點
Selection.Start = startPt '選定插入的整個題註
'刪除標簽與編號間的空格（英文後的保留）
With Selection.Find
.Text = Lab & " "
.Forward = True 'False=向上查找,(True=向下查找)
.MatchWildcards = False '不使用通配符
If Lab Like "*[0-9a-zA-Z.]" Then '此處判斷標簽的最後一個字符是否為英文或數字，是則不刪除空格
Else
.Replacement.Text = Lab
.Execute Replace:=wdReplaceOne '替換找到的第一個，此處用作刪除空格
endPt = endPt - 1 '刪除空格後，末位減1
Selection.End = endPt
End If
End With
'在題註數字後添加一個空格
Selection.Fields.ToggleShowCodes '切換域代碼，這樣才能用^d查找域
With Selection.Find
.Text = "^d"
.Replacement.Text = "^& "
.Replacement.Text = "^& "
.Forward = False 'False=向上查找,(True=向下查找)
.MatchWildcards = False '不使用通配符
.Execute Replace:=wdReplaceOne '替換找到的第一個，此處用作添加空格
.Execute Replace:=wdReplaceOne
End With
'選定整個插入的題註內容，將域代碼切換回來
endPt = endPt + 2 '增加空格後，末位加1
With Selection
.Start = startPt
.End = endPt
.Fields.ToggleShowCodes '切換域代碼（切換回來）
End With
'將光標定位至題註所在段尾處
' Selection.MoveRight Unit:=wdCharacter, Count:=1 '此句光標返回插入題註前的原始位置，對於已經輸好標題的情況並不合適
'選擇段尾回車符
With Selection.Find
.Text = "^13"
.Forward = True 'False=向上查找,(True=向下查找)
.MatchWildcards = False '不使用通配符
.Wrap = wdFindContinue '繼續查找
.Execute
End With
Selection.MoveLeft Unit:=wdCharacter, Count:=1 '定位到段尾回車前
End If
Selection.Fields.ToggleShowCodes
Application.ScreenUpdating = True '恢復屏幕更新
End Sub
