Sub reformat()
'
' reformat Macro
'
'
    Selection.HomeKey Unit:=wdStory
    Selection.WholeStory
    Selection.Font.Grow
    Selection.Font.Size = 9
    Selection.Font.Bold = wdToggle
    Selection.Font.Bold = wdToggle
    Selection.HomeKey Unit:=wdStory
    Selection.MoveDown Unit:=wdLine, Count:=6
    Selection.EscapeKey
    Selection.InsertRowsAbove 1
    Selection.InsertRowsAbove 1
    Selection.InsertRowsAbove 1
End Sub

Sub f1()
'
' f1 Macro
'
'
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    ChangeFileOpenDirectory "C:\d\"
    Selection.InsertFile FileName:="FU.TXT", Range:="", ConfirmConversions:= _
        False, Link:=False, Attachment:=False
    Selection.HomeKey Unit:=wdStory
    Selection.WholeStory
    Selection.Font.Name = "Liberation Mono"
    Selection.Font.Shrink
    Selection.Font.Size = 11
    Selection.Font.Size = 10
    With Selection.ParagraphFormat
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceMultiple
        .LineSpacing = LinesToPoints(0.95)
        .LineUnitBefore = 0
        .LineUnitAfter = 0
    End With
End Sub

Sub f2()
'
' f2 Macro
'
'
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    ChangeFileOpenDirectory "C:\d\"
    Selection.InsertFile FileName:="FU.TXT", Range:="", ConfirmConversions:= _
        False, Link:=False, Attachment:=False
    Selection.HomeKey Unit:=wdStory
    Selection.WholeStory
    Selection.Font.Name = "Liberation Mono"
    Selection.Font.Size = 10
    With Selection.ParagraphFormat
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceMultiple
        .LineSpacing = LinesToPoints(0.9)
        .LineUnitBefore = 0
        .LineUnitAfter = 0
    End With
End Sub
Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.InsertDateTime DateTimeFormat:="dddd, MMMM dd, yyyy", _
        InsertAsField:=False, DateLanguage:=wdEnglishUS, CalendarType:= _
        wdCalendarWestern, InsertAsFullWidth:=False
    Selection.TypeText Text:=" "
    Selection.InsertDateTime DateTimeFormat:="h:mm am/pm", InsertAsField:= _
        False, DateLanguage:=wdEnglishUS, CalendarType:=wdCalendarWestern, _
        InsertAsFullWidth:=False
    Selection.TypeParagraph
End Sub
Sub jdate()
'
' jdate Macro
'
'
    Selection.InsertDateTime DateTimeFormat:="dddd, MMMM dd, yyyy", _
        InsertAsField:=False, DateLanguage:=wdEnglishUS, CalendarType:= _
        wdCalendarWestern, InsertAsFullWidth:=False
    Selection.TypeText Text:="  "
    Selection.InsertDateTime DateTimeFormat:="h:mm am/pm", InsertAsField:= _
        False, DateLanguage:=wdEnglishUS, CalendarType:=wdCalendarWestern, _
        InsertAsFullWidth:=False
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Font.UnderlineColor = wdColorAutomatic
    Selection.Font.Underline = wdUnderlineSingle
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
End Sub