| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
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 |
|
Полезность: Нет оценки
|
Пример проще привести под задачу 
Что конкретно требуется? |
|
|
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 |
|
Полезность: Нет оценки
|
Ларчик открывался просто
Может кому пригодится для заполнения значением 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 |
|
|
|
О проекте
Поиск
Отзывы
Регистрация
Вход
