需要
在执行项目时,需要为表单设置标题,该标题可以自动编号,并且编号可以覆盖章节号
发展思路
通过字符实现光标定位,然后在该字符上面或下面增加题注,效果如下图所示
通过对Word的VBA研读,在增加题注前需要先设定题注格式,然后通过该定义的题注句柄,使用它的Application进行赋值题注。
函数
开发了SetCaptionLabels4Word函数,该函数有两个功能,第一个是新增题注句柄,第二个是根据新增的题注句柄在指定光标位置增加题注
使用说明
% 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>)’); % 插入题注
备注