ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программно поменять значение в колонтитуле
13 сообщений из 13, страница 1 из 1
Программно поменять значение в колонтитуле
    #39026754
Егор Коваленко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Егор Коваленко
Гость
Приветствую.

Есть документ word, в нем инженерная рамка в виде колонтитула, в рамке элемент надпись, так вот, как программно заменить в этой рамке значение.

Прикладываю файл... поменять надо надпись 12/15-Вл-1-СП

Основную замену по документам делаю через
Код: vbnet
1.
2.
3.
4.
5.
6.
Sub ProcessDocument(TargetDoc As Document, FindPhrase As String, ReplacePhrase As String)
  With TargetDoc.Content.Find
    .Text = FindPhrase
    .Execute FindText:=FindPhrase, ReplaceWith:=ReplacePhrase, Replace:=wdReplaceAll
  End With
End Sub



он не захватывает колонтитул, пробовал переключать View, переключает, но что бы сделать замену нужно получить фокус элемента надпись, как это сделать?
...
Рейтинг: 0 / 0
11.08.2015, 08:42
| Ответить | Цитировать | Написать  
Программно поменять значение в колонтитуле
    #39026774
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Включи запись макроса, сделай требуемое руками, останови запись и изучи полученный код.
...
Рейтинг: 0 / 0
11.08.2015, 09:11
| Ответить | Цитировать | Написать  
Программно поменять значение в колонтитуле
    #39026780
Егор Коваленко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Егор Коваленко
Гость
Akina, я когда включаю макрос, я не могу в колонтитуле выделить нужный объект, соответственно макрос не записывает нужное действие.
...
Рейтинг: 0 / 0
11.08.2015, 09:16
| Ответить | Цитировать | Написать  
Программно поменять значение в колонтитуле
    #39026833
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Посмотрел я твой док. Плюнь ты на это дело... мало того, что эта твоя рамка сляпана из кучи отдельных надписей, так там ещё эти надписи дважды группированы. Пока ты до нужной надписи программно доберёшься - слезьми кровавыми умоешься...
...
Рейтинг: 0 / 0
11.08.2015, 10:31
| Ответить | Цитировать | Написать  
Программно поменять значение в колонтитуле
    #39027615
Борис_Р
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Борис_Р
Гость
Егор Коваленко, Проблему можно решить без макросов.
В приложенном файле постоянная часть номера проекта помещена в Content Control. При изменении текста в любом контроле в остальных контролах текст меняется автоматически (после изменения текста в контроле надо щелкнуть мышью в в тексте вне контрола и тогда будет виден результат).
Новый контрол с теми же свойствами можно вставить копированием существующего в новое место.

Для создания контролов использовалась надстройка Content Control Tools от Gregory K. Maxey

Описание Content Control и задачи, которые можно решать с их помощью см.:
http://gregmaxey.mvps.org/word_tip_pages/content_controls.html

Саму надстройку можно скачать отсюда:
http://gregmaxey.mvps.org/word_tip_pages/content_control_tools.html
...
Рейтинг: 0 / 0
12.08.2015, 10:48
| Ответить | Цитировать | Написать  
Программно поменять значение в колонтитуле
    #39035946
Егор Коваленко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Егор Коваленко
Гость
Борис_Р, спасибо за совет! Полезная штука!
...
Рейтинг: 0 / 0
25.08.2015, 19:54
| Ответить | Цитировать | Написать  
Программно поменять значение в колонтитуле
    #39036043
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Борис_Р, здравствуйте, Вы рекламируете сей продукт и это здорово
...
Рейтинг: 0 / 0
26.08.2015, 05:06
| Ответить | Цитировать | Написать  
Программно поменять значение в колонтитуле
    #39036044
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Борис_Р,
я на английском не читатель
...
Рейтинг: 0 / 0
26.08.2015, 05:07
| Ответить | Цитировать | Написать  
Программно поменять значение в колонтитуле
    #39036046
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Борис_Р,
скажите я правильно понял, это работает начиная с Ворд2007?
событие перед удалением насколько я знаю отрабатывается
скажите пожалуйста событие после добавления в документ обрабатывается?
можете дать код примера? спасибо
...
Рейтинг: 0 / 0
26.08.2015, 05:10
| Ответить | Цитировать | Написать  
Программно поменять значение в колонтитуле
    #39037256
Борис_Р
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Борис_Р
Гость
катастрофаскажите я правильно понял, это работает начиная с Ворд2007?
событие перед удалением насколько я знаю отрабатывается
скажите пожалуйста событие после добавления в документ обрабатывается?
можете дать код примера? спасибо
1. Да, ContentControls появились в объектной модели Ворд начиная с Ворд 2007. В более ранних версиях они отсутствуют.

2. Пример кода обработки события при добавлении нового контрола:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Document_ContentControlAfterAdd(ByVal NewContentControl As ContentControl, ByVal InUndoRedo As Boolean)
    MsgBox "В документ вставлен ContentControl типа " & NewContentControl.Type & _
    vbCr & "ID контрола " & NewContentControl.ID & vbCr & "Значение InUndoRedo " & InUndoRedo
    If NewContentControl.Type = wdContentControlText Or NewContentControl.Type = wdContentControlRichText Then
       NewContentControl.Range.Text = "ID контрола " & NewContentControl.ID
    End If
End Sub


катастрофа, все еще мучают "Поля, следящие друг за другом"?
...
Рейтинг: 0 / 0
27.08.2015, 10:44
| Ответить | Цитировать | Написать  
Программно поменять значение в колонтитуле
    #39037323
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Борис_Р, спасибо за ответ....
...
Рейтинг: 0 / 0
27.08.2015, 12:12
| Ответить | Цитировать | Написать  
Программно поменять значение в колонтитуле
    #39038844
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Борис_Р,
>катастрофа, все еще мучают "Поля, следящие друг за другом"?
конечно-один осадок остался, как бы обсчитать?
когда стоит этот контрол и правее его стоит абзац и если ткнуть в абзац, а не в контрол, то происходит событие - клик по контролу, а надо обрабатывать когда точно на него ткнут, как?
...
Рейтинг: 0 / 0
28.08.2015, 19:44
| Ответить | Цитировать | Написать  
Программно поменять значение в колонтитуле
    #39039080
Борис_Р
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Борис_Р
Гость
катастрофа, по моему вставка после контрола хотя бы одного пробела перед знаком абзаца может решить эту проблему.

P.S. Давайте не будем устраивать из темы помойку. Ведь наш с вами междусобойчик очень далеко от вопроса топикстартера.


Модератор: Борис, спасибо, я не заметил, что это чужая тема, Эндрю - предупреждение!
...
Рейтинг: 0 / 0
29.08.2015, 11:11
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Программно поменять значение в колонтитуле
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39036046&tid=2173376]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 29ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 12ms
total:  127ms
созд. / загр.: 127ms
x
x
Закрыть


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