Sub Palkat()
'
' Palkat Makro
'
'
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
        13, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Taulukko Ruudukko" Then
            .Style = "Taulukko Ruudukko"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="Tammi"
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="Helmi"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="Maalis"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="Huhti"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="Touko"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="Kesä"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="Heinä"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="Elo"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="Syys"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="Loka"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="Marras"
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="Joulu"
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=12
    Selection.TypeText Text:="Brutto"
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.TypeText Text:="Netto"
    ActiveDocument.Save
End Sub