调用测试程序，打开某个指定文件夹里面所有“*.*”格式的文件，执行某些可控操作，然后存盘。 　　SubtestCases() 　　'打开一个文件夹(包括子文件夹)中的所有doc文件，执行相同的操作。 　　'吴增念测试脚本。 　　DimstrPathAsString 　　DimstrFileNameAsString 　　DimdocOutlineAsDocument 　　DimstrFileNames()AsString 　　DimlFileNamesAsLong 　　'获取文件夹路径 　　str