Рейтинг основных форумов
Городские форумы
Городской форум
Городской форум для новичков
Нижегородская политика
Жалобная книга
Бабский форум
Мужской
Анонимный медицинский форум
Дурацкие вопросы
Автофорумы
Автофорум главный
Девушка за рулем
ВАЗ форум
4х4 форум
Жалобный
Шевроле Форум
Такси
Автозапчасти
Гаражный форум
KIA-форум
Рено форум
Hyundai Форум
VAG Форум
Форумы покупок
Центр раздач: информационный форум
Глав-Пристрой (со всех форумов, взрослый)
Совместная покупка
Совместная покупка: центральный
Совместная покупка: взрослый
Совместная покупка: вкусный
Совместная покупка: мама и малыш
Совместная покупка: уютный
Совместная покупка: сбор предоплаты, раздачи
Совместная покупка: услуги
Совместная покупка: область
Совместная покупка: Дзержинск
Совместная покупка: Саров
Зарубежные интернет-покупки
Покупаем вместе
Покупаем Вместе: Основной
Покупаем вместе: БОЛЬШОЙ ШОПИНГ (взрослый)
Покупаем вместе: БЕБИ-ШОП (детский)
Покупаем вместе: ДОМОВОЙ
Покупаем вместе: ГАСТРОНОМ
Покупаем вместе: Сбор предоплаты, раздачи
Покупаем Вместе: пристрой
Покупаем Вместе: услуги
Выгодная покупка
Выгодная покупка - общие вопросы
Выгодная покупка - взрослый
Выгодная покупка - детский
Выгодная покупка - сбор предоплаты, раздачи
Выгодная покупка - объявления
Форум закупок
Мой малыш
Мой малыш - Основной
Мой малыш - Объявления. Общий
Мой малыш - Объявления: детская одежда
Мой малыш - Объявления: детская обувь
Мой малыш - Объявления: детский транспорт, игрушки, мебель
Халявный
Халявный (основной)
Котята и др. животные
Элитный (продажа неликвидных товаров)
Услуги
Домоводство
Полезный форум
Бытовые проблемы
Деревенский форум
Домоводство
Цветочный форум
Форум владельцев кошек
Дачный. Основной.
Бытовая Техника
Творческий
Рукоделие основной
Форумы по интересам
Фиолетовый форум
Сделаны в СССР
Музыкальный
Кино форум
Кладоискатели и коллекционеры
Рыболовный
Охотничий
Стильный форум
Флирт, Любовь, Знакомства
Фотофорум
Здоровье
Развитие Человека
Пивной форум
Кулинарный
Парфюмерный
Парфюмерная Лавка
Собачий форум
Собачий форум: Основной
Собачий форум: пристрой животных
Наши Дети
Наши дети
Школьный форум
Особые дети
Технофорумы
Интернет-НН
GPS форум
Мобильный форум
Техно-форум
Технотуса
Проф. и бизнес форумы
Бизнес форум
Фотография
Недвижимость
Банковский форум
Медицина
Форум трейдеров
Бухучет и аудит
Юридический
Подбор персонала
Разработчики ПО
Строительные форумы
Строительный форум (основной)
Окна
Форум электриков
Мебель
Кондиционирования и вентиляция
Форум строительных объявлений
Форум проектировщиков
Все строительные форумы
Туризм, отдых, экстрим
Туризм, отдых, экстрим
Спортивные форумы
Клуб болельщиков
Спортплощадка
Боевые искусства
Велофорумы Нижнего Новгорода
Велофорум Нижнего Новгорода
Путешествия
Нижегородская область
Недвижимость
Недвижимость
Ипотека
Земельный форум
ТСЖ
Садоводческое товарищество
Жилые районы
Автозаводский район
Сормовский район
Мещерское озеро
Все форумы районов
Форумы домов
Корабли
Новая Кузнечиха
Октава ЖК (ул. Глеба Успенского)
Мончегория ЖК
Аквамарин ЖК (Комсомольская пл.)
Сормовская Сторона ЖК
КМ Анкудиновский парк ЖК
Красная Поляна ЖК (Казанское шоссе)
Времена Года ЖК (Кстовский р-он)
Стрижи ЖК (Богородский р-он)
На Победной ЖК (Победная ул., у дома 18)
Окский берег ЖК (п. Новинки)
Цветы ЖК (ул. Академика Сахарова)
Деревня Крутая кп (Кстовский р-он)
Опалиха кп (Кстовский р-он)
Юг мкр. (Южный бульвар)
Гагаринские высоты мкр.
Бурнаковский мкр.
Белый город мкр. (60-лет Октября ул.)
Зенит ЖК (Гагарина пр.)
Седьмое небо ЖК
Все форумы домов
Частные форумы
Свадебный форум
Саровский Клуб Покупателей
Июньские мамочки
Форум безумных идей
Ночной форум
Королевство кривых зеркал
Ищу вторую половинку!
Лютики-цветочки КУПЛЯ-ПРОДАЖА
Отряд стройности
Пчеловодство
Форум ленивых
Волейбольный клуб туристов
Встречи для секса
Буду мамой!
Алкогольный форум
Лютики-цветочки
Котоводство
Форум сексуального опыта
Свободка
Форум модераторов
Форум забаненных
Новый форум модераторов
Отзывы и предложения (техподдержка)
Нужно вставить в .docx случайно генерируемое число...
Нужен совет (поиск решения проблемы. не для купли-продажи)
4188
49
Поделиться
Задача: имеется шаблонный текст. Необходимо, чтобы при печати в текст вставлялось случайное число (в заданном диапазоне, конечно). Диапазон в простейшем случае задается либо жестко в самом тексте, либо при помощи диалогового окна.
VBA я не касался лет 15, давно и прочно забыл способ осуществления этого, прошу простить за довольно простой вопрос. Да, и в гугле меня забанили:о)
VBA я не касался лет 15, давно и прочно забыл способ осуществления этого, прошу простить за довольно простой вопрос. Да, и в гугле меня забанили:о)
а например вставить лист excel, в котором чтото типа СЛУЧМЕЖДУ(0;100)
Так, спасибо, сейчас попробую...
...к сожалению, число генерируется однократно, при открытии документа заново появляется одно и то же((
Странно.
Если бы это было поле Word, то его действительно нужно было бы обновлять для нового расчёта формулы. Лист же должен считаться нормально. В нём же можно просить выставить диапазон.
Если бы это было поле Word, то его действительно нужно было бы обновлять для нового расчёта формулы. Лист же должен считаться нормально. В нём же можно просить выставить диапазон.
При закрытии и открытии .docx изменений не вижу, при копировании поля оно копируется тоже с тем же значением. Обновление происходит, если открыть объект и затем его закрыть. Пока не могу установить точных закономерностей и понять, что же надо.
Инстинктивно хочется нажать кнопку "обновить страницу" или открыть диспетчер кода по F12, но это Word...(((
Инстинктивно хочется нажать кнопку "обновить страницу" или открыть диспетчер кода по F12, но это Word...(((
Дык не поле надо копировать, а объект вставлять.
Вставлял объект, ессно. Что уж я...:)
Dr.Re писал(а)
Инстинктивно хочется нажать кнопку "обновить страницу"
Инстинктивно хочется нажать кнопку "обновить страницу"
в экселе была горячая клавиша на "Произвести вычисления в книге" вроде F9, для одного листа шифт+F9
Dr.Re писал(а)
...к сожалению, число генерируется однократно, при открытии документа заново появляется одно и то же(( ...
...к сожалению, число генерируется однократно, при открытии документа заново появляется одно и то же(( ...
гуглите метод document.open() и там вставляйте макрос.
если подождете до вечера, могу написать готовый
там вопрос в другом, что rnd реально каждый раз заново начинает последовательность - те закрыл документ, открыл - тоже число
об этом и речь. каждый раз при открытии будет новое число
в чем разница для рнд? у ворда есть стандартное имя макроса autoopen - срабатывает при открытии
проверил - каждый раз генерится одно и тоже число
проверил - каждый раз генерится одно и тоже число
вот сделал я DocOpen.vbs, с содержимым типа
Sub OpenDoc()
Documents.Open FileName:="C:\Documents and Settings\user\Мои документы\UC.docx"
End Sub
Чего-то тут не хватает, ибо не работает. Не пойму только чего.
Sub OpenDoc()
Documents.Open FileName:="C:\Documents and Settings\user\Мои документы\UC.docx"
End Sub
Чего-то тут не хватает, ибо не работает. Не пойму только чего.
Sub AutoOpen()
'
' AutoOpen Макрос
'
'
b = Timer()
For i = 1 To b
c = Rnd
Next
Selection.TypeText Text:=CStr(Rnd * 1000) + " "
Selection.TypeText Text:=CStr(Rnd * 1000) + " "
Selection.TypeText Text:=CStr(Rnd * 1000)
End Sub
прямо в ворде создайте макрос с именем AutoOpen
вот срабатывание при печати тут уже геморнее
'
' AutoOpen Макрос
'
'
b = Timer()
For i = 1 To b
c = Rnd
Next
Selection.TypeText Text:=CStr(Rnd * 1000) + " "
Selection.TypeText Text:=CStr(Rnd * 1000) + " "
Selection.TypeText Text:=CStr(Rnd * 1000)
End Sub
прямо в ворде создайте макрос с именем AutoOpen
вот срабатывание при печати тут уже геморнее
Э... ну, дает это при открытии добавление перед текстом документа набор чисел, а надо чтобы эти числа вставлялись туда, куда нужно...
Иными словами, каким же образом вставляется в текст динамическое содержимое? А может быть, нужно не к ворду прикреплять этот скрипт, а к полям из эксел? Только это совсем уж ппц путаница. Почему нет способа просто вставить в текст что-то вроде
Lorem {int(rnd(100,200,5)} Ipsum
и это будет давать текст типа
Lorem 125 Ipsum
Иными словами, каким же образом вставляется в текст динамическое содержимое? А может быть, нужно не к ворду прикреплять этот скрипт, а к полям из эксел? Только это совсем уж ппц путаница. Почему нет способа просто вставить в текст что-то вроде
Lorem {int(rnd(100,200,5)} Ipsum
и это будет давать текст типа
Lorem 125 Ipsum
текста то нет, условий вставки нет
я дал пример - как работает
уж определить место вставки и допилить макрос уже минимальная проблема
нельзя потому что это текстовый редактор
можно вставлять поля всякие, но на них макросы все равно придется вешать
в колонтитулах можно покрутить формулами, но там набор ограничен
я дал пример - как работает
уж определить место вставки и допилить макрос уже минимальная проблема
нельзя потому что это текстовый редактор
можно вставлять поля всякие, но на них макросы все равно придется вешать
в колонтитулах можно покрутить формулами, но там набор ограничен
Ну да, главное - направить:) Придется вспомнить основы.
Вообще, я на самом деле думал, что все намного проще...
Вообще, я на самом деле думал, что все намного проще...
Dolorem ipsum пробовал? Подробности тут: www.artlebedev.ru/kovodstvo/sections/67/
А как же! Как говорится, linua latina non est penis canina - in manus non recipe!
kemy писал(а)
аждый раз генерится одно и тоже число
аждый раз генерится одно и тоже число
а рандомайз кто будет делать?
не знал - раньше не требовались случайные числа :)
даже если и не случайные, то сам вопрос (как вставить в текст вычисляемую переменную) пока не снят.
ну не может такого быть, чтобы отсутствовали простые средства реализации такой элементарной вещи!
ну не может такого быть, чтобы отсутствовали простые средства реализации такой элементарной вещи!
самое простое - в места вставок вставить набор уникальный - который помимо не встретится точно в тексте
тогда поиском находятся такие и заменяются - проблем мало
вот если пытаться привязаться к началу абзацей тогда надо точно уверенным надо быть что разделение есть - внимательно структуру документа проверить
но тогда тоже можно пробежаться по структуре и вствить
тогда поиском находятся такие и заменяются - проблем мало
вот если пытаться привязаться к началу абзацей тогда надо точно уверенным надо быть что разделение есть - внимательно структуру документа проверить
но тогда тоже можно пробежаться по структуре и вствить
э... ну, вот сделаю паузу в изучении html/css, может и vba на досуге припомню...)
т.е., открывать док через скрипт, в котором будет задан параметр для этого метода? а какой параметр надо задавать? и действительно, работает ли генератор псевдослучайных чисел корректно - тоже вопрос..
Ты напиши, что тебе надо, я вечером гляну, тут, похоже, делов на 1.5 минуты
Есть текст стандартного такого содержания. Он состоит из абзацев, в каждом из которых требуют проставлять число (скажем, в рамках от 100 до 180 с шагом в 5 ед.). Фантазии вписывать потом в распечатку от руки уже не хватает, то же самое и впечатывать.
Необходимо сделать так, чтобы при каждой печати документа (или хотя бы при его закрытии-открытии) эти числа генерировались по RND и вставлялись в основной текст.
В общем, это всё.
Необходимо сделать так, чтобы при каждой печати документа (или хотя бы при его закрытии-открытии) эти числа генерировались по RND и вставлялись в основной текст.
В общем, это всё.
запустите генерацию в цикле - получив какой нибудь параметр - типа числа тиков
а оно и будет одно и то же. нужна соль, чтобы оно реально регенироль случайно
Private Sub Document_Open()
'
' Макрос1 Макрос
'
'
Randomize
Selection.TypeText ("Число : ")
Selection.TypeText Rnd()
End Sub
суть ясна?
'
' Макрос1 Макрос
'
'
Randomize
Selection.TypeText ("Число : ")
Selection.TypeText Rnd()
End Sub
суть ясна?
Вставляйте текущую дату, включая секунды.
К вопросу, который лежит в основе...
КАК в документе word можно предусмотреть вставку заранее неизвестной величины?
В обычных языках программирования, да и в скриптах vba это проще простого. Но вот как вставить в текст сам скрипт - это вопрос. Он же не должен сам по себе занимать место на странице, только его результат.
КАК в документе word можно предусмотреть вставку заранее неизвестной величины?
В обычных языках программирования, да и в скриптах vba это проще простого. Но вот как вставить в текст сам скрипт - это вопрос. Он же не должен сам по себе занимать место на странице, только его результат.
Меню-Вставка-Гиперсылка.... или Меню-Вставка-Объект....
Не то?
Не то?
Объект чёт не обновляется. Href можно попробовать вставить, только надо скрипт написать. Возникает вопрос, а неужели ж все так сложно, что средствами ВБА не реализуется...
просто VBA на это явно не рассчитан :) .
Вот пример
Я бы подошёл к проблеме с другой стороны: вставить где должны быть числа метки-плейсхолдеры, например {RANDOM}, а документ уже модифицировать скриптом извне, заменяя метки {RANDOM} на числа. Тут плюс в том что реализовать можно почти на любом скриптовом языке какой знаешь, без необходимости разбираться с макросами.
Теоретически можно документ и на печать сразу же отправлять из скрипта.
Теоретически можно документ и на печать сразу же отправлять из скрипта.
Так что, Word все-таки имеет возможность вставлять метки? Фигурные скобочки, значит? Надо попробовать на досуге.
Меткой может быть любая уникальная последовательность символов, например
$birthdate
Есть куча средств, которые осуществляют поиск и замену определённого набора символов в потоке (файле).
Другое дело, что некоторые форматы файлов используют упаковщики (архиваторы).
Подробнее по форматам и их обработке можно посмотреть здесь: habr.com/post/69417/
$birthdate
Есть куча средств, которые осуществляют поиск и замену определённого набора символов в потоке (файле).
Другое дело, что некоторые форматы файлов используют упаковщики (архиваторы).
Подробнее по форматам и их обработке можно посмотреть здесь: habr.com/post/69417/
Ну так docx это просто директория, сжатая zip'ом. Распаковать, пропатчить внутренний файл document.xml кажется он, и упаковать зипом обратно. Шаблон кстати можно даже хранить уже распакованным, чтобы лишний раз не распаковывать.
BrainFucker писал(а)
директория, сжатая zip'ом.
директория, сжатая zip'ом.
я бы сказал что файл документа с дополнительными подфайлами. идиотская система.
Норм система, удобная. Идиотская это когда был раньше бинарный файл в проприетарном формате.
BrainFucker писал(а)
Норм система, удобная.
Норм система, удобная.
*no*
BrainFucker писал(а)
бинарный файл
бинарный файл
текстовая инфа так текстовой и была :-D .
Хрень полная. Обрабатывать нормальный формат типа XML гораздо удобнее чем разбирать проприетарную дичь.
а "приблудные" ;-) :-D ?
Так что, Word все-таки имеет возможность вставлять метки? Фигурные скобочки, значит? Надо попробовать на досуге.
Встроенными макросами-то думаю много чего можно сделать, если уметь. Но я не это имел в виду.
Я имел в виду просто вручную в нужных местах, где должно быть рандомное число, проставить такие метки плейсхолдеры. А внешним скриптом эти метки уже заменять на рандомные числа. Просто прописать вручную метки типа {RANDOM}, где должны быть числа, таким же образом как я это прописал в этом посте. Я хз как понятней объяснить. Не обязательно именно фигурные скобки, просто чтобы был уникальный набор символов, который легко скриптом найти в документе и заменить. Можно хоть хер прописать, если он в документе сам по себе не встречается. :D
Нет, в этом не встречается) принцип понял))
Рейтинг основных форумов
Городские форумы
Городской форум
Городской форум для новичков
Нижегородская политика
Жалобная книга
Бабский форум
Мужской
Анонимный медицинский форум
Дурацкие вопросы
Автофорумы
Автофорум главный
Девушка за рулем
ВАЗ форум
4х4 форум
Жалобный
Шевроле Форум
Такси
Автозапчасти
Гаражный форум
KIA-форум
Рено форум
Hyundai Форум
VAG Форум
Форумы покупок
Центр раздач: информационный форум
Глав-Пристрой (со всех форумов, взрослый)
Совместная покупка
Совместная покупка: центральный
Совместная покупка: взрослый
Совместная покупка: вкусный
Совместная покупка: мама и малыш
Совместная покупка: уютный
Совместная покупка: сбор предоплаты, раздачи
Совместная покупка: услуги
Совместная покупка: область
Совместная покупка: Дзержинск
Совместная покупка: Саров
Зарубежные интернет-покупки
Покупаем вместе
Покупаем Вместе: Основной
Покупаем вместе: БОЛЬШОЙ ШОПИНГ (взрослый)
Покупаем вместе: БЕБИ-ШОП (детский)
Покупаем вместе: ДОМОВОЙ
Покупаем вместе: ГАСТРОНОМ
Покупаем вместе: Сбор предоплаты, раздачи
Покупаем Вместе: пристрой
Покупаем Вместе: услуги
Выгодная покупка
Выгодная покупка - общие вопросы
Выгодная покупка - взрослый
Выгодная покупка - детский
Выгодная покупка - сбор предоплаты, раздачи
Выгодная покупка - объявления
Форум закупок
Мой малыш
Мой малыш - Основной
Мой малыш - Объявления. Общий
Мой малыш - Объявления: детская одежда
Мой малыш - Объявления: детская обувь
Мой малыш - Объявления: детский транспорт, игрушки, мебель
Халявный
Халявный (основной)
Котята и др. животные
Элитный (продажа неликвидных товаров)
Услуги
Домоводство
Полезный форум
Бытовые проблемы
Деревенский форум
Домоводство
Цветочный форум
Форум владельцев кошек
Дачный. Основной.
Бытовая Техника
Творческий
Рукоделие основной
Форумы по интересам
Фиолетовый форум
Сделаны в СССР
Музыкальный
Кино форум
Кладоискатели и коллекционеры
Рыболовный
Охотничий
Стильный форум
Флирт, Любовь, Знакомства
Фотофорум
Здоровье
Развитие Человека
Пивной форум
Кулинарный
Парфюмерный
Парфюмерная Лавка
Собачий форум
Собачий форум: Основной
Собачий форум: пристрой животных
Наши Дети
Наши дети
Школьный форум
Особые дети
Технофорумы
Интернет-НН
GPS форум
Мобильный форум
Техно-форум
Технотуса
Проф. и бизнес форумы
Бизнес форум
Фотография
Недвижимость
Банковский форум
Медицина
Форум трейдеров
Бухучет и аудит
Юридический
Подбор персонала
Разработчики ПО
Строительные форумы
Строительный форум (основной)
Окна
Форум электриков
Мебель
Кондиционирования и вентиляция
Форум строительных объявлений
Форум проектировщиков
Все строительные форумы
Туризм, отдых, экстрим
Туризм, отдых, экстрим
Спортивные форумы
Клуб болельщиков
Спортплощадка
Боевые искусства
Велофорумы Нижнего Новгорода
Велофорум Нижнего Новгорода
Путешествия
Нижегородская область
Недвижимость
Недвижимость
Ипотека
Земельный форум
ТСЖ
Садоводческое товарищество
Жилые районы
Автозаводский район
Сормовский район
Мещерское озеро
Все форумы районов
Форумы домов
Корабли
Новая Кузнечиха
Октава ЖК (ул. Глеба Успенского)
Мончегория ЖК
Аквамарин ЖК (Комсомольская пл.)
Сормовская Сторона ЖК
КМ Анкудиновский парк ЖК
Красная Поляна ЖК (Казанское шоссе)
Времена Года ЖК (Кстовский р-он)
Стрижи ЖК (Богородский р-он)
На Победной ЖК (Победная ул., у дома 18)
Окский берег ЖК (п. Новинки)
Цветы ЖК (ул. Академика Сахарова)
Деревня Крутая кп (Кстовский р-он)
Опалиха кп (Кстовский р-он)
Юг мкр. (Южный бульвар)
Гагаринские высоты мкр.
Бурнаковский мкр.
Белый город мкр. (60-лет Октября ул.)
Зенит ЖК (Гагарина пр.)
Седьмое небо ЖК
Все форумы домов
Частные форумы
Свадебный форум
Саровский Клуб Покупателей
Июньские мамочки
Форум безумных идей
Ночной форум
Королевство кривых зеркал
Ищу вторую половинку!
Лютики-цветочки КУПЛЯ-ПРОДАЖА
Отряд стройности
Пчеловодство
Форум ленивых
Волейбольный клуб туристов
Встречи для секса
Буду мамой!
Алкогольный форум
Лютики-цветочки
Котоводство
Форум сексуального опыта
Свободка
Форум модераторов
Форум забаненных
Новый форум модераторов
Отзывы и предложения (техподдержка)
Последние темы форумов
Форум
Тема (Автор)
Ответов
Карта сайта | 18+
ООО «Сеть городских порталов»
© 1999 - 2024
Реклама на NN.RU +7 (831) 261-37-60, reklama52@iportal.ru
Раздел технической поддержки | Для Роскомнадзора и госорганов: juristnn@iportal.ru
Реклама на NN.RU +7 (831) 261-37-60, reklama52@iportal.ru
Раздел технической поддержки | Для Роскомнадзора и госорганов: juristnn@iportal.ru
Т.к. вы неавторизованы на сайте. Войти.
Т.к. тема является архивной.