以下代码在word2016能运行，但在word2007不行运行

JN_LC

有两段vba代码在word2016能用,但在word2007不能用.如下:
第一段:

       

Application.Selection.HomeKey (Unit:=6)
Do
    unitsMoved = Application.Selection.MoveDown(Unit:=4, Count:=5, Extend:=1)
    If unitsMoved = 5 And Application.ActiveDocument.Range(0, Application.Selection.End).Paragraphs.Count <> Application.ActiveDocument.Paragraphs.Count Then
        Application.Selection.InsertAfter (vbCrLf)
    End If
Loop Until unitsMoved < 5

       

       

Application.Selection.WholeStory
Application.Selection.Font.Size = 12

       

Application.Selection.Range.ListFormat.ApplyListTemplateWithLevel (ListTemplate:=app.ListGalleries(2).ListTemplates(2), ContinuePreviousList:=False, ApplyTo:=0, DefaultListBehavior:=2)

请大神和老师指教!可否帮忙修改成通用的?