需求

做項目的時候，需要對某表格設(shè)置題注，可以自動編號，其中編號可以涵蓋章節(jié)號

開發(fā)思路

通過字符實現(xiàn)光標定位，然后在該字符上面或下面增加題注，效果如下圖所示

通過對Word的VBA研讀，在增加題注前需要先設(shè)定題注格式，然后通過該定義的題注句柄，使用它的Application進行賦值題注。

函數(shù)

開發(fā)了SetCaptionLabels4Word函數(shù)，該函數(shù)有兩個功能，第一個是新增題注句柄，第二個是根據(jù)新增的題注句柄在指定光標位置增加題注

函數(shù)下載：https://share.weiyun.com/q6mu3lyI

使用說明

% Word % Word 服務(wù)器句柄?

% WorkType % 工作類型? % Bulit /Set % 建立題注句柄 /% 依據(jù)參數(shù)設(shè)置題注?

% CaptionLabels % 標簽名?

% Separator ?% 指定要在各項之間放置的分隔符的類型? ? ?% 0/1/2/3/4 ?% 連字符/句點/冒號/著重突出的劃線/標準劃線?

% ChapterStyleLevel % 章節(jié)號時標記新章節(jié)的標題樣式?

% IncludeChapterNumber % 題注標簽包含章節(jié)號?% true/false?

% Title ? ?% 標簽后跟著的文字 % Position % 題注位置 % ? ? ? ? ?% 0/1 % 上/下

使用實例

[ CaptionLabelHandle , Message ] = SetCaptionLabels4Word( Word,'Bulit','表',1,1,true,0); % 建立題注樣板?

Word.Selection.Start =0;Word.Selection.End =0;a = Word.Selection.Find.Execute('<表格.BridgeName_Items.SheetName.時程>'); % 光標定位

[ CaptionLabelHandle , Message ] = SetCaptionLabels4Word( Word,'Set', ... ? ?CaptionLabelHandle,'表',' <文字.BridgeName><文字.Items>特征數(shù)據(jù)統(tǒng)計表/(<文字. PlotUnits>)'); % 插入題注

備注

使用該函數(shù)時請標注來源