CftClub.ru
Клуб специалистов ЦФТ-Банк

WORD. Значение CheckBox1

 
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Разработка в PL/PLUS. Оптимизация запросов Oracle
Предыдущая тема :: Следующая тема  
Автор Сообщение
a_abdugani
Участник со стажем


Вступление в Клуб: 14.04.2011
СообщениеВс Июн 19, 2011 07:22   WORD. Значение CheckBox1 Ответить с цитатой
Полезность: Нет оценки
Доброе утро всем!
Кто-нибудь использовал изменить значение объекта Checkbox документа word, т.е. установить (или снять) галочку программным путем.
r00st
Эксперт


Вступление в Клуб: 14.09.2007
СообщениеВс Июн 19, 2011 08:21    Ответить с цитатой
Полезность: Нет оценки
Да. При использовании word.cmd проблем не возникает.
a_abdugani
Участник со стажем


Вступление в Клуб: 14.04.2011
СообщениеВс Июн 19, 2011 09:48   Можете привести пример. На примерах легче понят Ответить с цитатой
Полезность: Нет оценки
Можете привести пример. На примерах легче понят.
r00st
Эксперт


Вступление в Клуб: 14.09.2007
СообщениеВс Июн 19, 2011 11:53    Ответить с цитатой
Полезность: Нет оценки
Пример проще привести под задачу Smile
Что конкретно требуется?
a_abdugani
Участник со стажем


Вступление в Клуб: 14.04.2011
СообщениеПн Июн 20, 2011 08:04   Реализовал через клиент скрипт, а возможно-ли на сервере? Ответить с цитатой
Полезность: Нет оценки
Задача следующая. Есть шаблон word. Там есть объект CheckBox1. Чтобы при выводе докеумента WORD у CheckBox1 появилась галочка.

На клиент скрипте делаю так.

Public Function Main(LastControl)
On Error Resume Next
If LastControl is OK then
if not OpenWordDoc(WrdApp, WrdDoc, GetData("REPORTFILE")) then
MsgBox "Can not open file!"
Main = False
Exit Function
end if
call SetWordVisible(WrdApp, WrdDoc)
WrdApp.ActiveDocument.CheckBox1.Value = true
End If

Main = True
End Function
Alexsey
Эксперт


Вступление в Клуб: 06.09.2007
СообщениеПн Июн 20, 2011 18:43   Re: Реализовал через клиент скрипт, а возможно-ли на сервере Ответить с цитатой
Полезность: Нет оценки
a_abdugani пишет:
Задача следующая. Есть шаблон word. Там есть объект CheckBox1. Чтобы при выводе докеумента WORD у CheckBox1 появилась галочка.

На клиент скрипте делаю так.

Public Function Main(LastControl)
On Error Resume Next
If LastControl is OK then
if not OpenWordDoc(WrdApp, WrdDoc, GetData("REPORTFILE")) then
MsgBox "Can not open file!"
Main = False
Exit Function
end if
call SetWordVisible(WrdApp, WrdDoc)
WrdApp.ActiveDocument.CheckBox1.Value = true
End If

Main = True
End Function


Сделай так:

Код:
Public Function Main(LastControl)
   On Error Resume Next
   If LastControl is OK then
      if not OpenWordDoc(WrdApp, WrdDoc, GetData("REPORTFILE")) then
         MsgBox "Can not open file!"
         Main = False
         Exit Function
      end if
      WrdDoc.CheckBox1.Value = true
      call SetWordVisible(WrdApp, WrdDoc)
   End If

   Main = True
End Function

_________________
всегда есть как минимум 2 выхода
a_abdugani
Участник со стажем


Вступление в Клуб: 14.04.2011
СообщениеВт Июн 21, 2011 06:04   Тоже самое что и WrdApp.ActiveDocument.CheckBox1.Value = tru Ответить с цитатой
Полезность: Нет оценки
Тоже самое что и WrdApp.ActiveDocument.CheckBox1.Value = truе
r00st
Эксперт


Вступление в Клуб: 14.09.2007
СообщениеВт Июн 21, 2011 10:05    Ответить с цитатой
Полезность: Нет оценки
Код:
         if not OpenWordDoc(WrdApp, WrdDoc, Grid.Text (cur_pat - 1, 1)) then
            MsgBox "Can not open file!"
            Main = False
            Exit Function
         end if

         dim FieldsColl
         set FieldsColl = WrdApp.ActiveDocument.FormFields
         if FieldsColl.Count >= 1 then
            for Each aField in FieldsColl
               if aField.Type = 71 then' 71 = CheckBox
                  aField.CheckBox.Value = true
               end if
            next
         end If
Pauls
Участник со стажем


Вступление в Клуб: 16.11.2011
СообщениеСр Окт 01, 2014 09:06    Ответить с цитатой
Полезность: Нет оценки
Коллеги, доброе утро. Помоги, пожалуйста, советом - как сделать отмеченный тип поля в шаблоне word (см.вложение)
Ранее, в библиотеке word этот тип поля использовался как тип с кодом 71, а теперь обрабоотка исключена.[/img]
Pauls
Участник со стажем


Вступление в Клуб: 16.11.2011
СообщениеСр Окт 01, 2014 09:07    Ответить с цитатой
Полезность: Нет оценки
Коллеги, доброе утро. Помоги, пожалуйста, советом - как сделать отмеченный тип поля в шаблоне word (см.вложение)
Ранее, в библиотеке word этот тип поля использовался как тип с кодом 71, а теперь обрабоотка исключена.
Pauls
Участник со стажем


Вступление в Клуб: 16.11.2011
СообщениеСр Окт 01, 2014 10:23    Ответить с цитатой
Полезность: Нет оценки
не могли бы вы уточнить как чере word.cmd можно установить значения конкретных полей?
Pauls
Участник со стажем


Вступление в Клуб: 16.11.2011
СообщениеПт Окт 03, 2014 09:10    Ответить с цитатой
Полезность: Нет оценки
Ларчик открывался просто Smile
Может кому пригодится для заполнения значением TRUE/FALSE полей-cgeckbox в зависимости от каких либо условий
Например, в шаблоне имеется поле checkbox с наименованием закладки "Флажок1".
1. В секции Проверка задаю (например)
elsif p_info = 'БЕНЕФИЦИАР_ИНОСТРАН' then
if <вычисления значения выражения> then
P_DATA := 'ДА';
else
P_DATA := 'НЕТ';
end if;
2. В клиент-скрипте пишу так:
if GetData("БЕНЕФИЦИАР_ИНОСТРАНТ")="ДА" then
WrdApp.ActiveDocument.FormFields("Флажок1").CheckBox.Value = True
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Разработка в PL/PLUS. Оптимизация запросов Oracle Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Рейтинг@Mail.ru