Ahora les pedire una ayuda si es posible, he sacado de una pagina esta instruccion:Una respuesta de mi poco conocimiento
Sub TotalTimes() 'Subrutina
Dim oSld As Slide 'Variable declarada Slide, no conozco
Dim strMessage As String 'Variable de cadena
Dim lngTotalTime As Long 'Variable Real
For Each oSld In ActivePresentation.Slides 'Ciclo por cada presentacion Slide
strMessage = strMessage _ 'A la variable se le asign la variable el caracter "_" significa que lo de abajo pertenece a esta sentencia
& CStr(oSld.SlideNumber) _ '
& vbTab _
& CStr(oSld.SlideShowTransition.AdvanceTime) _
& vbCrLf
lngTotalTime = lngTotalTime + oSld.SlideShowTransition.AdvanceTime 'Al valor de la variable se le asigna la variable + lo que ves ahi
Next oSld 'Finalizacion del ciclo For para el
' Comment these out if you don't want to see them
MsgBox strMessage 'Una caja de mensaje, con el mensaje que arroja la variable
MsgBox ("Total time: " & CStr(lngTotalTime)) 'Otro mensaje con el texto "Total time: " y lo que arroje lngTotalTime
' And if you want to write the results to a text file: -->como ves esto es un texto despues de el apostrofe
Dim FileNum As Integer 'Variable Entera
Dim FileName As String 'Variable cadena
' Edit this to suit:
FileName = "C:\Mis Documentos\slidetimings.txt" 'Variable que contiene un archivo
FileNum = FreeFile() 'no me acuerdo busca el comando freefile
Open FileName For Output As FileNum ' abre el archivo para escrituro
Print #FileNum, strMessage 'Le escribe el valor de strMessage
Print #FileNum, "Total time: " & CStr(lngTotalTime) 'Lo mismo
Close #FileNum 'Cierra el archivo
' view the file in notepad
Call Shell("Notepad.exe " & FileName, vbNormalFocus) 'Abre el block de notas, con el archivo anterior
End Sub 'Finaliza la Subrutina
a la ruta de acceso le puse:
FileName = "C:\Mis documentos\slidetimings.txt"
cuando le doy ejecutar - ejecutar me muestra todas las
ventanas con los datos pero al final me muestra una
ventana que dice:
Se ha producido el error 76 en tiempo de ejecucion, no se
ha encontrado la ruta de acceso.
'Quiere decir que el archivo no existe en esa direccion
se me ocurrio apretar el boton que dice Depurar y pone en
amarillo esta linea:
Open FileName For Output As FileNum,
le he cambiado la ruta de acceso y le he
puesto "C:\escritorio\, y sigue dando error. si alguien me puede ayudar le quedo muy agradecida, cordialmente, maire