Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Аля icq или чат на vba https://www.cyberforum.ru/ vba/ thread347341.html
Здравствуйте! Коллега подкинул идейку, интересная, но своими силами пока не выполнимая... Мы с ним далеко не гуру в VBA, но очень хотелось бы сделать аля icq или чат(лучше чат) для локальной сети. Даже не обязательно с каким либо подключениями (имеется в виду, что бд будет лежать на сетевом диске и все к нему имеют доступ). У самих получилось только в access, с текстовым файлом, данные из...
Пояснить результат работы функции Mid VBA
похоже заработался Строка_таблицы_Word = "9090690978, 84565665465, 8548375535" Mid$(Строка_таблицы_Word, 13, 1) = "" должно же быть на выходе Строка_таблицы_Word = "9090690978, 4565665465, 8548375535" То есть тринадцатый знак долой, увы не происходит желаемого, почему??? Спасибо
VBA Поле в Ворде Если в Ворде вставить поле, какое именно, прилагаю файл Кстати не подскажите, как оно вставляется, добавляется??, сто лет не вставлял, просто, копирую куда надо, вспомнить не могу, иногда спрашивают о каком поле речь Так вот нажав на него два раза мышью есть окошко Выполнить макрос при выходе Этот функционал вроде работает, но при условии, если поля защищены, а это мне не приемлемо. Можно этот... https://www.cyberforum.ru/ vba/ thread347256.html VBA Object required в одном документе Ворда есть созданное мною меню что-то с сегодняшнего дня нажимая на меню стал получать ошибку Object required - требуется объект Код пошагово проверить нельзя из-за этой строки, видимо в ней и проблема 'уточняем какой пункт меню нажат If Application.CommandBars.ActionControl.Caption = "&1 щит" Then Так как я не могу и выделить меню и проходить код одновременно Что за... https://www.cyberforum.ru/ vba/ thread347122.html
Функция Now VBA
Здравствуйте, Определяю вчерашнюю дату: Format(Now, "yyyymmdd") - 1 Результат: 20110900 Подскажите, как можно прописать это "Format(Now, "yyyymmdd") - 1", чтобы выводил 20110831.
VBA Разнести значения по строкам. Как? https://www.cyberforum.ru/ vba/ thread346951.html
Здравствуйте! Полный чайник по VBA. Стоит задача на 3-ем листе (см пример) нужно разнести значения ячеек из листа 1 и 2. К группе значений с листа 2 сопоставить по одному значению с листа 1. Диапазон значений произвольный, значит нужна проверка на нулевые строки внизу. С меня шоколадка в реале адназначна. Размер шоколадки обсуждется ))))
VBA Помогите решить задачку есть массив distance состоящий из d т.е For i=0 to d элементов (пускай d=2) 1-й вариант distance(0)=245 distance(1)=220 distance(2)=210 Как узнать при каком i-ом элементе достигается максимальное значение distance? 2-й вариант distance(0)=245 distance(1)=245 distance(2)=210 https://www.cyberforum.ru/ vba/ thread346924.html VBA Можно ли активировать форму в другом файле?
Возможна ли активация формы (выполнение Load UserForm) из другого файла, по аналогии с Application.Run "'My File.xls'!ThisModule.ThisProcedure" ?
VBA Изменение модальноси формы перед её сворачиванием Есть код позволяющий свернуть форму (код предоставил Romanza). Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32.dll" ( ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function GetWindowLong Lib "user32.dll" Alias... https://www.cyberforum.ru/ vba/ thread346822.html VBA Есть ли способ форме работать в "авторежиме"? Задача: есть чужая форма, в которой 50 опций, из которых нужны 9 шт. Повторяется в 22 файлах. Попытка заполнить SectionsList. в автомате и вызвать затем OKButton_Click(), Sub REPORT_REMASTERING() Call UserForm_Initialize Q = Array(1, 2, 23, 24, 29, 34, 37, 41, 50) For j = 1 To UBound(Q) SectionsList.Selected(Q(j)) = True Next j Call OKButton_Click https://www.cyberforum.ru/ vba/ thread346640.html
VBA Выбор данных, выгружаемых из Excel в Word в зависимости от выбранного периода
Добрый день, помогите, пожалуйста, со следующей заморочкой: У меня осуществляется выгругрузка в ворд определённых таблиц их экселя. Ворд – имеющийся документ с расставленными закладками. Эксель – сформированные таблицы с индивидуальными именами. В данный момент выгрузка осуществляется, но конкретного прописанного диапазона. Необходимо делать выгрузку таблиц в зависимости от выбранного...
VBA Как загнать таблицу в одну строку с ползунком Здравствуйте! В программировании я не большой специалист, поэтому потребовалась помощь со стороны. В ГОСТе нашел таблицу, которая будет полезна в дальнейшем, но то, что она занимает целый лист, мне не нравится, хочу ее загнать либо в ListBox или ComboBox (таблица в приложении). Подскажите, как это сделать? Может есть варианты по-проще? https://www.cyberforum.ru/ vba/ thread346550.html
Заблокирован
06.09.2011, 11:27  [ТС] 0

