同事小岳有时候需要统计Visio文档的页数,有一次她问我有没有快速统计Visio文档页数的方法。于是就写了一个Visio页数统计小工具,它可以遍历给定目录及其下的所有子目录,把每个Visio文档及其页数显示出来。如下图所示:
代码如下:
Public Class CountVsdForm ''' 统计Visio页数 Private Sub CountVsd() Dim messageContnet = getFileNames() Dim filedir As String = "" If (me[......]
近期评论