我想将下面的 VBA 代码转换为 VBS,请帮助我!
Dim visDoc As Visio.DocumentDim visio_docDim Save_visio_docDim ObjVisio As ObjectDim pag As Visio.PageDim pagShape As Visio.shapeSet ObjVisio = CreateObject("Visio.application")vSet visDoc = ObjVisio.Documents.Open("C\test.vsdx")For Each pag In visDoc.PagesFor Each pagShape In pag.ShapespagShape.CellsSRC(visSectionObject, visRowText, visTxtBlkLeftMargin).FormulaU = "2 mm"pagShape.CellsSRC(visSectionObject, visRowText, visTxtBlkRightMargin).FormulaU = "2 mm"pagShape.CellsSRC(visSectionObject, visRowText, visTxtBlkTopMargin).FormulaU = "2 mm"pagShape.CellsSRC(visSectionObject, visRowText, visTxtBlkBottomMargin).FormulaU = "2 mm"NextNextVisdoc.SaveVisdoc.Close