Moderatori: Anthony47, Flash30005
Sub Salvapptx()
Dim myDir As String, myF As String
'
myDir = "C:\Users\UTENTE\Desktop\DA_PC-FACILE\" '<<<
myF = Dir(myDir & "*.ppt")
'
Do While myF <> ""
If Right(myF, 4) = ".ppt" Then
Presentations.Open FileName:=(myDir & myF)
ActivePresentation.SaveAs (myDir & Replace(ActivePresentation.Name, "ppt", "pptx")), ppSaveAsOpenXMLPresentation
ActivePresentation.Close
End If
myF = Dir
Loop
End Sub
Torna a Applicazioni Office Windows
Access 2003: creare maschera per inserire dati su più tabell Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 1 |
Excel: come convertire formato indirizzi IP da .1 a .001 Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 106 ospiti