Макрос в Word'е - VBA - Ответ 1963489

06.09.2011, 11:27. Показов 1853. Ответов 7
Метки (Все метки)

Ответ

так не идет

в конечном итоге сделал так
код
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Dim s As String, n As Long, z() As String, i As Integer
    Dim pos1 As Long, pos2 As Long
    n = 0
    pos1 = Selection.Start
    Selection.Font.Color = wdColorRed
    z = Split(Trim(Selection.Text), " ")
    Selection.End = pos1
    Selection.TypeText Text:="#"
    For i = LBound(z) To UBound(z)
        n = n + (CLng(CLng("&H" + z(i)) * 2 ^ (i * 8)))
    Next
    Selection.EndKey Unit:=wdLine
    pos1 = Selection.Start
    Selection.TypeText Text:="  "
    Selection.TypeText Text:=(CStr(n / 10))
    Selection.TypeText Text:=" кг."
    pos2 = Selection.End
    Selection.Start = pos1
    Selection.Font.Color = wdColorRed

вроде работает, и хорошо, всеравно это промежуточное звено

Вернуться к обсуждению:
Макрос в Word'е VBA
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.09.2011, 11:27
Готовые ответы и решения:

Как в Wordе программно установить режим разметки страницы?
Как можно в Wordе программно установить режим разметки страницы? Что то я никак не пойму как это...

Как по двум ключевым словам выделить текст в Wordе
Мне надо выделить по двум известным мне словам текст в Документе Word 97. Слова я нахожу с помощью...

Как перставить + с конца предложения на начало в Wordе?
Как найти в тексте предложения с плюсами в конце и переставить плюс на начало предложения? ...

Макрос вставки файлов в листы-Необходимо изменить ниже приведённый макрос
Необходимо изменить ниже приведённый макрос, взятый с форума. Необходима помощь. Буду признателен....

7
06.09.2011, 11:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.09.2011, 11:27
Помогаю со студенческими работами здесь

Макрос: Написать макрос по сравнению двух таблиц для нахождения несоответствий...
знатоки, прошу помощи в еще одном деле: есть два листа, --в одном список: яблоко, груша, слива, ...

Если макрос на VBA переписать на С++, то макрос станет работать быстрее?
Всем привет!) У меня есть макрос написанный в Екселе на VBA, если его переписать на С++ , то...

Макрос: из PowerPoint развернуть Exel и вызвать уже в нём макрос
Собственно сабж. Работая в презентации PowerPoint нужно по клику на кнопку с прикреплённым макросом...

Макрос хранимый в отдельном файле или макрос на обновление макросов
Уважаемые форумчане, подскажите советом. Есть у меня файл Excel с макросами, которые я поддерживаю...

Макрос делает копию листа и сохраняет в новую книгу, но макрос в новой не работает
Есть макрос в книге. Он копирует текущий лист, создает новую книгу и копирует в новую книгу лист. ...

Макрос, чтобы другой макрос распихал сам по N файлам
Может эта тема уже тут звучала, да поиск не помог... Просто проблема в том, что макрос постоянно...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru