[Мистер-Х]

Любите книгу, источник знаний.

Название: Microsoft Visual Basic 6.0. Мастерская разработчика
Автор: Джон Кларк Крейг, Джефф Уэбб
Издательство: Русская Редакция
Год: 2001 г.
Страниц: 720 стр.
Формат: djvu
Размер: 6.7 Mb
ISBN: 1-57231-883-X,5-7502-0127-9
Качество: Ниже среднего
Язык: русский
Книга состоит из 3 частей (34 главы) и предметного указателя. Написанная живо и доходчиво, она позволит освоить множество полезных приемов программирования, в том числе объектно-ориентированного, и научит, как создавать 32-разрядные приложения для Windows 95/98 и Windows NT — от экранных заставок до программ, ориентированных на Интернет. Кроме того, Вы узнаете, как расширить возможности языка за счет функций Win32 API и воспользоваться преимуществами технологии ActiveX.

Книга предназначена всем программистам, которые имеют базовые знания по элементам языка Visual Basic, желают изучить Visual Basic версии 6.0 и стремятся повысить квалификацию. Она в полной мере оправдывает свое название — это действительно «мастерская разработчика».

[PMR]

Не получается написать скрипт на Visual Basic в Word, чтобы все жирные символы и слова обрамлялись тегом </br>
Пример:
Исходная строка: Слово1 Слово2 Слово3.
Результат: строка: Слово1 </br>Слово2</br> Сл</br>ов</br>о3.

Еще не могу найти примеры с myRange.move, как он работает.

[PMR]

Если по словам делать проход, то не понимаю, в чем ошибка *((((
Если я как-то модифицирую значение "Слово", то цикл For Each не переходит на следующее слово ((

Sub Макрос1()

Debug.Print ActiveDocument.ComputeStatistics(0)
Dim tmpstr As String

Dim Слово As Word.Range
For Each Слово In ActiveDocument.Words

If Слово.Font.Size = 14 Then
Слово.Text = "<b>" & Слово & "</b>"

End If
Next Слово

End Sub

Получается цикл и такой результат"<b><</b>b>1111111111111</b>"
Потом
"<b><</b>b><</b>b><</b>b><</b>b><</b>b>1111111111111</b>"

[PMR]

Кто в теме висуал бэйсика?
cyberforum.ru/vba/thread1853936.html#post9785329