|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.04.2011, 22:50 | #1 |
Новичок
Джуниор
Регистрация: 11.04.2011
Сообщений: 2
|
Макрос в MO Word
Всем добрый вечер! Я студент 1 курса, преподаватель по философии, задал написать макрос в MO Word (2003 или 2007). Ну, точнее не мне а нам с напарником...
Макрос должен проверить текст на критерии преподавателя, поразмыслив мы пришли к выводу, что в макросе надо реализовать следующее: 1) проверить шрифт текста, если он не соответствует Times New Roman, то вы дать сообщение - "Шрифт текста не соответствует!" 2) подсчитать кол-во страниц, если страниц меньше 6 то выдать сообщение - "Страниц меньше 6!" 3) Проверить наличия в тексте следующих строк "Список Литературы", "Оглавление"; Если таковых нет, выдать соответствующее сообщение. P.S: На 1 курсе мы изучаем паскаль, бейсик на нашей специальности изучаться не будет , язык бейсик мы не знаем, но примерный код есть на паскале: begin ... If (шрифт) <> (шрифт - Times New Roman) then writeln('Шрифт текста не соответствует '); If (Кол-во страниц) < 6 then writeln(' Страниц меньше 6'); If not (Спис. лит-ры) then writeln(' Нет сп. лит.!'); {Поиск Спис. лит.} If not (Оглавление) then writeln(' Нет оглавл.!'); {Поиск оглавл.} ... end. Макрос должен использовать оператор if..then Простите если, что то не так изложил. Надеюсь на вашу помощь! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос замены в word | Foma-78 | Microsoft Office Word | 3 | 19.06.2012 05:33 |
Макрос для Word | Squash | Помощь студентам | 1 | 28.03.2011 21:00 |
Макрос в Microsoft Word 2010 | Евгений581 | Microsoft Office Word | 3 | 02.10.2010 21:38 |
В Word на VBA сделать макрос | Генерал_Касетр | Фриланс | 4 | 15.06.2009 17:38 |
Макрос в Word | Mictiann | Microsoft Office Word | 1 | 12.09.2007 09:35 |