|
|
 Малоизвестные факты из жизни людей: Сайт Ейского Морского Агентства ИНФЛОТ. Здесь работают мои друзья, которым можно доверить любые грузы!  10. Самая маленькая модель вертолета: В 1996 г. в Институте микротехники немецкого города Майнц был изготовлен вертолет длиной 24 мм, ) высотой 8 мм и диаметром несущего винта 13 мм. 9. Самая маленькая модель самолета: Самый миниатюрный самолет весом 0,1 г сделал Дон Эммик из Сиэтла, США. Роль двигателя в этом мини-самолете выполнял обычный слепень. 8. Самая тонкая кисточка: Кисточка № 000 из серии 7 сделана из 150 волосков соболя и весит всего 15 мг. 7. Hазвание обряда ритуального вспарывания живота у японцев называется "сеппуку". Слово "харакири" также оскорбительно для японского уха, как для русского православного священника неприятным считается слово "поп".6. В Hеаполе жил мальчик, которому очень хотелось стать певцом. Hо первый учитель пения счел его безголосым и наотрез отказался учить. Мальчик долго плакал, мать всячески его утешала и уверяла, что он будет великим певцом. Скопив немного денег, она привела сына к другому учителю. Похвала и поддержка матери оказались решающей силой. Этим мальчиком был Энрико Карузо. 5. Ежегодно человечество съедает 5 млн. тонн грибов. Из них только 600 тысяч тонн собираются в лесах. Остальные выращиваются искусственно. 4. Штриховое кодирование было изобретено Давидом Коллинзом. После окончания в 50-х годах инженерного факультета Массачусетского технологического института, он поступил работать на Пенсильванскую железную дорогу, где ему пришлось столкнуться с кропотливой, приносящей мало радости работой - сортировкой вагонов. Тогда пришла идея освещать номера вагонов прожекторами и считывать их с помощью фотоэлементов. Чтобы упростить распознавание, инженер-изобретатель предложил записывать номера не только обычными цифрами, но и специальным кодом, состоящим из красных и синих полос, расположенных на стенке вагона в прямоугольнике длиной до полуметра. 3. Заинтриговать даму заявлением, что вы - миллионер, легче всего в Турции. Для обладания миллионом турецких лир нужно всего лишь 24 рубля. 2. В начале 20-го века беременным женщинам, чтобы не полнеть, врачи советовали курить. 1. Любимым напитком ярого антиамериканиста Бен-Ладена была пепси-кола. 0. Организовать паузу в работе программы VBA поможет маленькая подпрограмма:
Sub Pause()
Dim Current As Long Current = Timer * 1000 Do Until (Timer * 1000) - Current > 100 DoEvents Loop End Sub -1. Что бы при открытии пустой страницы документа Ворд сам собой начал печататься нужный Вам текст, нажмите одновременно две клавиши Alt и F11, а затем в появившемся окне наберите такую программу (разумеется предыдущую программу тоже надо набрать, что бы были микропаузы после появления очередной буквы текста). Если не набирать предыдущую программу, а в этом фрагменте удалить две строчки со словом Pause, то нужный Вам текст появится мгновенно без эффекта "пишущей машинки":
Private Sub document_open()
Selection.Font.Color = 6700000 a$ = "Нужный Вам текст" Selection.Font.Size = 18 For i = 1 To Len(a$) Selection.TypeText Text:=Mid(a$, i, 1) Pause Pause Next i End Sub -2. А чтобы нарисовалось два ряда разноцветных цветочков, наберите программу:
Private Sub document_open()
For k = 0 To 1 Selection.Font.Size = 58 Selection.InsertSymbol Font:="MS Mincho", CharacterNumber:=10039 + k, Unicode _ :=True For i = 2 To 6 Selection.Font.Color = 200000 + i * (k + 1) * 1300000 For j = 0 To 10 Selection.Font.Size = 8 + j * 5 Selection.InsertSymbol Font:="MS Mincho", CharacterNumber:=10039 + i * (k + 1), Unicode _ :=True Pause If j < 10 Then Selection.TypeBackspace Next If k = 0 And i = 6 Then Selection.TypeParagraph Next Next End Sub -3. А чтобы создался новый файл на компьютере, наберите программу:
Private Sub document_open()
Open "e:\Самовольно записанный файл.txt" For Output As #1
Print #1, "Это просто текст, записанный в безобидный файл..." Close #1 'Закрыть файл End Sub -4 Код макроса, который записывает прописью число (до миллиарда): Sub Число_прописью_6() 'программа записи выделенного числа прописью по формуле { =123\*cardtext } Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Copy 'копирование числа Selection.MoveRight Unit:=wdCharacter, Count:=1 'переход вправо на 1 позицию (снятие выделения) Selection.TypeText Text:=" () " 'запись Числа и скобок Selection.MoveLeft Unit:=wdCharacter, Count:=2 'переход на 2 позиции назад (курсор в скобки) Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False 'создания поля в скобках Selection.TypeText Text:="=\*" 'запись в поле символов "равно", "разделить" и "умножить" Application.Keyboard (1033) 'переход на английскую клавиатуру Selection.TypeText Text:="cardtext" 'запись слова cardtext Application.Keyboard (1049) 'переход на русскую клавиатуру Selection.MoveLeft Unit:=wdCharacter, Count:=10 'переход на 10 позиций назад (после символа "равно") Selection.PasteAndFormat (wdFormatOriginalFormatting) 'вставка скопированного числа Selection.Fields.Update 'обновление поля (текст вместо формулы) End Sub -5 Код макроса, который вводит цифрами и записывает прописью число (до миллиарда):
Sub Число_прописью() 'программа записи чисел цифрами и прописью по формуле { =123\*cardtext }
Dim Число As Integer 'объявление целочисленной переменной Число Число = InputBox("Введите целое число", "Число прописью") 'ввод Числа Selection.TypeText Text:=" " & Число & " () " 'запись Числа и скобок Selection.MoveLeft Unit:=wdCharacter, Count:=2 'переход на 2 позиции назад (курсор в скобки) Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False 'создания поля в скобках Selection.TypeText Text:="=\*" 'запись в поле символов "равно", "разделить" и "умножить" Application.Keyboard (1033) 'переход на английскую клавиатуру Selection.TypeText Text:="cardtext" 'запись слова cardtext Application.Keyboard (1049) 'переход на русскую клавиатуру Selection.MoveLeft Unit:=wdCharacter, Count:=10 'переход на 10 позиций назад (после символа "равно") Selection.TypeText Text:=Str(Число) 'запись числа Selection.Fields.Update 'обновление поля (текст вместо формулы) End Sub Очень полезная, на мой взгляд, страница бесплатных онлайн-сервисов на все случаи жизни. Заходя на неё лично я очень люблю путешествовать по самым интересным местам нашей Земли, посещать музеи мира, осматривать древние пирамиды, Ватикан, Лавру, Московский Кремль, современный Париж или Лондон с высоты птичьего полета.
              
|
 © ApxunoB-52 |
