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