Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.59/712: Рейтинг темы: голосов - 712, средняя оценка - 4.59
аналитика
здесь больше нет...
3352 / 1664 / 184
Регистрация: 03.02.2010
Сообщений: 1,219
1

Авторские программы, библиотеки, надстройки и шаблоны

12.02.2010, 17:42. Просмотров 142203. Ответов 179
Метки нет (Все метки)

 Комментарий модератора 
Коллектив модераторов раздела оставляет за собой право использовать данный пост аналитики для размещения и обновления оглавления темы.

Оглавление
- по тематике:

Утилиты


Инструменты программиста

Графические редакторы



Защита программного кода

Офисные операции

Веб-сервис


Игры




- по автору:
A-Z





Конец оглавления

Оригинальное сообщение от аналитики:

Надстройка для VBE "IndenterVBA" - позволяет редактировать стиль оформления программного кода.
27
Вложения
Тип файла: rar IndenterVBA.rar (253.1 Кб, 1586 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2010, 17:42
Ответы с готовыми решениями:

Программы на 1С и авторские права
На форуме много сильных программистов, полагаю, что кто-то пишет и отдельные программы. Интересует...

Поменять авторские права в описании программы
Народ подскажите как поменять авторские права в описании программы, срочно надо. Пож-та

Полезные коды и авторские программы на Lisp
Расскажите, пожалуйста, что на лиспе пишите? вкратце, хотя бы. Очень интересно. Понятно, что...

Где хранятся шаблоны во время выполнения программы?
Где хранятся шаблоны во время выполнения программы? и если у меня если: template<typename T>...

Шаблоны проектирования для смены языка программы.
Требуется создать библиотеку для смены языка пользовательского интерфейса программ. В принципе,...

179
KoGG
5301 / 1372 / 325
Регистрация: 23.12.2010
Сообщений: 2,042
Записей в блоге: 1
03.07.2013, 11:07 41
Надстройка Sparklines - диаграммы в ячейках.
Доработать надстройку Sparklines
1
Dragokas
Эксперт WindowsАвтор FAQ
17095 / 7150 / 861
Регистрация: 25.12.2011
Сообщений: 10,954
Записей в блоге: 16
13.07.2013, 03:22 42
FormFun
Автор: Stephen Bullen & Tim Clem

Класс API-функций для управления стилями формы:
  • Модальность
  • Убрать строку заголовка
  • Видимость формы в панели задач, как отдельного процесса
    (в зависимости от этого параметра форма будет сворачиваться
    либо в угол экрана родительского объекта Excel, либо в панель задач)
  • Смена иконки с выбором источника ICO, либо EXE или DLL в качестве ресурса.
  • Убрать кнопку закрытия формы
  • Добавить кнопку "Развернуть на весь экран"
  • Добавить кнопку "Свернуть"
  • Разрешить изменение размеров формы
  • Сделать строку заголовка узкой = мелкие кнопки
  • Убрать системные кнопки (останется только заголовок).

Оформлено в виде демо-формы

Авторские программы, библиотеки, надстройки и шаблоны

Авторские программы, библиотеки, надстройки и шаблоны



FormFun.zip

---------------------------------
P.S. Там у него, кстати, еще много чего интересного:
http://www.oaltd.co.uk/Excel/Default.htm
http://www.oaltd.co.uk/MVP/Default.htm
3
KoGG
5301 / 1372 / 325
Регистрация: 23.12.2010
Сообщений: 2,042
Записей в блоге: 1
30.07.2013, 14:31 43
Два фрактала на форме, рисование через API.
2
Вложения
Тип файла: zip API_Fractal.zip (19.2 Кб, 184 просмотров)
KoGG
5301 / 1372 / 325
Регистрация: 23.12.2010
Сообщений: 2,042
Записей в блоге: 1
29.08.2013, 17:57 44
Использовать в целях переименовавания музыкальных файлов для воспроизведения в случайном порядке.
Данный макрос переименовывает все файлы в выбранной папке, присоединяя слева к старому имени файла случайный порядковый номер. Если у файла в имени был слева номер, то старый номер удаляется.
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub Rename_PlayFiles()
    Dim oFSO As Object, oFolder As Object, oFile As Object
    Dim i%, j%, MyPath$, FCnt%, Min!, PoTemp!, sTmp$, sL$, sR$, Usl As Boolean
    With Application.FileDialog(msoFileDialogFolderPicker)
        .ButtonName = "Выбрать": .Title = Title: .InitialFileName = "C:\"
        If .Show <> -1 Then Exit Sub
        MyPath = .SelectedItems(1)
    End With
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFSO.GetFolder(MyPath)
    MyPath = MyPath & "\"
    FCnt = oFolder.Files.Count
    ReDim OldNames$(FCnt), NewNames$(FCnt), Poryadok!(FCnt), NewPrefix$(FCnt)
    i = 0
    For Each oFile In oFolder.Files
        i = i + 1
        OldNames(i) = oFile.Name
        sL = Left$(OldNames(i), 5)
        sR = Right$(OldNames(i), Len(OldNames(i)) - 5)
        Usl = True
        If sL Like "[0-9][0-9][0-9][0-9]_" Then
           sL = ""
        ElseIf sL Like "[0-9][0-9][0-9][0-9]?" Then
           sL = Right$(sL, 1)
        ElseIf sL Like "[0-9][0-9][0-9]*" Then
           sL = Right$(sL, 2)
        ElseIf sL Like "[0-9][0-9]*" Then
           sL = Right$(sL, 3)
           Usl = False
        ElseIf sL Like "[0-9]*" Then
           sL = Right$(sL, 4)
           Usl = False
        Else
            Usl = False
        End If
        If Usl Then
            sL = Replace(sL, "_", "")
            sL = Replace(sL, " ", "")
        End If
        NewNames(i) = sL & sR
        Poryadok(i) = Rnd
        NewPrefix(i) = Format$(i, "0000") & "_"
    Next
    Randomize Timer
    For i = 1 To FCnt
        Min = Poryadok(i)
        For j = i + 1 To FCnt
            If Min > Poryadok(j) Then
                PoTemp = Poryadok(i)
                Poryadok(i) = Poryadok(j)
                Poryadok(j) = PoTemp
                sTmp = NewPrefix(i)
                NewPrefix(i) = NewPrefix(j)
                NewPrefix(j) = sTmp
            End If
        Next j
    Next i
    For i = 1 To FCnt
        OldNames(i) = MyPath & OldNames(i)
        NewNames(i) = MyPath & NewPrefix(i) & NewNames(i)
        Name OldNames(i) As NewNames(i)
    Next i
    Set oFolder = Nothing
    Set oFSO = Nothing
End Sub
2
29.08.2013, 17:57
Acros Organics
0 / 0 / 1
Регистрация: 25.02.2013
Сообщений: 33
29.09.2013, 19:30 45
После установки Add-in VB Style Code у меня возник косяк отображения символов внутри скобок. Кто-нибудь сталкивался с подобным?
0
Миниатюры
Авторские программы, библиотеки, надстройки и шаблоны  
Acros Organics
0 / 0 / 1
Регистрация: 25.02.2013
Сообщений: 33
05.10.2013, 20:07 46
Предыдущий вопрос снимаю, т.к. Add-in VB Style Code работает нормально на другом компе.
Буквально пару минут назад решил проблемы копирования из/в компилятора VBA кириллических символов. Возможно кому-то будет полезно. Итак, чтобы корректно копировать кириллицу из VBA необходимо запустить .reg-файл следующего содержания:
Кликните здесь для просмотра всего текста
Код
REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1250"="c_1251.nls"
"1251"="c_1251.nls"
"1252"="c_1251.nls"
"1253"="c_1251.nls"
"1254"="c_1251.nls"
"1255"="c_1251.nls"
"437"="c_866.nls"
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontMapper]
"ARIAL"=dword:000000cc
"DEFAULT"=dword:000000cc
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language]
"Default"="0419"
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes]
"Arial,0"="Arial,204"
"Arial Cyr,0"="Arial,204"
"Comic Sans MS,0"="Comic Sans MS,204"
"Courier,0"="Courier New,204"
"Courier,204"="Courier New,204"
"Courier New Cyr,0"="Courier New,204"
"Fixedsys,0"="Fixedsys,204"
"Helv,0"="MS Sans Serif,204"
"MS Sans Serif,0"="MS Sans Serif,204"
"MS Serif,0"="MS Serif,204"
"Small Fonts,0"="Small Fonts,204"
"Tahoma,0"="Tahoma,204"
"Times New Roman,0"="Times New Roman,204"
"Times New Roman Cyr,0"="Times New Roman,204"
"Tms Rmn,0"="MS Serif,204"
"Verdana,0"="Verdana,204"
"Arial CE,238"="Arial,204"
"Arial CYR,204"="Arial,204"
"Courier New CE,238"="Courier New,204"
"Courier New CYR,204"="Courier New,204"
"Times New Roman CE,238"="Times New Roman,204"
"Times New Roman CYR,204"="Times New Roman,204"
"Times New Roman Cyr,0"="Times New Roman,204"
"System,0"="System,204"
"Fixedsys,0"="Fixedsys,204"
"Small Fonts,0"="Small Fonts,204"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes]
"00000409"="ru"

