只是記錄

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