Ворд ВБА макрои - ТектБок: додавање, брисање, писање

Додајте ТектБок

Овај макро ће додати ТектБок у активни Ворд документ:

Суб АддТектБок () АцтивеДоцумент.Схапес.АддТектБок Оријентација: = мсоТектОриентатионХоризонтално, Лево: = 1, Врх: = 1, Ширина: = 300, Висина: = 100 Крај Суб

Избришите ТектБок

Овај ВБА макро ће избрисати први ТектБок у активном документу:

Суб ДелетеТектБок () 'брише прво текстуално поље у ацтиведоц -у' није једноставно јер није лако идентификовати поља за текст Дим оСхапе Ас Схапе Иф АцтивеДоцумент.Схапес.Цоунт> 0 Тхен За сваки оСхапе у АцтивеДоцумент.Схапес Иф оСхапе.АутоСхапеТипе = мсоСхапеРецтанг Затим морамо да проверимо да ли је оСхапе типа мсоСхапеРецтангле и да ли њен текстуални оквир садржи место за писање Иф оСхапе.ТектФраме.ХасТект = Труе Онда оСхапе.Делете Енд Иф Енд Иф Нект оСхапе Енд Иф Енд Суб

Пишите у ТектБок

Овај Ворд макро користи сличну методологију за писање у први ТектБок у активном документу:

Суб ВритеИнТектБок () 'уписује у прво текстуално поље у активном документу Дим оСхапе Ас Схапе Иф АцтивеДоцумент.Схапес.Цоунт> 0 Затим за сваку оСхапе у АцтивеДоцумент.Схапес Иф оСхапе.АутоСхапеТипе = мсоСхапеРецтангле Затим' морамо да проверимо да ли је оСхапе откуцајте мсоСхапеРецтангле и његов текстуални оквир садржи место за писање Иф оСхапе.ТектФраме.ХасТект = Труе Тхен оСхапе.ТектФраме.ТектРанге.ИнсертАфтер "хттпс://ввв.аутоматеекцел.цом/вба-цоде-либрари" Екит Фор 'ми само желимо да напишемо у прво оквир за текст Енд Иф Енд Иф Нект оСхапе Енд Енд Енд Енд Суб
wave wave wave wave wave