Python：在應用程序關閉時暫停for循環

Question

我有一個腳本，我想批量編輯PowerPoint文件。如果我一個一個編輯文件，它會很好。如果我批量編輯它們，它會失敗。我認爲這是因爲在下一個文件嘗試加載之前應用程序沒有關閉，但是我可能並且很可能是錯誤的。

代碼：

import win32com.client, sys, glob 


folder = (glob.glob('*.ppt')) 

print("="*20) 
print(folder) 
print("="*20) 

if folder: 
    for files in folder: 
     print("Current File: " + files) 
     try: 
      Application = win32com.client.Dispatch("PowerPoint.Application") 
      Application.Visible = True 
      Presentation = Application.Presentations.Open("c:/pptpy/testfolder/" + files) 
      for Slide in Presentation.Slides: 
       for Shape in Slide.Shapes: 
        try: 
         Shape.TextFrame.TextRange.Font.Name = "Arial" 
         Shape.TextFrame.TextRange.Font.Size = "14" 
         Shape.TextFrame.TextRange.Font.Color.RGB = "000000" 
        except: 
         pass 
      Presentation.Save() 
      Application.Quit() 
       #Adding a time.sleep(1) here pauses the Application.Quit() 
     except: 
      print("Error in: " + files) 
      pass 

錯誤（在不及格的例外）：

Traceback (most recent call last): 
    File "C:\pptpy\testfolder\convert.py", line 19, in <module> 
    for Shape in Slide.Shapes: 
    File "C:\Python33\lib\site-packages\win32com\client\dynamic.py", line 247, in __getitem__ 
    return self._get_good_object_(self._enum_.__getitem__(index)) 
    File "C:\Python33\lib\site-packages\win32com\client\util.py", line 37, in __getitem__ 
    return self.__GetIndex(index) 
    File "C:\Python33\lib\site-packages\win32com\client\util.py", line 53, in __GetIndex 
    result = self._oleobj_.Next(1) 
pywintypes.com_error: (-2147023174, 'The RPC server is unavailable.', None, None) 

詳情：

Python3.3

Powerpoint2007

如果您需要更多詳情，我會很高興爲您提供！ 謝謝！

Answer 1

嘗試類似的東西（建立在以前的question）。你真的應該投資時間設計你的代碼你問這樣的問題之前：

import win32com.client 
import sys # <- obsolete not used 
import os 
import glob # style guide one import per line 


Application = win32com.client.Dispatch("PowerPoint.Application") 
Application.Visible = True 

ppt_files = glob.glob('*.ppt') 

for file in ppt_files: 
    file = os.path.abspath(file) 
    Presentation = Application.Presentations.Open(file) 
    for Slide in Presentation.Slides: 
     for Shape in Slide.Shapes: 
      try: 
       Shape.TextFrame.TextRange.Font.Name = "Arial" 
       Shape.TextFrame.TextRange.Font.Size = "12" 
       Shape.TextFrame.TextRange.Font.Color.RGB = "000000" 
      except: 
       pass 
    Presentation.Save() 
    Presentation.Close() 

Application.Quit()