Технологии

Что такое технологии Веб 2.0?
Blogger (Блогер) – сервис блогов, предоставляет возможность неопытным пользователям Интернета создавать блоги без программи- рования, установки и настройки программного обеспечения. Созданный блог может находиться как на сервере Блогера (с собственным доменным именем пользователя), так и на хостинге создателя блога. Собственник сервиса Blogger – компания Google.

RuTube (Рутуб) – хостинг для видео, основным контентом которого являются видеоролики, снятые и загруженные зарегистрированными пользователями, имеющими на сервисе свой аккаунт. RuTube предо- ставляет возможность просмотра, прослушивания и присоединения к онлайн-программам радио и телевидения. Рейтинги, конкурсы и комментарии пользователей.

Liveinternet (ЛайвИнтернет) – крупнейшая блог-платформа. Личные дневники, общение между блогами, подписка на обновления, изображения, фотоальбомы, комментарии, голосования, RSS-каналы, лента друзей, тематические сообщества, навигация между дневниками и сообщениями, календари, цитатники, выборки по интересам и городам, видео и аудио, форумы, знакомства.

Дневники, Дайри (Diary.ru) – популярный сервис с сотнями тысяч дневников. Пользователи ведут свои дневники и читают чужие, обща- ются друг с другом. @Дневники – это система онлайновых дневников – персональных разделов, в которых любой человек может вести за-писи о себе, своей жизни и многом другом. Содержание дневников не модерируется администрацией сервиса.

Количество абзацев в этом документе - 6.

Алгоритм выполнения задания:

1. Объявить переменные:

a) k — переменная для подсчета количества абзацев в документе;

b) Text — переменная для формирования текста-ответа о количестве абзацев;

c) ZAGOLOVOK — переменная, которая определит область для вывода заголовка.

2. Определить количество абзацев с помощью метода Count объекта Paragraphs.

3. Сформировать текст вывода сообщения.

4. Вставить дополнительный абзац после последнего абзаца документа для вывода сообщения.

5. Вывести текст-сообщение в подготовленный абзац.

6. Сформировать область для вывода заголовка “Протоколы”.

7. Вывести название “Протоколы”.

8. Установить шрифт и размер заголовка.

Private Sub CommandButton1_Click()

Dim k As Integer

Dim Text As String

Dim ZAGOLOVOK As Range

Dim REZULTAT As Range

k = ActiveDocument.Paragraphs.Count

Text = "Количество абзацев в этом документе - " & k & "."

ActiveDocument.Paragraphs(k).Range.InsertParagraphAfter

ActiveDocument.Paragraphs(k + 1).Range.InsertBefore Text

Set REZULTAT = ActiveDocument.Paragraphs(k + 1).Range

With REZULTAT

.Font.Name = "Arial"

.Font.Size = 14

.Font.ColorIndex = wdDarkRed

End With

Set ZAGOLOVOK = ActiveDocument.Range(Start:=0, End:=0)

With ZAGOLOVOK

.InsertBefore "Технологии"

.Font.Name = "Arial"

.Font.Size = 24

.InsertParagraphAfter

End With

End Sub