我们有时候需要从word中提取数据到excel中。
这时候一般的套路都是在excel vba中创建word应用程序实例,然后一番操作以后关闭word应用程序。
[……]
阅读全文>>>关注和分享Excel以及Office系列软件的方方面面,致力于提高中国的办公软件的使用水平
在用vba获取word文档的内容时,经常要获取某个段落的内容。
有时候我们要获取的是某个段落的下一个或上一个段落的内容。
如下图所示
黄色区域为当前选中的段落,如何获取该选中段落的上[……]
阅读全文>>>在如何用vba合并word表格的单元格?一文中我们介绍了如何用vba合并word表格中的单元格
在vba中还可以拆分word单元格,拆分单元格用单元格对象的Split方法。
[crayon-6036b[……]
要在vba中设置word问的页边距,可以通过PageSetup对象设置。
代码如下所示:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Sub exceloffice() '作者QQ:1722187970,微信:xycgenius,微信公众号exceloffice Dim oDoc As Document Set oDoc = Word.ActiveDocument Dim oT As Table Dim oRow As Row Dim oColumn As Column With oDoc Dim oPS As PageSetup Set oPS = .PageSetup With oPS '左边距 .LeftMargin = Word.CentimetersToPoints(2) '上边距 .TopMargin = Word.CentimetersToPoints(2) '右边距 .RightMargin = Word.CentimetersToPoints(1) '下边距 .BottomMargin = Word.CentimetersToPoints(3) End With End With End Sub |
[……]
阅读全文>>>woor表格跨页断行的意思是指word表格中的某行内容可以一部分在一个页面,另一部分在另一个页面。
如果不允许跨页断行,则如果该表格的某行内容特别长,则会全部出现在下一个页面。
在vba中可以一次[……]
阅读全文>>>在word中可以设置表格的标题行在多个页面重复出现。
在vba中可以通过设置Row对象或者Rows对象的HeadingFormat属性为True来重复表格的标题行。
但是不管是设置哪一行的Row对[……]
阅读全文>>>word表格的行高、列宽既可以单独设置,也可以全部一次性设置为统一的值。
要在vba中单独的调整word表格的行高、列宽,可以使用如下的vba代码:
[crayon-6036bc691e8480813[……]
在word 表格中可以插入行列。
如果要用vba给word表格插入行或者列,可以使用如下的代码:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Sub exceloffice() '作者QQ:1722187970,微信:xycgenius,微信公众号exceloffice Dim oDoc As Document Set oDoc = Word.ActiveDocument Dim oT As Table Dim oRow As Row Dim oColumn As Column With oDoc Set oT = .Tables(1) With oT '设置要在第几行前面插入行,这里是第2行 Set oRow = .Rows(2) '在第2行前面插入行 .Rows.Add oRow Set oColumn = .Columns(3) '在第3列左边插入一个空列 .Columns.Add oColumn End With End With End Sub |