How to convert a PPT file completely into a WORD document

1# lihx_susan: Converting PPT files to Word documents using PPTconverttodoc1.0 – the green version. This program can extract all textual content from PPT files (including that on slides and in notes) and save it in a WORD document. The resulting document is saved in the same directory as the PPT file; if the PPT file is named “XXX.ppt”, then the corresponding WORD document will be named “XXX.ppt.Convertor.doc”. In the WORD document generated by this program, the text is arranged in order but without any formatting, so the user needs to make adjustments themselves. This program does not require installation and can be run directly. It is best to close any previously running WORD and POWERPOINT programs. Drag the PPT file you wish to process into the program, then click the “Start” button on the program interface. During the operation, the slides and Word documents will move on their own, so there’s no need to worry. The conversion time depends on the amount of text in the slides; it usually takes 1 to 2 minutes. The program exits automatically after the conversion is complete. Before conversion, you can choose whether to add separator text to the Word document. If adding is selected, the format for the separator text will be: PageNo.X, indicating that the text following it comes from slide X ； WordsFromSlide: Indicates that the text that follows comes from the slide page ； WordsFromNotePage: Indicates that the text that follows comes from the notes page. It should work well. Download address: http://www.jz5u.com/soft/apply/conve/4216.html

1# lihx_susan or use the following method: Copy the code below into Windows Notepad, save the file as a .vbs file to create an executable program. Save it anywhere, such as on the desktop. I also discovered this code by chance, but it works very well and is simple to use. 'Bind to the local computer: strComputer = ".". ‘If an error occurs, continue execution: on error resume next. Set objWMIService = GetObject(“winmgmts:” & "{impersonationLevel=impersonate}!\\" & strComputer & “\root\cimv2”). MsgBox “This script can convert text from PPT files to Word files in bulk.” Images, tables, and other elements will be automatically skipped. \" & vbcrlf &\" When using this tool, please copy all the PPT files that need to be converted to the C:\ directory. Double-click to run this file. " & vbcrlf &"To run this script, Office must be installed on the local machine." 'Create a Word object: Set objWord = CreateObject("Word.Application") 'Create a PowerPoint object: Set pptApp = CreateObject("PowerPoint.Application") 'Get the list of files in the c:\ directory: Set FileList = objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Name='c:'} Where " _ & "ResultClass = CIM_DataFile") For Each objFile In FileList 'If the file’s extension is ppt: If objFile.Extension = "ppt" Then pptApp.Visible = true 'Open this PowerPoint file: Set pptSelection = pptApp.Presentations.Open("c:\" & objFile.FileName & "." & objFile.Extension) 'To make the script run faster, change the following line to “objWord.Visible = False”; however, this is not recommended. objWord.Visible = true ‘Create a new Word document to save the text from the PPT. Set objDoc = objWord.Documents.Add(). Set objSelection = objWord.Selection ‘Loop starting from the first page of the PPT.’ Slides.Count represents the number of slides. For i = 1 To pptSelection.Slides.Count ‘Loop starts from the first text box on each slide; Shapes.Count indicates the number of text boxes per slide. For j = 1 To pptSelection.Slides(i).Shapes.Count ‘If it’s the first line on a page, treat it as a title and make it bold. If i = 1 Then objSelection.Font.Name = “SimHei” ‘Add the text from the text box to Word. objSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.Text objSelection.TypeParagraph() objSelection.Font.Name = “SimSun” End If objSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.Text ‘Add a line break. objSelection.TypeText vbCrLf Next Next ‘Close this PowerPoint file. pptSelection.Close ‘Save the Word file. objDoc.SaveAs("c:\" & objFile.FileName & ".doc") ‘If you don’t need to close Word, delete the line below. objDoc.close ‘If you don’t want a message box to appear, delete the line below. MsgBox "The converted Word document has been saved at c:\" & objFile.FileName & ".doc" Else ‘No PPT file found. MsgBox "Error: No PPT file found in c:\!" " End If Next pptApp.quit Place the PPT document you want to convert in the root directory of C:\, double-click the .vbs program we just created; a dialog box will appear, and click “OK”. 　　Wait a moment afterward (the waiting time may vary depending on the size of the PPT file). An already generated Word document will open automatically. Well, what do you see? The conversion is complete; the following dialog box appears, and after clicking OK, the process is finished. 　　This program does not require installation; it can be run directly, and its file size is small. It is best to close the previously open Word and PowerPoint programs before making the conversion. 　　Since the text order in the Word document generated by this program is not formatted, the user needs to adjust it manually. But this has already allowed us to achieve twice the result with half the effort.

Didn’t see the option “skip images, tables, etc. automatically” in your post under ls? My problem is that I’m interested in pictures and tables; if I ignore them, it’s all in vain :L

The methods are all for extracting text. Is there any good way to extract not only text but also images and tables at the same time?