Серый форум — VBA Word: Проверка ввода в Formfield под защитой

Re: VBA Word: Проверка ввода в Formfield под защитой

2020-03-01T05:10:20Z

Сердечно благодарю, работает.

Re: VBA Word: Проверка ввода в Formfield под защитой

2020-02-29T14:25:01Z

o5andrey, давайте попробуем для Вашего случая:

o5andrey пишет:

Для того чтобы она повторялась (чтобы потом разрезав получить две копии) я после такой формы вставляю ещё перекрёстную ссылку на всю форму целиком.

Заменим строку:

With ThisDocument.FormFields.Item(Selection.Bookmarks.Item(1).Name)

на:

With ThisDocument.FormFields.Item(Selection.Bookmarks.Item(Selection.Bookmarks.Count).Name)

Re: VBA Word: Проверка ввода в Formfield под защитой

2020-02-29T09:12:46Z

Спасибо за помощь, мне бы до такого выкрутаса не додуматься: ThisDocument.FormFields.Item(Selection.Bookmarks.Item(1).Name)
Высокоуровневое программирование - что разгадывание ребусов.

Re: VBA Word: Проверка ввода в Formfield под защитой

2020-02-29T08:39:07Z

Я понял в чём дело в моём файле.
Моя форма представляет собой три таблицы на половину листа А4. Для того чтобы она повторялась (чтобы потом разрезав получить две копии) я после такой формы вставляю ещё перекрёстную ссылку на всю форму целиком. Как только я удалил эту закладку на всё целиком - проверка заработала.
Вы не подскажете мне как сделать копию формы иным способом?

Re: VBA Word: Проверка ввода в Formfield под защитой

2020-02-29T05:57:59Z

Действительно работает.
А почему в моём файле не работает? (поля "цех" и "тип датчика" в начале)
https://dropmefiles.com/eJzXK

Re: VBA Word: Проверка ввода в Formfield под защитой

2020-02-28T17:53:11Z

o5andrey пишет:

Опять "говорит" "Запрашиваемый номер семейства не существует" (5941)

+ открыть спойлер

FormFields.doc.7z

Re: VBA Word: Проверка ввода в Formfield под защитой

2020-02-28T02:47:05Z

Опять "говорит" "Запрашиваемый номер семейства не существует" (5941)
Без защиты тоже не хочет...
(закладки у меня есть)

Re: VBA Word: Проверка ввода в Formfield под защитой

2020-02-27T18:19:26Z

o5andrey пишет:

(Задача - сделать проверку введённых данных. Ну вернее просто убрать переносы строки, если пользователь их поставил, и заменить точки на запятые.)

Например, так:

Option Explicit

Sub Sample()
    With ThisDocument.FormFields.Item(Selection.Bookmarks.Item(1).Name)
        If .Type = wdFieldFormTextInput Then
            .Result = Replace(Replace(.Result, ".", ","), vbCr, "")
        End If
    End With
End Sub

Само собой, все поля должны иметь закладки (по умолчанию оные есть).

VBA Word: Проверка ввода в Formfield под защитой

2020-02-27T07:07:50Z

Здравствуйте.
Хочу в защищённом документе-форме при выходе из конкретного поля узнать его имя
'(пример из справки)
If Selection.FormFields.Count >= 1 Then
MsgBox Selection.FormFields(1).Name
End If
Я понял что под защитой это работать не может... не знаю как выкрутиться.
Может Вы знаете как узнать идентификатор отредактированного поля через макрос выхода/входа?
Когда пробовал временно снимать защиту, он (Word) тоже "отказался"...
(Задача - сделать проверку введённых данных. Ну вернее просто убрать переносы строки, если пользователь их поставил, и заменить точки на запятые.)