Чтобы вставить кириллический текст в VBA необходимо, чтобы он был того же шрифта, что стоит там в данный момент (стандартно - Courier New)
0
Kиpилл
Особый статус
Эксперт WindowsВирусоборец
8302 / 1653 / 78
Регистрация: 15.04.2011
Сообщений: 5,399
09.10.2013, 18:47 47
Цитата Сообщение от Acros Organics Посмотреть сообщение
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1250"="c_1251.nls"
"1251"="c_1251.nls"
"1252"="c_1251.nls"
"1253"="c_1251.nls"
"1254"="c_1251.nls"
"1255"="c_1251.nls"
"437"="c_866.nls"
как только понадобится поработать с каким нибудь из исправленных шрифтов то будут проблемы.
Попробуйте лучше так:
Код
"1251"="C_1251.NLS" 
"1252"="C_1251.NLS" 
"866"="C_866.NLS" 
"ACP"="1251" 
"OEMCP"="866" 
"MACCP"="10007" 
"OEMHAL"="vga866.fon" 
@="C_1251.NLS"
Цитата Сообщение от Acros Organics Посмотреть сообщение
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language]
"Default"="0419"
Это
Bash
1
2
3
"Default"="0419"
"InstallLanguage"="0419"
"InstallLanguageFallback"="0419"
последний параметр -multi_sz
1
Ципихович Эндрю
1414 / 324 / 28
Регистрация: 10.04.2009
Сообщений: 5,123
09.10.2013, 18:50 48
Цитата Сообщение от Казанский Посмотреть сообщение
Protect VBA (v.1.6)- программа, которая устанавливает защиту проекта VBA
по моему всё должно быть просто установил программу открыл её, выбрал файл Ворда - установил, я так делаю, но всё мне предлагает Protect - сколько на неё жать??
0
Dragokas
Эксперт WindowsАвтор FAQ
17095 / 7150 / 861
Регистрация: 25.12.2011
Сообщений: 10,954
Записей в блоге: 16
09.10.2013, 23:23 49
Acros Organics, предложенный вами твик реестра для решения проблемы копирования русского текста между приложениями с включенной английской раскладкой клавиатуры является весьма чрезмерным.

