Ïåðâûé ìàêðîñ
Ïîïðîáóåì íàïèñàòü íåçàìûñëîâàòûé ìàêðîñ â òåêñòîâîì ðåäàêòîðå Word.
Çàïóñòèòå Word.
Âûáåðèòå "Ñåðâèñ-Ìàêðîñ-Ðåäàêòîð Visual Basic" (Alt+F11).
Ïîìåñòèòå êóðñîð â îêíî ââîäà êîäà ìàêðîñà è ââåäèòå ñëåäóþùèé òåêñò:
Ïåðâàÿ è òðåòüÿ ñòðîêè ýòîãî ìàêðîñà-ïðîöåäóðû ÿâëÿþòñÿ çàãîëîâêîì è îêîí÷àíèåì ïðîöåäóðû, ñîîòâåòñòâåííî. MyMacros - ýòî èìÿ ìàêðîñà, ïîä êîòîðûì îí áóäåò óçíàâàåì ñèñòåìîé. Âòîðàÿ ñòðîêà - ñîäåðæèò ôóíêöèþ âûâîäà äèàëîãîâîãî îêíà ñ òåêñòîì "Ïðîñòîé ìàêðîñ".
Òåïåðü ìîæíî âûïîëíèòü êîíòðîëüíûé çàïóñê ìàêðîñà, íå âûõîäÿ èç Ðåäàêòîðà. Âûáåðèòå êîìàíäó Run | Run Sub/UserForm. Ðåçóëüòàò áóäåò íà ýêðàíå.
Òåïåðü ïîïðîáóéòå çàïóñòèòü ñâîé ìàêðîñ íåïîñðåäñòâåííî èç Word. Äëÿ ýòîãî ïîêèíüòå Visual Basic Editor (Alt+Q). Ïîñëå òîãî, êàê îêàæåòåñü îïÿòü â òåêñòîâîì ðåäàêòîðå Word, âûáåðèòå "Ñåðâèñ-Ìàêðîñ-Ìàêðîñû" (Alt+F8) - ðåçóëüòàò ïîëó÷èòñÿ àíàëîãè÷íûì ïðåäûäóùåìó.
Ïîçäðàâëÿþ, òîëüêî ÷òî âàìè áûë íàïèñàí, ìîæåò áûòü, ïåðâûé â âàøåé æèçíè íàñòîÿùèé ìàêðîñ Word!
