Полная версия этой страницы: Исходники.
Мне проще всего изучать ВБ на основе примеров. У меня скопилась неплохая коллекция исходников. Думую и другим они пригодятся. Есть желающие поделится своими? Делайте заказы, я вылажу.
А какие у тебя есть исходники я начинающий подились 
Цитата(Дядя boy @ 26:02:2008, 22:04 ) 
А какие у тебя есть исходники я начинающий подились
а нет исходника по работе с базами данных, в чатсности Access( .mdb), только начал изучать БД, интерисуют такие простые вещи, как отображение всех таблиц, выбор нужной и редактирование записей, ну вообще любые примерчики для начинающего если есть, заранее благодарю
Исходники сортировки и поиска в базе данных(База данных сделана с помощью Microsoft Access и вставлена в прогу сделаную с помощью Вижуал бейсик)
Предлагаю свой исходник макроса для MS Word.
Предистория:
при написании курсовой (диплома) появляется необходимость вставлять куски текста из других документов - PDF файлов, интернет страничек, и часто получается так, что текст получается разбитым на лишние абзацы (¶ - где нужно и не нужно).
Нужно: привести текст в норму.
Результат достигается так:
1. выделяем нужный текст
2. запускаем макрос и готово.
пользуйтесь на здоровье
Предистория:
при написании курсовой (диплома) появляется необходимость вставлять куски текста из других документов - PDF файлов, интернет страничек, и часто получается так, что текст получается разбитым на лишние абзацы (¶ - где нужно и не нужно).
Нужно: привести текст в норму.
Результат достигается так:
1. выделяем нужный текст
2. запускаем макрос и готово.
Код
Sub FixText()
'
' оптимизация выделенного текста
' Макрос записан 01.06.2008 HETMAN ( post . box @ tut . by )
'
Dim stext$, ff%, ss$
stext = Selection.Text ' заносим выделенный текст в переменную
ff = 1
Do While InStr(1, stext, " ", vbTextCompare) <> 0 'очищаем от лишних пробелов
stext = Replace$(stext, " ", " ")
Loop
stext = Replace$(stext, vbCr & vbCr, vbCr) 'очищаем от лишних пустых строк¶
stext = Replace$(stext, vbCr & " ", vbCr) 'ещё одна очистка
Do While ff <> 0
' ищим знак конца абзаца - ¶
ff = InStr(ff, stext, vbCr, vbTextCompare)
If ff <> 0 Then 'если нашли
ss = Mid$(stext, ff + 1, 1) ' заносим последующий сивол в переменную
If ss <> UCase$(ss) Or ss = "(" Or ss = "«" Or ss = "[" Then ' провераяем является ли это концом абзаца
stext = Left$(stext, ff - 1) & " " & Mid$(stext, ff + 1, Len(stext) - ff - 1)
Else
End If
If ss = "-" Then ' провераяем является ли это концом абзаца
stext = Left$(stext, ff - 1) & Mid$(stext, ff + 1, Len(stext) - ff - 1)
Else
ff = ff + 1
End If
End If
Loop
' заменяем выделенный текст обработанным
Selection.Delete
Selection.InsertAfter (stext)
End Sub
'
' оптимизация выделенного текста
' Макрос записан 01.06.2008 HETMAN ( post . box @ tut . by )
'
Dim stext$, ff%, ss$
stext = Selection.Text ' заносим выделенный текст в переменную
ff = 1
Do While InStr(1, stext, " ", vbTextCompare) <> 0 'очищаем от лишних пробелов
stext = Replace$(stext, " ", " ")
Loop
stext = Replace$(stext, vbCr & vbCr, vbCr) 'очищаем от лишних пустых строк¶
stext = Replace$(stext, vbCr & " ", vbCr) 'ещё одна очистка
Do While ff <> 0
' ищим знак конца абзаца - ¶
ff = InStr(ff, stext, vbCr, vbTextCompare)
If ff <> 0 Then 'если нашли
ss = Mid$(stext, ff + 1, 1) ' заносим последующий сивол в переменную
If ss <> UCase$(ss) Or ss = "(" Or ss = "«" Or ss = "[" Then ' провераяем является ли это концом абзаца
stext = Left$(stext, ff - 1) & " " & Mid$(stext, ff + 1, Len(stext) - ff - 1)
Else
End If
If ss = "-" Then ' провераяем является ли это концом абзаца
stext = Left$(stext, ff - 1) & Mid$(stext, ff + 1, Len(stext) - ff - 1)
Else
ff = ff + 1
End If
End If
Loop
' заменяем выделенный текст обработанным
Selection.Delete
Selection.InsertAfter (stext)
End Sub
пользуйтесь на здоровье
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.