Для этого достаточно перенаправить запрос от одного файла - C_1252.nls

Код
REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1252"="c_1251.nls"
Кроме того решение будет работать только на ОС семейства NT, т.е. до Server 2003 включительно.
Чтобы не быть голословным, я это проверял на виртуалках с чистыми системами.

Для ОС Vista, 7, 8 мною был создан патч замены указанного системного файла, не изменяющий прав на него, тем самым не подвергая риску безопасность системы.
Перед началом операции создается контрольная точка системы + старый файл сохраняется под именем C_1252.bak на всякий случай.

Кликните здесь для просмотра всего текста
Bash
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
@set @x=0; /* by Alex Dragokas
@echo off
SetLocal EnableExtensions EnableDelayedExpansion
 
echo Патч замены файла кодировки C_1252.nls
echo для предотвращения неверного отображения русского текста в редакторе VBA/VB.6
echo при копировании в английской раскладке клавиатуры
echo.
echo.
:: Проверка версии ОС
If /i "%PROCESSOR_ARCHITECTURE%"=="x86" (set Core=x32) else (set Core=x64)
set /p "=Версия ОС: %Core% "<nul
ver| find "6." && (
  rem Получаем права Администратора
  if "%1"=="" cscript.exe //nologo //e:jscript "%~f0"& Exit
  echo Права Администратора получены.
)
 
:: Переходим в папку с Batch-файлом
cd /d "%~dp0"
 
echo.
echo Этап резервного копирования.
echo.
 
echo. Создаю контрольную точку восстановления системы
echo.
WMIC /Namespace:\\root\default Path SystemRestore Call CreateRestorePoint "SafeZone.cc", 100, 10
if errorlevel 1 (
  echo Не удалось создать контрольную точку.
) else (
  echo Контрольная точка успешно создана.
)
 
if not exist Backup md Backup
 
:: Резервирование файла C_1252.NLS
if exist Backup\C_1252.bak (
  echo Внимание: резервная копия файла C_1252.NLS была создана ранее.
  set ch=
  set /p "ch=Хотите удалить ее? (Y/N) "
  if /i "!ch!"=="Y" del /q Backup\C_1252.bak
)
echo n|>nul copy /-y "%windir%\system32\C_1252.nls" Backup\C_1252.bak
echo.
echo Резервное копирование завершено.
 
echo.
echo Этап замены файлов кодировок
echo.
 
echo Сохраняю права на NSL-файлы в таблицу ACL
icacls "%windir%\system32\C_1252.NLS" /save "Backup\CodePage.ACL" /C >nul
echo.
echo Изменяю владельца на себя
takeown /f "%windir%\system32\C_1252.NLS" >nul
echo.
echo Получаю полные права
echo y|>nul cacls "%windir%\system32\C_1252.NLS" /e /g "%username%":f
echo.
echo Начат процесс замены файла...
echo.
:: Переименовую *.NLS в *.NLS_, чтобы обойти блокировку доступа к файлам, имеющим открытые дескрипторы
echo Переименование
:: Резервирую файл в системную папку
copy /-Y "%windir%\system32\C_1252.NLS" "%windir%\system32\C_1252.bak"
ren "%windir%\system32\C_1252.NLS" C_1252.NLS_
echo.
echo Замена
copy /y "%windir%\system32\C_1251.NLS" "%windir%\system32\C_1252.NLS" >nul
echo.
echo Переназначаю владельца на исходного - TrustedInstaller
icacls "%windir%\system32\C_1252.NLS" /setowner "NT Service\TrustedInstaller" /C >nul
echo.
echo Восстанавливаю права, исходя из эталонной таблицы ACL
echo.
icacls "%windir%\system32" /restore "Backup\CodePage.ACL" /C >nul
 
:: Удаление переименованого файла NLS после перезагрузки
set key=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx\1
reg add "%key%" /f /v 1 /t REG_SZ /d "cmd /c del /f /q %windir%\system32\C_1252.NLS_"
 
echo.
echo Все операции завершены.
echo.
echo Требуется перезагрузка системы Windows.
set ch=
set /p "ch=Введите Y для продолжения: "
if /i "%ch%"=="Y" shutdown -r -t 1
 
pause& Exit /B
 
*/new ActiveXObject('Shell.Application').ShellExecute (WScript.ScriptFullName,'Admin','','runas',1);
3
Вложения
Тип файла: zip CodePage_file_replacer_1252.nls_Win_Vista_7_8.zip (1.7 Кб, 67 просмотров)
KoGG
5301 / 1372 / 325
Регистрация: 23.12.2010
Сообщений: 2,042
Записей в блоге: 1
11.10.2013, 15:32 50
Цветы и циклоиды в Word + вариация на тему в Excel.
Вдохновленный Sasha_Smirnov -ым и его Телегой-лайт .
8
Миниатюры
Авторские программы, библиотеки, надстройки и шаблоны  
Вложения
Тип файла: doc Цветы.doc (55.0 Кб, 83 просмотров)
Тип файла: doc Цветы_2.doc (62.5 Кб, 44 просмотров)
Тип файла: xls PerpetumMobile.xls (78.0 Кб, 73 просмотров)
KoGG
5301 / 1372 / 325
Регистрация: 23.12.2010
Сообщений: 2,042
Записей в блоге: 1
17.10.2013, 15:15 51
Аэрохоккей.
4
Вложения
Тип файла: xls Аэрохоккей.xls (84.0 Кб, 253 просмотров)
RAVproFFI
33 / 33 / 1
Регистрация: 15.10.2013
Сообщений: 130
30.10.2013, 11:03 52
Отследить бездействие пользователя через VBA
2
KoGG
5301 / 1372 / 325
Регистрация: 23.12.2010
Сообщений: 2,042
Записей в блоге: 1
26.11.2013, 16:11 53
3d анимация американских горок с помощью автофигур.
3
Миниатюры
Авторские программы, библиотеки, надстройки и шаблоны  
Вложения
Тип файла: zip Coaster7_short.zip (1.75 Мб, 249 просмотров)
KoGG
5301 / 1372 / 325
Регистрация: 23.12.2010
Сообщений: 2,042
Записей в блоге: 1
26.11.2013, 16:13 54
3d диаграмма замок.
4
Миниатюры
Авторские программы, библиотеки, надстройки и шаблоны  
Вложения
Тип файла: zip Melting_Snow_Castle.zip (156.5 Кб, 168 просмотров)
влад74
100 / 18 / 0
Регистрация: 02.07.2012
Сообщений: 148
07.02.2014, 13:39 55
Пример универсального обработчика ошибок (автоматически определяет текущий модуль и процедуру)

