��CATIA VBA(VBS)�Ķ����_�l(f��)�У�ҕ�D�е������ı������Ա�DrawingView��е�DrawingTexts�ı�����v������ʹ��Item��������(sh��)�������@ȡָ�����ı�
����:
Dim MyView As DrawingView
����Set MyView=MySheet.Views.ActiveView
����Dim ThisDrawingText As DrawingText
����Set ThisDrawingText=MyView.Texts.Item(2)
#ʹ��Item�@ȡDrawingText�ͨ�^ԓ��е�text���ԫ@ȡ�ı��ַ���
��߀����ͨ�^VBA(VBS)��For Each�Z����v�ı���
����
����MyView�е�ÿ���ı�����ҕ�D�Ы@���ı��������ı�����ͨ�^ʹ��VBA����Q����(sh��)���޸��ı�����Replace����(sh��)��ʹ���Z����
Replace(expression��find��Replace��[start��[count��[compare]])����:
expression��Ҫ���ĵ��ַ�����find�����Ҫ��Q���ַ�����Replace�DZ���Q���ַ������@��������(sh��)�DZ���ģ������������(sh��)�ǿ��x����Start��Ҫ���������صı��_ʽ���ַ�������ʼλ�������ʡ����ԓֵ��1��Count�Lj�(zh��)�����ַ�����Q�ĴΔ�(sh��)�����ʡ����Ĭ�Jֵ��-1���@��ζ���M�����п��ܵ���Q��Compare��ʾӋ�����ַ����rʹ�õı��^��͵Ĕ�(sh��)ֵ�����O�õ�ֵ���京�x����:
���δָ��start��count��Replace������Q��������ַ��������ָ����start��count���t������Q��start��countָ�����Ӵ���
ʾ��:��v����ҕ�D�е������ı��ַ����������ı��е�����AAA��Q��BBB�����a������
Set View=CATIA.ActiveDocument.Sheets.ActiveSheet.Views.ActiveView
����For Each Text In View.Texts
����Text.Text=Replace(Text.Text,��AAA��,��BBB��)
����Next