powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Поля следящие друг за другом
69 сообщений из 69, показаны все 3 страниц
Поля следящие друг за другом
    #38855718
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
здравствуйте, есть ли что подобное - два поля, одно удаляешь-автоматом удаляется другое, то есть как бы связанные одной цепью...спасибо
речь о ворде любимом
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38855785
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофадва поля, одно удаляешь-автоматом удаляется другоеИ наоборот? только макросом.
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38855950
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Akina,
И наоборот? - это одно добавляешь и второе добавляется? нет! - дофига делов ему объяснять где второму добавиться
только макросом - как?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38856056
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
наоборот - при удалении второго удаляется первое. Т.е. при удалении любого из пары, пофиг какого именно, удаляется второй.
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38856445
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Akina,
ну так так и надо, как устроить?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38856552
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
[spoiler]катастрофа,

[youtube=
YouTube Video
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38856861
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Akina, пожалуй апну тему...
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38857303
Фотография W_I_N_T_E_R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
файл-пример бы...
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38857311
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
W_I_N_T_E_R, уважаемый, какой пример?
представьте чистый Вордовский документ
в нём два поля, удаляешь одно, другое как за верёвку привязано удаляется
хотя щас подумал, а как их в документ затащить-одно первое создал-нет второго оно удалилось
или типа им двоим в одночастье сигнал подать - с это мига Вы связаны между собой
какие будут мысли?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38858905
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
то есть как в файле давать понять, что это начало, а это конец некого документа?
от сих до сих-есть нужное
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38861809
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофа,

приятель
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38862290
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофа,

На сколько мне известно, у полей отсутствуют события, зато они есть у ContentControls.
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38862345
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
iMrTidy, развивайте мысль
видимо самой подходящее Label
документы в файл я ставлю прогой, значит
свойство у Label ставлю Enabled=False
надпись добавляю уникальную-наверное полную дату с секундами
и каков код будет дать ему понять, что при его удалении своего кровника надо тоже удалить
???
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38862694
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофаiMrTidy, развивайте мысль
видимо самой подходящее Label
документы в файл я ставлю прогой, значит
свойство у Label ставлю Enabled=False
надпись добавляю уникальную-наверное полную дату с секундами
и каков код будет дать ему понять, что при его удалении своего кровника надо тоже удалить
???


Погуглите.
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38862735
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
iMrTidy,
мне кажется трудновато будет
тут ведь ключевое слово не
событие удаление Label в VB
а
событие перед удалением Label в VB
попробую и так и так...
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38864775
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
оно рядом но не то
BeforeDragOver Происходит, пока совершается операция перемещения (drag-and-drop) элемента управления
BeforeDropOrPaste Происходит перед завершением операции перемещения (drag-and-drop) элемента управления
Exit Происходит, когда с элемента управления снимается выделение

на мой взгляд, а как на Ваш, форумчане?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38864791
maximjon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофаоно рядом но не то
BeforeDragOver Происходит, пока совершается операция перемещения (drag-and-drop) элемента управления
BeforeDropOrPaste Происходит перед завершением операции перемещения (drag-and-drop) элемента управления
Exit Происходит, когда с элемента управления снимается выделение

на мой взгляд, а как на Ваш, форумчане?

OnKeyPress найди, или что-то в этом роде.
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38864809
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
maximjon,
KeyPress Происходит, когда пользователь нажимает любую клавишу на клавиатуре, кроме функциональных и клавиш управления курсором

нет думаю не то....
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38864857
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофаiMrTidy,
мне кажется трудновато будет
тут ведь ключевое слово не
событие удаление Label в VB
а
событие перед удалением Label в VB
попробую и так и так...

Label не имеет отношения к ContentControls. Немного странно, что будет трудно гуглить . Во второй же ссылке событие: ContentControlBeforeDelete.
Какая версия офиса, кстати?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38865815
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
iMrTidy, 2003, но желательно, чтобы везде работало..
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38865824
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
конечно сам придумал...

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Label1_ContentControlBeforeDelete()

Beep

End Sub

Private Sub Label1_Click()

Label1.Select

End Sub



не взлетает ни то ни другое
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38866113
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофаконечно сам придумал...

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Label1_ContentControlBeforeDelete()

Beep

End Sub

Private Sub Label1_Click()

Label1.Select

End Sub



не взлетает ни то ни другое
В прошлый раз я написал:
iMrTidy Label не имеет отношения к ContentControls.
Никакого, стоит добавить.

катастрофаiMrTidy, 2003, но желательно, чтобы везде работало..
ContentControls появились в Office 2007.
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38866146
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
iMrTidy, ясно, ну тогда начнём с того
не подскажите, что есть в Ворде 2003, чтобы можно было, что то подобное

Код: vbnet
1.
2.
3.
4.
5.
Sub Контрол_ContentControlBeforeDelete()
 
Beep
 
End Sub


сделать?
beep это проверка, главное чтобы перед удалением элемента с документа было событие, в данном случае beep
у какого контрола, поля, ещё какого-то зверя можно так сделать и как точно будет выглядеть код? спасибо
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38866396
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
сначала было слово поле или даже два поля

катастрофаздравствуйте, есть ли что подобное - два поля, одно удаляешь-автоматом удаляется другое, то есть как бы связанные одной цепью...спасибо
речь о ворде любимом

потом ярлык

катастрофаiMrTidy,
мне кажется трудновато будет
тут ведь ключевое слово не
событие удаление Label в VB
а
событие перед удалением Label в VB
попробую и так и так...

а теперь сказочку сначала мы начнем без полей но с "пободным" и ворд 2003 всплыл

катастрофаiMrTidy, ясно, ну тогда начнём с того
не подскажите, что есть в Ворде 2003, чтобы можно было, что то подобное

Код: vbnet
1.
2.
3.
4.
5.
Sub Контрол_ContentControlBeforeDelete()
 
Beep
 
End Sub


сделать?
beep это проверка, главное чтобы перед удалением элемента с документа было событие, в данном случае beep
у какого контрола, поля, ещё какого-то зверя можно так сделать и как точно будет выглядеть код? спасибо

приятель может все же раскроешь тайну что за очень сильное колдунство черной магии а?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38866404
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
капитанская дочкаприятель может все же раскроешь тайну что за очень сильное колдунство черной магии а?
просто люди в Челябинске настолько суровы
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38866557
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
что не ясно
это поле контрол, что-то ещё
добавлять в документ будет прога
но если кто-то задумает удалить одно из них
то второе должно уйти обязательно без участия пользователя
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38866675
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофачто не ясно
это поле контрол, что-то ещё
добавлять в документ будет прога
но если кто-то задумает удалить одно из них
то второе должно уйти обязательно без участия пользователя

не теперь то все безпредельно ясно -= ЧЕЛЯБИНСК =- рулит и правит миром в тайне от мира пока мафия спит
вот ты пишешь чтобы во всех версиях и временах а вот ежели подлый юзер запретит макросы как быть? хотя челябинские юзеры... да они ведь такие
но есть есть офигенный способ и ежели постаратся то зарбатоет как в песне - написать свой ЭктивХ и вся любовь
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38866683
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
капитанская дочка, давайте сначала предположим, что он не запретит, найдём решение, а потом, будем думать, ОК?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38866783
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофакапитанская дочка, давайте сначала предположим, что он не запретит, найдём решение, а потом, будем думать, ОК?

а давайте вот правда давайте возьмем и ударим мозгами по вашей проблеме и найдем таки решение
так что свой ЭктивХ написать не прокатит?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38866800
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
капитанская дочка, никогда не писал
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38866822
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофакапитанская дочка, никогда не писал

так самое время начать уж поверьте старому морскому волку
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38867327
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофаiMrTidy, ясно, ну тогда начнём с того
не подскажите, что есть в Ворде 2003, чтобы можно было, что то подобное

Код: vbnet
1.
2.
3.
4.
5.
Sub Контрол_ContentControlBeforeDelete()
 
Beep
 
End Sub


сделать?
beep это проверка, главное чтобы перед удалением элемента с документа было событие, в данном случае beep
у какого контрола, поля, ещё какого-то зверя можно так сделать и как точно будет выглядеть код? спасибо

Да, в Word 2003 есть возможность подключать пользовательские ActiveX. Собственно это я и "подсказываю" - написать свой.
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38867331
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Посмеялся от души. Даже почерпнул для себя: "Челябинские программисты настолько суровы, что считают ассемблер недопустительной роскошью — они вручную магнетизируют участки жесткого диска."
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38867624
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофа,

приятель вот тебе еще суровое челябнинское колдунство - опрашивай по таймеру наличие двух твоих контролов типа каждые сто мс
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38867881
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
капитанская дочка,
то есть мне нужен
.ocx??
как открыть VB чтобы была опция
Делать *****.ocx?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38868288
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофакапитанская дочка,
то есть мне нужен
.ocx??
как открыть VB чтобы была опция
Делать *****.ocx?

приятель я тебе честно скажу - тебе нужны вставные мозги или выиграть в лотерею или чтобы лотерея тебя выиграла...не знаю как у вас там челнябинске
ну вот посуди сам:
- с виду вроде как кодер тваришь сам но!
- старшим по званию хамиш? хамиш
- сам чего почитал покопал? похоже нет
- ссылки по которым тебя посылали в глаза видел? не думаю
- думаешь ты первый кто задается вопросом как написать свой активный Х? сто пятсот что нет
- искать пробовал? разве что одну самую первую ссыль
- и крмое того тайна покрытая мраком да простит меня Ада Лавлейс и Байрон за нахрена тебе эти извороты??? может все таки есть мелкомягкий шанс что ты зашел в тупик не туда???
- и кроме того сам то чего пытался?

но есть одно офигенное но я напишу тебе штуку под твой заказ будет рабоать на всех версиях офиса и даже откупоренного офиса и даже кросс платформенный и даже с поддержкой и возьму с тебя всего ничего лям пока еще русских рублей и сроку мне на это месяц
а ежели это не катит так возьми в руки свои указательные пальцы и набей ими мольбы о помощи у гугла и собратьев как пишется мастдайный эктивх
или не баламуть тут водку
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38874264
vba-dev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофа, а чем вас не устраивает два текстбокса с таким кодом:

Private Sub TextBox2_Change()
Me.TextBox21.Text = Me.TextBox2.Text
End Sub

Private Sub TextBox21_Change()
Me.TextBox2.Text = Me.TextBox21.Text
End Sub
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38874267
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vba-dev, а как этот код соотносится с вопросом автора?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38874270
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vba-dev, и что типа один из них сделал заборт и второй это почувствовал и самоустранился?, судя по коду такого не будет
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38874271
vba-dev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофа,
да, этот код не отлавливает удаления самого поля. Но если меняется текст в одном из них, то он меняется и в другом.
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38874273
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
подумал, всё таки если осх писать то в виде чексбокса, так как ещё функционал нужен будет если установил галочку в один из них то промежуток между ими (двумя братьями) выделяется, вылазит форма с предлагаемыми действиями
1 Вырезать
2 Копировать
3 Удалить
4 Распечатать
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38874274
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пытка темой продолжалась третью неделю...пристрелите меня если начну бредить это может быть заразно
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38874275
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vba-devкатастрофа,
да, этот код не отлавливает удаления самого поля. Но если меняется текст в одном из них, то он меняется и в другом.
даром не нужно
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38874279
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
капитанская дочкакапитанская дочкапытка темой продолжалась третью неделю...пристрелите меня если начну бредить это может быть заразно
тогда почитай темы автора Ципихович Эндрю (катастрофа - это клон), и жизнь покажется тебе безоблачной и радостной
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38874572
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro
елки палки да это ж кладезь для науки кодерства и хакерства. там хватит на 8 или 11 романов война мир мелким почерком на двух сторонах. а назвать можно "мой путь босиком до челябинска от непрограммиста до недопрограммиста" автор Ломоно песнь народная слова ципихович эндрю катастрофович. (прости приятель я не в обиду правда смешно тваришь - я твой фан отныне)

из найденного: челябинские программисты на столько суровы что пишут экзешники в нотпад плюс плюс
от себя: челябинские программисты не называют себя программистами это не достаточно сурово они называют себя эндрю .
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38887678
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
всё же в силе
не подскажите, что есть в Ворде 2003, чтобы можно было, что то подобное

Код: vbnet
1.
2.
3.
4.
5.
Sub Контрол_ContentControlBeforeDelete()
 
Beep
 
End Sub



сделать?
beep это проверка, главное чтобы перед удалением элемента с документа было событие, в данном случае beep
у какого контрола, можно так сделать и как точно будет выглядеть код? спасибо

нет желания в активХ и ОСХ разбираться
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38887804
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
врагу не сдается наш гордый варяг
предлагаю открыть новый подфорум: дикий кодер или как пройти в библиотеку *только для упорных
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38887806
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофавсё же в силе
не подскажите, что есть в Ворде 2003, чтобы можно было, что то подобное

Код: vbnet
1.
2.
3.
4.
5.
Sub Контрол_ContentControlBeforeDelete()
 
Beep
 
End Sub



сделать?
beep это проверка, главное чтобы перед удалением элемента с документа было событие, в данном случае beep
у какого контрола, можно так сделать и как точно будет выглядеть код? спасибо

нет желания в активХ и ОСХ разбираться

поциент вы деньги принесли?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38888878
Leonid Kudryavtsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Катастрофа, не покидай форум !

Редко в под-форум Microsoft Office захожу, но теперь буду регулярно. Ради тебя. Я стал твоим поклонником.
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38983245
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
здравствуйте, появилось немного времени
перечитал тему
появился Ворд 2007
обдумал сообщение - "ContentControls появились в Office 2007"
погуглил и понял, чтобы его воочию увидеть надо на ленте ткнуть Разработчик, у меня нет его, как его заиметь? спасибо
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38983257
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
нашёл
Вкладку "разработчик" можно включить, нажав кнопку Office > Параметры Word -> Основные -> Показывать вкладку разработчик на ленте
как добавляется ContentControls?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38983258
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ага, увидел, это все ContentControls:
Формат RTF
Текст
Элемент управления содержимым рисунка
Поле со списком
Раскрывающийся список
Выбор даты
Коллекция стандартных блоков
у кого из них есть событие ContentControlBeforeDelete?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38984928
Leonid Kudryavtsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофаага, увидел, это все ContentControls:
Формат RTF
Текст
Элемент управления содержимым рисунка
Поле со списком
Раскрывающийся список
Выбор даты
Коллекция стандартных блоков
у кого из них есть событие ContentControlBeforeDelete?
Если верить доке:
https://msdn.microsoft.com/en-us/library/bb256760(v=office.12).aspx
то это событие НЕ у контролов, а у ДОКУМЕНТА
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38985217
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Leonid Kudryavtsev, спасибо, этот ресурс я видел, жаль что не гуглится эта тема на русском ресурсе

а так пробовал

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
'OldContentControl - Q - название
'InUndoRedo - В Отменить Повторить True False

Private Sub ActiveDocument_ContentControlBeforeDelete(Q, InUndoRedo)

Beep

End Sub



не взлетает, что не так? и похоже в 2003 это вряд ли заработает?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38985231
Leonid Kudryavtsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофаPrivate Sub ActiveDocument _ContentControlBeforeDelete(Q, InUndoRedo)
....
не взлетает, что не так?
IMHO не так, выделено жирным
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38985337
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Leonid Kudryavtsev, спасибо, сделал

Код: vbnet
1.
2.
3.
4.
5.
Private Sub Document_ContentControlBeforeDelete(OldContentControl, InUndoRedo)

MsgBox$ "Удалено поле"

End Sub



тогда не понятно, что когда ContentControl в документе будет несколько? как мы так делаем не обращаясь к нему по имени?
и вообще эти ContentControl интересные, их с одинаковым именем в документе можно хранить несколько штук.....???
А так вообще выдаёт ошибку после удаления ContentControl
Procedure declaration does not match description of event or procedure having the same name
Декларация процедура не соответствует описанию события или процедуры, имеющий то же имя
И как это лечится?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38985352
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ой пока сорри, забыл вставить ByVal
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38985364
vba-dev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофаLeonid Kudryavtsev, спасибо, сделал

Код: vbnet
1.
2.
3.
4.
5.
Private Sub Document_ContentControlBeforeDelete(OldContentControl, InUndoRedo)

MsgBox$ "Удалено поле"

End Sub



тогда не понятно, что когда ContentControl в документе будет несколько? как мы так делаем не обращаясь к нему по имени?
и вообще эти ContentControl интересные, их с одинаковым именем в документе можно хранить несколько штук.....???
А так вообще выдаёт ошибку после удаления ContentControl
Procedure declaration does not match description of event or procedure having the same name
Декларация процедура не соответствует описанию события или процедуры, имеющий то же имя
И как это лечится?ТС совсем не понимает о чем ему говорят.
Событие ContentControlBeforeDelete это внутренее системное событие для объекта Document. Его нельзя взять и "самому написать".

На картинке Леонида Кудрявцева - слева вверху выпадающий список объектов. Справа - список встроенных обработчиков событий для этого объекта.
У вас уже миллион постов про MS Office, стыдно такого не знать....
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38985369
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vba-dev, я не программист, так что то, что я не знаю это не удивительно и ещё бывают случаи, что я узнаю что-то но забываю...
тогда не пойму если в левом верхнем выпадающем списке объектов я выберу Document то в правом выпадающем списке в списке обработчиков событий у меня отсутствует событие ContentControlBeforeDelete и как быть?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38985423
vba-dev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
катастрофаи как быть?
Наймите программиста. Вам уже сказали, что ваша задача не решается "в лоб" средствами офиса и привели кучу обходных путей. Но суровых челябинских программистов это не устраивает...
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38985600
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vba-dev, приехали... и что я не говорил, что я только за, за решение на платной основе
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38985725
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофаvba-dev, приехали... и что я не говорил, что я только за, за решение на платной основе

это гдей то ты деньги предлагал?
это я тебе сделал коммерческое предложение на 1 млн рублей но ты как то не проявил интересу

а вообще с твоими замашками вряд ли кто захочет писать тебе даже за деньги ты же ведь потом затрахаешь что должно работать в виндовс 3.11 и иногда в DOS.
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38985780
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
капитанская дочка, про миллион это не серьёзно, про офис, конечно с 2003 и выше, про винду хрюшка и выше
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38985811
капитанская дочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофакапитанская дочка, про миллион это не серьёзно, про офис, конечно с 2003 и выше, про винду хрюшка и выше

с чего это ты взял что я шучу?

если не устраивает то давай тз и сумму а там посмотрим
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38986173
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофаvba-dev, не пойму если в левом верхнем выпадающем списке объектов я выберу Document то в правом выпадающем списке в списке обработчиков событий у меня отсутствует событие ContentControlBeforeDelete и как быть?
это я писал с рабочего компа, где офис 2003, дома щас смотрю да есть список
и что как добиться чтобы после удаления поля получил мессагу MsgBox$ "Удалено поле"?
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38987414
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
есть какое-то просветление
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Option Explicit

Private Sub Document_ContentControlBeforeDelete(ByVal OldContentControl As ContentControl, ByVal InUndoRedo As Boolean)
Dim Str As String
Dim objCC As ContentControl
Str = OldContentControl.Title     'получаем имя удаляемого контрола
InUndoRedo = True
    For Each objCC In ActiveDocument.ContentControls
        On Error Resume Next 'костыль, помогает справиться с тем, что событие
                             'Document.ContentControlBeforeDelete возникает
                             'не только при удалении контрола через интерфейс Ворда,
                             'но и при удалении данным макросом
        If objCC.Title = Str Then
        objCC.Delete True 'удаляем все остальные контролы с тем же именем
        MsgBox$ "Удалено поле " & OldContentControl.Title
        End If
    Next
End Sub



но при удалении поля четыре раза поучаю эту мессагу
Код: vbnet
1.
MsgBox$ "Удалено поле " & OldContentControl.Title


почему?

как добавить в коде реакцию на событие - клик по любому из этих контролов? спасибо
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38994437
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
для Ворд2007 сделал, прилагаю, но упираюсь не хочу с 2003 на него переходить, нужно сделать всё тоже самое только для 2003го, цена - 4444 рубля
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38994438
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
да, забыл ещё не дописал
код ниже заремарченного
'выделить текст от ContentControl Начало до ContentControl Конец

Вся прелесть, что при удалении кнтрола, его контрол-пара удаляется сам, а добавляются они макросом Add_controls
...
Рейтинг: 0 / 0
Поля следящие друг за другом
    #38994623
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
что-то не взлетает сделать выделение контрола на который ткнули, и до его пары, всего текста, что есть между этой парой, делаю и на этой строке затык:
Код: vbnet
1.
2.
3.
4.
'выделить текст от ContentControl Начало до ContentControl Конец
ActiveDocument.Range( _
            Start:=ActiveDocument.ContentControls(Left(Str, 19) & "&Начало").Range.Start, _
            End:=ActiveDocument.ContentControls(Left(Str, 19) & "&Конец").Range.Start).Select


подскажите, что не так?
...
Рейтинг: 0 / 0
69 сообщений из 69, показаны все 3 страниц
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Поля следящие друг за другом
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]