![](https://img-blog.csdnimg.cn/20201014180756724.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Word
Lisazz25
这个作者很懒,什么都没留下…
展开
-
刪除Word全部文字方塊
Sub DeleteAllDocInfoShapes() Dim oShp As Word.Shape Dim i As Long vResponse = MsgBox("Delete All DocInfoShapes ? ", vbYesNoCancel, "刪除文字方塊") For i = ActiveDocument.Shapes.Count To 1 Step -1 Set o转载 2014-09-11 11:42:16 · 4094 阅读 · 0 评论 -
分割【節】Word
Sub SplitSectionsAsDocuments() ' ' 分文件 ' ' Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNewName As String Dim oRange As Range Dim nIndex As Integer转载 2015-01-09 09:49:34 · 436 阅读 · 0 评论