Sub 巨集1()
'
' 巨集1 巨集

   
    On Error Resume Next
    Application.WindowState = wdWindowStateMaximize
    
    Dim s As String
    s = ""
    Dim j As Integer
    j = 0
   Dim k As Integer
    k = 0

    Do
       Selection.MoveUp Unit:=wdLine, Count:=1
       Selection.HomeKey Unit:=wdRow
       Selection.SelectCell
       s = Selection.Text
    
       If (Left(s, 2) = "00") And (Len(s) > 10) Then '判斷是標題
         Selection.InsertBreak Type:=wdPageBreak
         j = j + 1
       End If
       k = k + 1
    Loop Until (j > 590) or (k > 10000)  'j看有幾個表減1, k設比行數多防變成死循環


End Sub