Малоизвестные факты из жизни людей:
Сайт Ейского Морского Агентства ИНФЛОТ. Здесь работают мои друзья, которым можно доверить любые грузы!
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. Любимым напитком ярого антиамериканиста Бен-Ладена была пепси-кола.
Dim Current As Long
Current = Timer * 1000
Do Until (Timer * 1000) - Current > 100
DoEvents
Loop
End Sub
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
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
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
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
