a ver si esto te ayuda.
Private Sub cmdguardar_Click()
'guarda el documento como word
Dim MSWord As New Word.Application
Dim Documento As Word.Document
Dim Parrafo As Paragraph
Set Documento = MSWord.Documents.Add
Set Parrafo = Documento.Paragraphs.Add
'envia a word lo que haya en el text
Parrafo.Range.InsertAfter txtdetalle.Item(I).Text & vbCrLf & vbCrLf
Parrafo.Range.InsertAfter txtcontenido.Text & vbCrLf & vbCrLf
Parrafo.Range.InsertAfter txtfechat.Text & vbCrLf & vbCrLf
Parrafo.Range.InsertAfter Text5.Text
Parrafo.Range.InsertAfter txtfecha.Text & vbCrLf & vbCrLf
Parrafo.Range.InsertAfter Text4.Text
Parrafo.Range.InsertAfter txtnombrec.Text & vbCrLf & vbCrLf
Parrafo.Range.InsertAfter Text3.Text
Parrafo.Range.InsertAfter txtdescripcion.Text & vbCrLf & vbCrLf
Parrafo.Range.InsertAfter Text2.Text
Parrafo.Range.InsertAfter txtnumero.Text & vbCrLf & vbCrLf
Parrafo.Range.InsertAfter Text1.Text
Parrafo.Range.InsertAfter txttitulo.Text & vbCrLf & vbCrLf
MSWord.Selection.Font.Name = "Arial"
MSWord.Selection.Paragraphs.Alignment = wdAlignParagraphJustify
MSWord.Selection.Font.Bold = True
MSWord.Visible = True
end sub