В результате ошибки в коде появляется сообщение в котором указаны:
1. Название mdb
2. Название Модуля в котором произошла ошибка
3. Название процедуры (Sub/Function) в которой произошла ошибка
4. Название самой ошибки

Когда в работе много mdb это очень удобно.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Указание_номера_строки_ошибки()
Dim i As Long, j As Long
 
On Error GoTo error_handler
 
i = 10
'MsgBox "Деление на ноль!!!"
Debug.Print i \ j
 
exit_statements:
Exit Sub
 
error_handler:
'=========================================================== ===========================
Dim startline As Long, startcolumn As Long, endline As Long, endcolumn As Long
VBE.ActiveCodePane.GetSelection startline, startcolumn, endline, endcolumn
 
MsgBox "МОДУЛЬ " & Chr(13) & VBE.ActiveCodePane.CodeModule.Name & Chr(13) & Chr(13) & "ПРОЦЕДУРА " & Chr(13) & _
VBE.ActiveVBProject.VBComponents(VBE.ActiveCodePane.CodeModu le.Name).CodeModule.ProcOfLine(startline, 0) & Chr(13) & _
Chr(13) & "ОШИБКА " & Chr(13) & Err.Description & "(" & Err.Number & ")", vbCritical, "ПРОЕКТ " & CurrentProject.Name &"
 
