tekst = tekst & Range("A1") & vbNewLine

Sub Excel_to_Word()
Dim appWD As Object, i As Long, tekst As String

For i = Range("D10").Value To Range("E10").Value
Range("C2") = i
tekst = tekst & Range("A1") & " "
Next i

Set appWD = CreateObject("Word.Application")
appWD.Visible = True
appWD.Documents.Add
appWD.Selection = tekst

With appWD.Selection
If .ParagraphFormat.Alignment <> 3 Then
    .ParagraphFormat.Alignment = wdAlignParagraphJustify
        End If
    .Font.Name = "Arial"
    .Font.Size = 12
End With
'appWD.ActiveDocument.SaveAs "C:\Documents and Settings\Administrator\Szablony\Pulpit\O111.doc"
'appWD.Quit
Set appWD = Nothing
End Sub