【vba-3】vba操作word所有表格居中

Sub addTz()Word.Application.ScreenUpdating = FalseDim oRng As RangeDim oDoc As DocumentDim oCL As CaptionLabelDim oIS As InlineShapeSet oDoc = Word.ActiveDocumentWith oDocSet oCL = Word.CaptionLabels.Add("图")'设置新增的题注样式With oCL.ChapterStyleLevel = 1.IncludeChapterNumber = True.NumberStyle = wdCaptionNumberStyleArabicEnd Withi = 1For Each oIS In .InlineShapesSet oRng = .Range(oIS.Range.End + 1, oIS.Range.End + 1)With oRng'防止影响下段格式.InsertAfter (vbCrLf)'将oRng对象按照整个段落选中，oRng对象自动变为整个段落的Range对象oRng.Expand wdParagraph'如果有自动编号 删除oRng.ListFormat.RemoveNumbers'读取标题的文本内容sText = VBA.Replace(oRng.Text, Chr(13), "").Delete'插入题注.InsertCaption "图", sText'插入xx如yy所示的交叉引用.InsertAfter "所示" & Chr(13)'重新定义区域.SetRange .Start, .Start.InsertCrossReference "图", wdOnlyLabelAndNumber, ioRng.Expand wdParagraph.SetRange .Start, .Start.InsertBefore sText & "如"End Withi = i + 1NextEnd WithWord.Application.ScreenUpdating = True
End Sub

【vba-3】vba操作word所有表格居中相关推荐

【vba-2】vba操作word所有表格居中
--表格整体居中 Sub SetTableCenter()Dim doc As Document, myTable as TableSet doc = ActiveDocumentIf doc.Tab ...
VC操作word绘制表格
VC操作word绘制表格时,需要选择绘制好的整个表格框居中显示, 1,如何选中整个表格框,表格的对象table,然后居中 2.表格的个性化设置,表格项内再次设计一个m*n的表格框 ...
java word表格_java操作word的表格
java操作word的表格最近项目中需要把提交的页面表单的数据动态写在word模板中,简单的写了个工具类.里面有怎眼操作word 中表格的内容,可以在word中已有的表格后面添加行并且可以增加内容. ...
poi设置word表格单元格宽度_xwpftable设置宽度；POI操作Word设置表格宽度
poi 操作word里表格,如设置表格宽度.行高.表格样式等. 1.表格或单元格宽度: 默认TblW的type属性为STTblWidth.AUTO,即自动伸缩.所以要调整为指定类型:STTblWidt ...
POI操作Word设置表格在字体加粗【XWPFTableCell设置字体】Java操作Word调样式
Jar包的版本号:[不同的版本号也许也可以,可以尝试一下,哈哈哈哈~] ----------因为代码在内网环境中无法复制出来,所以这里就截图了,兄弟们自己敲一下键盘吧~ POI操作Word设置表格在字 ...
POI-5.2.2 操作 word 【表格】
poi 3.17操作Word工具包,点击此处当前版本 5.2.2 ,版本不同,写法略有差异 - poi-5.2.2 操作word [段落] - poi-5.2.2 操作word [表格] - poi ...
word(2010)使用VBA完成批处理操作-批量清除表格某单元格内容
word VBA 的使用案例 VBA是什么? 为什么要使用VBA? VBA的运用实例---批量清除表格某单元格内容结语 VBA是什么? VBA(Visual Basic for Applicatio ...
java 操作word中表格_Java 使用Spire.Cloud.Word给Word文档添加表格
在编辑Word文档时,很多时候需要用到表格,以便能够清晰整洁地表达和归类数据.本文就将介绍如何使用Spire.Cloud.Word给Word文档添加表格.Spire.Cloud.Word提供了Tabl ...
jacob操作word增加表格行列
import com.jacob.activeX.ActiveXComponent; import com.jacob.com.Dispatch; import com.jacob.com.Va ...

【vba-3】vba操作word所有表格居中

【vba-3】vba操作word所有表格居中相关推荐

最新文章

热门文章