Resume exit_statements
'=========================================================== ===========================
End Sub
2
Вождь
216 / 48 / 2
Регистрация: 18.02.2010
Сообщений: 81
07.02.2014, 14:32 56
Цитата Сообщение от влад74 Посмотреть сообщение
...определяет текущий модуль и процедуру...
Ага, только не ошибки, а курсора
0
Dragokas
Эксперт WindowsАвтор FAQ
17095 / 7150 / 861
Регистрация: 25.12.2011
Сообщений: 10,954
Записей в блоге: 16
13.02.2014, 23:13 57
Автоматическое включение/отключение макросов в Office 2000 - 2013 (x32, x64) с помощью батника.

ссылка.
1
Казанский
14904 / 6307 / 1719
Регистрация: 24.09.2011
Сообщений: 9,977
09.03.2014, 01:42 58
MsgBoxEx - MsgBox с таймаутом

Известно, что CreateObject("WScript.Shell").PopUp хорошо работает в скриптах VBS, но в VBA окно часто не закрывается по таймауту. Для использования в VBA написал функцию, которая запускает метод PopUp из скрипта.

Текст модуля с функцией
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Option Explicit
 
Public Function MsgBoxEx(Prompt, Optional Buttons As VbMsgBoxStyle = 0, Optional Title, Optional SecondsToWait = 0) As VbMsgBoxResult
'---------------------------------------------------------------------------------------
' Procedure : MsgBoxEx
' Author    : Казанский, [email]exceleved@yandex.ru[/email]
' Date      : 07.03.2014
' Purpose   : MsgBox with timeout based on WScript.Shell Popup method. Creates .VBS file
'             in temporary folder, runs it, returns result code, deletes the file.
' Arguments : First three are the same as for MsgBox, 4-th is timeout in seconds.
'           : If 4-th arg. is omitted or <=0 then waits for user action infinitely.
' Ret.Value : The same as of Msgbox, -1 if timeout occured.
' Errors    : Raises error 735 if temporary folder can't be found.
'---------------------------------------------------------------------------------------
 
