VBS典型好用的测试脚本 软件测试
调用测试程序，打开某个指定文件夹里面所有“*.*”格式的文件，执行某些可控操作，然后存盘。
Sub testCases()
'打开一个文件夹(包括子文件夹)中的所有doc文件，执行相同的操作。
'吴增念 测试脚本。
Dim strPath As String
Dim strFileName As String
Dim docOutline As Document
Dim strFileNames() As String
Dim lFileNames As Long
'获取文件夹路径
strPath = ActiveDocument.Path '(也可以指定文件夹路径 strPath = "c:\testCase" )
'call 下面一段函数。(路径、后缀、文件名)
lFileNames = TreeSearch(strPath, "*.doc", strFileNames())
'从第2个文件开始执行操作
For idx = 2 To lFileNames
'/////////////////////////////////////////////////////////////////
'打开指定文件名
strFileName = strFileNames(idx)
If Len(strFileName) Then
Set docOutline = Application.Documents.Open(strFileName)
'to do
'关闭执行后的文件，不保存。(保存：wdPromptToSaveChanges ; 取消：wdSaveChanges)
ActiveWindow.View.Type = wdWebView
Selection.Orientation = wdTextOrientationVerticalFarEast
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:=6, DefaultTableBehavior.:=wdWord9TableBehavior, AutoFitBehavior.:=wdAutoFitFixed
ActiveDocument.Shapes.Range(1).Select
文章来源于领测软件测试网 https://www.ltesting.net/
