[Tasos]

Καλησπέρα σε όλους!
Δημήτρη δοκίμασε:

Private Sub cmdCreatePraktiko_Click()
    Dim wrdApp As Object
    Dim wrdDoc As Object
    Dim wrdRange As Object
    Dim i As Integer
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Add
    With wrdDoc
        For i = 1 To 3
            Set wrdRange = .Range
            wrdRange.SetRange .Range.End, .Range.End
            wrdRange.InsertFile FileName:="C:\000\test_" & i & ".doc"
        Next i
        If Dir("C:\000\test.doc") <> "" Then
            Kill "C:\000\test.doc"
        End If
        .SaveAs ("C:\000\test.doc")
        .Close
    End With
    wrdApp.Quit
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub

Με εκτίμηση

Τάσος