Необходимо после ввода данных (фамилия, имя, отчество) в поле Покупатель1, в закладке Покупатель1 инициалы, получить фамилию и инициалы. Имею следующий код: [vba]
Код
Sub FIO() Dim bm As Bookmark Dim sText As String Dim sArray() As String Dim sResult1 As String Dim sResult2 As String Set bm = ActiveDocument.Bookmarks("bm") sText = bm.Range.Text sArray = Split(sText) sResult1 = sArray(0) & " " sResult1 = sResult1 & Left(sArray(1), 1) & ". " sResult1 = sResult1 & Left(sArray(2), 1) & "." sResult2 = sArray(2) & " " sResult2 = sResult2 & sArray(1) ActiveDocument.Bookmarks("fio").Select Selection.TypeText sResult1 End Sub
[/vba] У меня код не выдает результат, остановка происходит на последней строке. Подскажите в чем проблема.
Необходимо после ввода данных (фамилия, имя, отчество) в поле Покупатель1, в закладке Покупатель1 инициалы, получить фамилию и инициалы. Имею следующий код: [vba]
Код
Sub FIO() Dim bm As Bookmark Dim sText As String Dim sArray() As String Dim sResult1 As String Dim sResult2 As String Set bm = ActiveDocument.Bookmarks("bm") sText = bm.Range.Text sArray = Split(sText) sResult1 = sArray(0) & " " sResult1 = sResult1 & Left(sArray(1), 1) & ". " sResult1 = sResult1 & Left(sArray(2), 1) & "." sResult2 = sArray(2) & " " sResult2 = sResult2 & sArray(1) ActiveDocument.Bookmarks("fio").Select Selection.TypeText sResult1 End Sub
[/vba] У меня код не выдает результат, остановка происходит на последней строке. Подскажите в чем проблема.bsi
AndreTM, спасибо за участие. Код написан не мной, я нашел его в инете тут http://wordexpert.ru/page....a-polya делал вроде све как там написано. Если я [vba]
[/vba] , после ввода данных в поле выскакивает сообщение ошибка 6124 вам не разрешено редактировать этот выделенный фрагмент, т.к. он защищен. Файл прилагаю. Если не трудно изменить там что нужно, чтобы код работал. Я в этих делах опыта практически не имею. Спасибо за участие.
AndreTM, спасибо за участие. Код написан не мной, я нашел его в инете тут http://wordexpert.ru/page....a-polya делал вроде све как там написано. Если я [vba]
[/vba] , после ввода данных в поле выскакивает сообщение ошибка 6124 вам не разрешено редактировать этот выделенный фрагмент, т.к. он защищен. Файл прилагаю. Если не трудно изменить там что нужно, чтобы код работал. Я в этих делах опыта практически не имею. Спасибо за участие.bsi
Если ругается на защиту - так вы пробовали при отключенной защите запускать? работает? Если защита все же нужна - так в момент внесения исправлений отключайте, потом снова включайте (программно). Запишите макрорекордером, как отключается-включается - и дополните код.
А вообще - как это вы, "не имея опыта", пытаетесь использовать макросы, формы ввода, защищенные документы... Если вы не понимаете, что там происходит в документе - то по какому принципу вы там что-то пытаетесь автоматизировать?
Я не специалист по Word
Если ругается на защиту - так вы пробовали при отключенной защите запускать? работает? Если защита все же нужна - так в момент внесения исправлений отключайте, потом снова включайте (программно). Запишите макрорекордером, как отключается-включается - и дополните код.
А вообще - как это вы, "не имея опыта", пытаетесь использовать макросы, формы ввода, защищенные документы... Если вы не понимаете, что там происходит в документе - то по какому принципу вы там что-то пытаетесь автоматизировать? AndreTM
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
