Страница 1 из 8 12345 ... ПоследняяПоследняя
Показано с 1 по 10 из 72

Тема: Новая тема рекорцмен: Пишем макрос.

  1. #1
    Senior Member Аватар для Neutron
    Регистрация
    28.05.2008
    Сообщений
    688

    Новая тема рекорцмен: Пишем макрос.

    Предлагаю написание макроса для Ms Word. (единый и всеобщий)
    Каждый будет добавлять на его взгляд нужные функции (програмный код). (Посмотрим что получиться?)
    Использовать будем VBA (для Word-а)
    Начнем:
    Создаем приветствие нашей программы:

    Пример:
    msgbox("Привет!")

    ' Мало но для начала хватит. (Продолжаем: )


  2. #2
    Активный пользователь Аватар для Sandro
    Регистрация
    14.06.2008
    Сообщений
    2,811

    Re: Новая тема рекорцмен: Пишем макрос.

    Ога.. Потом если это все запустить... Жесть...

    Тока к сожалению я в Visual Basic практически ничо не знаю..
    Мне подавайте С++ или, в крайнем случае, Паскаль.
    Don't read the warnings, go straight and start to fly.

  3. #3
    Активный пользователь Аватар для Sandro
    Регистрация
    14.06.2008
    Сообщений
    2,811

    Re: Новая тема рекорцмен: Пишем макрос.

    Разве что можно сразу чтоб не мучацца
    ActiveDocument.Close
    Don't read the warnings, go straight and start to fly.

  4. #4
    Senior Member Аватар для Neutron
    Регистрация
    28.05.2008
    Сообщений
    688

    Re: Новая тема рекорцмен: Пишем макрос.

    Цитата Сообщение от Sandro
    Разве что можно сразу чтоб не мучацца
    ActiveDocument.Close
    Ну что программа уже здаровается и почти крощается.
    Добавимеще:
    Inputbox("Введите свое имя")

  5. #5
    Активный пользователь Аватар для Sandro
    Регистрация
    14.06.2008
    Сообщений
    2,811

    Re: Новая тема рекорцмен: Пишем макрос.

    Блин, я тут с вами так в дополнение к С++ и паскалю еще и VB выучу :D

    Полный листинг первого макроса

    Sub main()

    Dim Name As String
    MsgBox ("Привет!")
    Name = InputBox("Введите Ваше имя")
    MsgBox ("До свидания, " + Name)
    ActiveDocument.Close

    End Sub
    Don't read the warnings, go straight and start to fly.

  6. #6
    Senior Member Аватар для Neutron
    Регистрация
    28.05.2008
    Сообщений
    688

    Re: Новая тема рекорцмен: Пишем макрос.

    Цитата Сообщение от Sandro
    Блин, я тут с вами так в дополнение к С++ и паскалю еще и VB выучу :D

    Что его учить все эллементарно. (его плюс в том, что он есть на каждомкомпе у кого есть оффис)

  7. #7
    Активный пользователь Аватар для Sandro
    Регистрация
    14.06.2008
    Сообщений
    2,811

    Re: Новая тема рекорцмен: Пишем макрос.

    Цитата Сообщение от Neutron
    Что его учить все эллементарно. (его плюс в том, что он есть на каждомкомпе у кого есть оффис)
    ну дык конечно элементарно... ведь С++ я то уже хорошо знаю...
    Что следущее будем писать?
    Don't read the warnings, go straight and start to fly.

  8. #8
    Senior Member Аватар для Neutron
    Регистрация
    28.05.2008
    Сообщений
    688

    Re: Новая тема рекорцмен: Пишем макрос.

    Так прикольнее:
    При вводе имя Вася бедет выводить сообщение.
    Sub main()

    Dim Name As String
    MsgBox ("Привет!")
    Name = InputBox("Введите Ваше имя")
    if Name=("Вася") then MsgBox ("До свидания, " + Name)
    ActiveDocument.Close

    End Sub

  9. #9
    Активный пользователь Аватар для Sandro
    Регистрация
    14.06.2008
    Сообщений
    2,811

    Re: Новая тема рекорцмен: Пишем макрос.

    Цитата Сообщение от Neutron
    Так прикольнее:
    Понятное дело...
    Может еще запрос пароля добавить?
    Don't read the warnings, go straight and start to fly.

  10. #10
    Senior Member Аватар для Neutron
    Регистрация
    28.05.2008
    Сообщений
    688

    Re: Новая тема рекорцмен: Пишем макрос.

    Цитата Сообщение от Sandro

    Что следущее будем писать?
    Предлагаю сейчас приглашение и досвидание написать. Далее сделать загрузку миди формы и в ней менюшку (а там можно и внутренних форм накидать с разными опсциями.)

Похожие темы

  1. Тема
    от Владилена в разделе Культура и искусство
    Ответов: 16
    Последнее сообщение: 23.03.2008, 16:43
  2. Новая тема от Пепси - Стань звездой
    от ac2on в разделе Просто общение
    Ответов: 1
    Последнее сообщение: 12.03.2008, 20:06
  3. Тема))
    от Slast`ona в разделе Просто общение
    Ответов: 55
    Последнее сообщение: 06.01.2008, 21:37
  4. Тема про урелов
    от Tassadar в разделе Юмор
    Ответов: 0
    Последнее сообщение: 02.11.2007, 19:01
  5. -=Пузырьковая тема=-
    от Magnattt в разделе Просто общение
    Ответов: 17
    Последнее сообщение: 11.09.2007, 11:07

Рекомендуем

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •  

SEO by vBSEO

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94