GetText ( 1 ) Dim a As Date a Date Dim rutaA As String Dim RutaM As String rutaA Dir ( d: - Miguel Format ( a, dd - mm - yyyy ), vbDirectory ) If rutaA Then Else MkDir ( d: ) - Miguel Format ( a, dd - mm - yyyy ) End If RutaM d: - Miguel Format ( a, dd - mm - yyyy ) strTemp. SaveAs FileName: d: - Miguel Format ( a, dd - mm - yyyy ) strTemp End If End Sub Valora esta respuesta 0 Comentar. SaveAs FileName: d: - Miguel Format ( a, dd - mm - yyyy ) InputBox ( Este archivo ya existe. GetText ( 1 ) Dim a As Date a Date RuataA dir ( d: - Miguel Format ( a, dd - mm - yyyy ), vbDirectory ) If RuataA Then Else MkDir ( d: ) - Miguel Format ( a, dd - mm - yyyy ) End If RutaM d: - Miguel Format ( a, dd - mm - yyyy ) strTemp. MoveRight Unit: wdCharacter, Count: 1, Extend: wdExtend Selection.Ĭopy Dim fichero As String Dim strTemp As String Dim MyData As DataObject Set MyData New DataObject MyData. Crear Un Formulario Rellenable En Word Para 15 31 Software O CualquierĬrear Un Formulario Rellenable En Word Para 15 31 Software O CualquierĪctiveDocument.SaveAs FileName:fichero, FileFormat:wdFormatXMLDocument, LockComments:False, Password:, AddToRecentFiles:True, WritePassword:, ReadOnlyRecommended:False, EmbedTrueTypeFonts:False, SaveNativePictureFormat:False, SaveFormsData:False, SaveAsAOCELetter:False Estoy atorado.
0 kommentar(er)