Dim sTmp$, ff%, WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
sTmp = Environ("temp")
If sTmp = "" Then
  sTmp = Environ("tmp")
  If sTmp = "" Then
    sTmp = WshShell.SpecialFolders("MyDocuments")
    If sTmp = "" Then Err.Raise 735 'Can't save file to TEMP directory
  End If
End If
sTmp = sTmp & Format$(Now, """\~MsgBoxEx""YYMMDDHHMMSS"".vbs""")
ff = FreeFile
Open sTmp For Output As ff
 
If IsMissing(Title) Then Title = ""
 
'Popup(<Text>,<SecondsToWait>,<Title>,<Type>)
 
Print #ff, "WScript.Quit CreateObject(""WScript.Shell"").Popup (""" & Str2Code(Prompt) & _
  """, " & Int(SecondsToWait) & ", """ & Str2Code(Title) & """, " & Int(Buttons) & ")"
Close ff
MsgBoxEx = WshShell.Run(sTmp, 0, True)
On Error Resume Next
Kill sTmp
End Function
 
Private Function Str2Code$(s)
'---------------------------------------------------------------------------------------
' Procedure : Str2Code
' Author    : Казанский, [email]exceleved@yandex.ru[/email]
' Date      : 07.03.2014
' Purpose   : Replaces combinations CR+LF, LF+CR, single chars CR, LF with " & vblf & "
'             to be used in VBS code
'---------------------------------------------------------------------------------------
 
Str2Code = Replace$( _
            Replace$( _
              Replace$( _
                Replace$( _
                  Replace$(s, """", """"""), _
                vbCrLf, vbLf), _
              vbLf & vbCr, vbLf), _
            vbCr, vbLf), _
           vbLf, """ & vblf & """)
End Function

Форма для запуска функции с разными параметрами (сделал по аналогии с формой "MsgBox Assistant" MZ-Tools).
Тестировал в WinXP SP3 + Office 2007. Просьба к владельцам 64-битных систем протестировать там.
8
Вложения
Тип файла: xls MsgBoxEx.xls (79.0 Кб, 218 просмотров)
Sasha_Smirnov
5494 / 1322 / 144
Регистрация: 08.02.2009
Сообщений: 4,042
Записей в блоге: 29
22.04.2014, 15:24 59
KoGG, а вывод замка на объёмный принтер возможен (в 3D)?
0
KoGG
5301 / 1372 / 325
Регистрация: 23.12.2010
Сообщений: 2,042
Записей в блоге: 1
22.04.2014, 16:18 60
Возможен, если кто-нибудь напишет драйвер.
1
22.04.2014, 16:18
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.04.2014, 16:18

Хранить шаблоны документов в базе и выводить данные в эти шаблоны
Доброго времени суток. Интересует вопрос: мне необходимо формировать вордовские документы по...

Библиотеки программы
Знаю, что подобные темы обсуждались, но ничего путного не нашел. Написал программу CLR, но...

Чем отличаются шаблоны HTML и шаблоны WordPress
В чём различие между шаблонами HTML и WordPress. Кроме того, что создаются они разными способами....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
60
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru