需求

做项目的时候，需要对某表格设置题注，可以自动编号，其中编号可以涵盖章节号

开发思路

通过字符实现光标定位，然后在该字符上面或下面增加题注，效果如下图所示

通过对Word的VBA研读，在增加题注前需要先设定题注格式，然后通过该定义的题注句柄，使用它的Application进行赋值题注。

函数

开发了SetCaptionLabels4Word函数，该函数有两个功能，第一个是新增题注句柄，第二个是根据新增的题注句柄在指定光标位置增加题注

函数下载：https://share.weiyun.com/q6mu3lyI

使用说明

% Word % Word 服务器句柄 

% WorkType % 工作类型  % Bulit /Set % 建立题注句柄 /% 依据参数设置题注 

% CaptionLabels % 标签名 

% Separator  % 指定要在各项之间放置的分隔符的类型     % 0/1/2/3/4  % 连字符/句点/冒号/着重突出的划线/标准划线 

% ChapterStyleLevel % 章节号时标记新章节的标题样式 

% IncludeChapterNumber % 题注标签包含章节号 % 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>特征数据统计表/(<文字. PlotUnits>)'); % 插入题注

备注

使用该函数时请标注来源