Visio のアクティブドキュメントの全角英数を半角にする

ToHankakuChar.VBA

Sub アクティブドキュメントの全角英数を半角にする()
    
    Dim vsoPage As Visio.Page
    Dim vsoShape As Visio.Shape
    Dim vsoChar As Visio.Characters
    Dim c As Integer
   
    For Each vsoPage In Application.ActiveDocument.Pages
        
        For Each vsoShape In vsoPage.Shapes
        
            Set vsoChar = vsoShape.Characters
            
            For i = 1 To vsoChar.CharCount
                        
                vsoChar.Begin = i - 1
                vsoChar.End = i
                
                c = AscW(vsoChar.Text)
                If (&HFF01 <= c And c <= &HFF5E) Then   ' 全角形の範囲
                    vsoChar.Text = StrConv(vsoChar.Text, vbNarrow)  '半角変換
                End If
            
            Next
        Next
    Next
 
End Sub