只是記錄

Sub DeleteAllDocInfoShapes()Dim oShp As Word.ShapeDim i As LongvResponse = MsgBox("Delete All DocInfoShapes ? ", vbYesNoCancel, "刪除文字方塊")For i = ActiveDocument.Shapes.Count To 1 Step -1Set o

Sub SplitSectionsAsDocuments()'' 分文件''    Dim oSrcDoc As Document, oNewDoc As Document    Dim strSrcName As String, strNewName As String    Dim oRange As Range    Dim nIndex As Integer

1.出處2. CodeSub Auto_Open()  ‘打開EXCEL時'Application.Visible = False'MsgBox Workbooks.CountCall cga If Workbooks.Count    Application.Quit End IfApplication.DisplayAlerts = False    W

參考：http://www.360doc.com/content/10/0921/22/2619988_55466952.shtmlSub FormatPics() Dim iSha As InlineShape For Each iSha In ActiveDocument.InlineShapes   If iSha.Type = wdInlin