用python写代码几乎都要用到range。
在python中range可以有两种表示形式
1.range
(stop)
2.range
(start, stop[, step])
其中s[……]
阅读全文>>>关注和分享Excel以及Office系列软件的方方面面,致力于提高中国的办公软件的使用水平
在ppt vba中如果要循环批量删除幻灯片中的图形等对象,会遇到很多困难。
比如当执行如下For Each … In 的vba代码删除ppt中第一张幻灯片中的所有图片后,会发现并没有将图片全部删除。[……]
阅读全文>>>在excel vba中Range对象的Characters属性可以返回Characters对象。
Characters对象可以操作单个单元格中的部分字符,比如通过Characters对象的Font属性可[……]
阅读全文>>>经常在编写word vba 解决方案时会遇到需要获取range对象所在的行的文本内容。
这时候可以使用如下的代码:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Sub QQ1722187970() Const wdLine = 5 Dim oDoc As Document Dim oRng As Range Dim oWord As Word.Application Set oDoc = Word.ActiveDocument Set oRng = oDoc.Range(1, 100) oRng.Select With oWord.Selection '取消选择区域 .Collapse '定位到行的开头 .HomeKey wdLine iStart = .Start '定位到行的结尾 .EndKey wdLine iEnd = .End End With '返回所在行的Range对象 Set oRng = oDoc.Range(iStart, iEnd) '获取行的内容 sText = oRng.Text End Sub |
原理是使用Sel[……]
阅读全文>>>在一些WORD文档的处理案例中,有时候需要逐字符遍历WORD文档的内容。
这时候可以使用如下的代码实现逐字符遍历WORD文档的内容。
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Sub QQ1722187970() Dim oRng As Range Dim oDoc As Document Dim iEnd As Long Set oDoc = Word.ActiveDocument iEnd = oDoc.Range.End For i = 0 To iEnd Set oRng = oDoc.Range(i, i + 1) '*************************************** '以下是要执行的代码 '*************************************** Next End Sub |
[……]
阅读全文>>>在用vba操作word文档的内容时,经常会遇到需要定位到word文档的末尾或者开头的时候。
如果要在word文档的末尾操作,可以使用如下代码
[crayon-601068a70000059633599[……]