Sub Macro1()
    With ListGalleries(wdNumberGallery).ListTemplates( 1 ).ListLevels( 1 )
        .NumberFormat =  "%1 ."
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints( 0 . 63 )
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints( 1 . 27 )
        .TabPosition = CentimetersToPoints( 1 . 27 )
        .ResetOnHigher =  0 
        .StartAt =  1 
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name =  ""
        End With
        .LinkedStyle = "  "
    End With
    ListGalleries(wdNumberGallery).ListTemplates(1 ).Name = " "
    Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
        wdNumberGallery).ListTemplates(1 ), ContinuePreviousList:=False, ApplyTo:= _
        wdListApplyToWholeList, DefaultListBehavior:=wdWord9ListBehavior
    Selection.TypeText Text:="hghg "
    Selection.TypeParagraph
    Selection.TypeText Text:=" hgfdhfd "
    Selection.TypeParagraph
    Selection.TypeText Text:=" hgcxhdf"
    Selection.TypeParagraph
End Sub