word VBA加速

 

操作文件前先做:

 

    Application.ScreenUpdating = False

    Application.DisplayStatusBar = True

    Application.Options.Pagination = False

 

           …

   

    Set doc = Documents.Add