![](https://img-blog.csdnimg.cn/20201014180756754.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
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 · 4108 阅读 · 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 · 440 阅读 · 0 评论 -
How to Login Automatically into Website Using Excel VBA
1.出處 2. Code Sub Auto_Open() ‘打開EXCEL時 'Application.Visible = False 'MsgBox Workbooks.Count Call cga If Workbooks.Count Application.Quit End If Application.DisplayAlerts = False W转载 2016-01-18 17:17:55 · 588 阅读 · 0 评论 -
word文档如何批量修改图片大小
參考:http://www.360doc.com/content/10/0921/22/2619988_55466952.shtml Sub FormatPics() Dim iSha As InlineShape For Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlin转载 2016-05-26 14:41:44 · 3746 阅读 · 0 评论