Procesamiento por lotes, cómo crear palabras en lotes

Pegue el siguiente código de macro en el área de edición de código de macro y luego presione F5 para ejecutarlo. Sub?BatCreateDocs() Dim?StartN?As?Long,?EndN?As?Long,?OutDir?As?String OutDir?=?" c:\test"?OutputDir, cambie StartN?=?22837 'Número real? , cambie EndN?=?22938? 'EndN, cámbielo usted mismoFor?i?=?StartN?To?EndN ActiveDocument.SaveAs?OutDir?" .doc" Siguiente paso MsgBox?"¡Creación completada!",?vbInformation ?+ ?vbOKOnly,?" Mensaje"

¿Fin?