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 SubTorna a Applicazioni Office Windows
| Convertire un numero nel suo decimale Autore: lone wolf |
Forum: Applicazioni Office Windows Risposte: 2 |
| Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 29 ospiti