Set FolderPath = Application.FileDialog(msoFileDialogFolderPicker) Set PowerPointFile = CreateObject("PowerPoint.Application") Set WordFile = CreateObject("Word.Application") 'Macro for cleaning personal data from files within selected folder. I had some help With the following redone code, but only Excel works. Set wdd = Documents.Open(.SelectedItems(n))Įnd SubI am trying To include Excel files And Powerpoint files.īasically 1 macro To copy into Word, Excel And Powerpoint. 'check that user selected Open (-1) rather than Cancel (0) 'show the dialog box and get the button that was clicked With Application.FileDialog(msoFileDialogOpen) 'all the documents opened and closed againĪpplication.FileDialog(msoFileDialogOpen).Filters.Clear 'turn off screen updating so we don't see Application.FileDialog(msoFileDialogOpen).Filters.Add _ĭescription:="Word documents (*.doc *.docx)", _
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |