Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: слияние документов Ворд  (Прочитано 4317 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Ципихович Эндрю
Помогающий

ru
Offline Offline

« : 11-04-2011 12:15 » 

слияние документов Ворд в настоящее время делаю так имеются поля в документе типа: { REF Должность \*Charformat \*FirstCap } и к ней же закладка "Должность" их, поля обновляет прога, что удобно, что ключ Charformat следит за форматированием, какой у ключа формат, так и обновляет, а ключ FirstCap в случае надобности делает с большой строки. Плюс еще в том, что распечатку документов делает прога и она следит за тем чтобы в закладках всё было правильно. Решил обновлять не с закладок, а с формы, как бы сделать, чтобы функционал остался прежним?? Спасибо

Добавлено через 8 дней, 4 часа, 18 минут и 15 секунд:
функционал нашёл, остальное дело техники, может кто подправит?? что другое посоветует??
Код:
Обрабатываемое_поле_номер = 1
Код_обрабатываемого_поля = Trim$(ActiveDocument.Fields(Обрабатываемое_поле_номер).Code)
'обновление текста поля, следует поле обновить перед выяснением свойств его формата
ActiveDocument.Fields(Обрабатываемое_поле_номер).Update

If Mid(Код_обрабатываемого_поля, 1, 4) = "REF " Then
If Код_обрабатываемого_поля Like "*\*FirstCap*" Then FirstCap = True
With ActiveDocument.Fields(Обрабатываемое_поле_номер).Result.Font
  Название_шрифта_текста_в_поле = .Name
  Размер_шрифта_текста_в_поле = .Size
  '-1 - значит курсивный текст
  Курсивное_начертание_текста_в_поле = .Italic
  '-1 - значит полужирное начертание текста
  Полужирное_начертание_текста_в_поле = .Bold
  '1 - значит подчёркнутый текст
  Подчёркнутое_начертание_текста_в_поле = .Underline
  '255 - красный, 0 - Auto
  Цвет_текста_текста_в_поле = .Color
End With
End If
« Последнее редактирование: 19-04-2011 16:33 от Ципихович Эндрю » Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines