Oscar Sun

                  Sub 倉頡碼變速成碼()
Dim p As Paragraph, rng As Range
Set rng = ThisDocument.Paragraphs(1).Range
For Each p In ThisDocument.Paragraphs
    i = i + 1
    If i > 10 Then
        xp = p.Range
        s = InStr(xp, " ")
        If s > 3 Then
           
                rng.SetRange p.Range.Characters(2).Start, p.Range.Characters(s - 2).End
                rng.Delete
           
        End If
    End If
Next p
End Sub