Sub Isert_TXT()
Dim v_Path As String, v_iFileName As String, v_Mask As String
v_Path = "c:\"
v_iFileName = Dir(v_Path)
v_Mask = "txt"
Do While v_iFileName <> ""
If Right(v_iFileName, 3) = v_Mask Then _
Selection.InsertFile FileName:=v_iFileName, Range:="", ConfirmConversions:= _
False, Link:=False, Attachment:=False
v_iFileName = Dir
Loop
End Sub