VB: ¿Cómo escribir la declaración que crea un documento .doc?
Private Sub Command1_Click()
Atenuar wrdApp
Establecer wrdApp = CreateObject("Word.application")
Con wrdApp
.DisplayAlerts = False
.Visible = True
.Documents.Add
.Selection.TypeText "Lista de información de la computadora" + Chr(13)
.ActiveDocument.SaveAs "c:\1.CTRL"