Форум Приднестровья, форум ПМР

Форум Приднестровья, форум ПМР (http://forum-pmr.net/index.php)
-   Программисты и компьютеры в ПМР (http://forum-pmr.net/forumdisplay.php?f=16)
-   -   Microsoft Visual Basic 6.0. Мастерская разработчика (http://forum-pmr.net/showthread.php?t=2008)

Мистер-Х 13.11.2008 10:09

Microsoft Visual Basic 6.0. Мастерская разработчика
 
Любите книгу, источник знаний.

Название: 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 04.10.2016 10:33

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

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

PMR 06.10.2016 13:47

Если по словам делать проход, то не понимаю, в чем ошибка *((((
Если я как-то модифицирую значение "Слово", то цикл 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 18.11.2016 14:18

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


Текущее время: 11:15. Часовой пояс GMT +2.

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot