Фамилия и инициалы

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Фамилия и инициалы (В документе Word в закладке получить фамилию и инициалы.)

Фамилия и инициалы

bsi

Дата: Вторник, 22.08.2017, 19:46 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Необходимо после ввода данных (фамилия, имя, отчество) в поле Покупатель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]
У меня код не выдает результат, остановка происходит на последней строке.
Подскажите в чем проблема.

К сообщению приложен файл: 2222.docm (16.0 Kb)

Ответить

AndreTM

Дата: Вторник, 22.08.2017, 22:32 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 500 ±

Замечаний: 0% ±

2003 & 2010

Ну вы же вроде ранее в коде "читаете" текст из закладки?

Почему вы решили, что записывать в закладку надо именно через "выделим закладку, напечатаем буковки"?
Достаточно
[vba]

Код

ActiveDocument.Bookmarks("fio").Range.Text = sResult1

[/vba]

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

bsi

Дата: Среда, 23.08.2017, 09:11 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

AndreTM, спасибо за участие. Код написан не мной, я нашел его в инете тут http://wordexpert.ru/page....a-polya делал вроде све как там написано. Если я [vba]

Код

ActiveDocument.Bookmarks("fio").Select

[/vba] меняю на [vba]

Код

ActiveDocument.Bookmarks("fio").Range.Text = sResult1

[/vba] и закомментирую строку [vba]

Код

Selection.TypeText sResult1

[/vba] , после ввода данных в поле выскакивает сообщение ошибка 6124 вам не разрешено редактировать этот выделенный фрагмент, т.к. он защищен. Файл прилагаю. Если не трудно изменить там что нужно, чтобы код работал. Я в этих делах опыта практически не имею. Спасибо за участие.

К сообщению приложен файл: 22.docm (17.7 Kb)

Сообщение отредактировал bsi - Среда, 23.08.2017, 09:31

Ответить

AndreTM

Дата: Среда, 23.08.2017, 12:46 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 500 ±

Замечаний: 0% ±

2003 & 2010

Я не специалист по Word

Если ругается на защиту - так вы пробовали при отключенной защите запускать? работает?
Если защита все же нужна - так в момент внесения исправлений отключайте, потом снова включайте (программно). Запишите макрорекордером, как отключается-включается - и дополните код.

А вообще - как это вы, "не имея опыта", пытаетесь использовать макросы, формы ввода, защищенные документы... Если вы не понимаете, что там происходит в документе - то по какому принципу вы там что-то пытаетесь автоматизировать?

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

bsi

Дата: Воскресенье, 27.08.2017, 10:30 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Вот что надо было сделать (файл во вложении). Помогли на другом форуме.

К сообщению приложен файл: 9058382.docm (37.2 Kb)

Ответить

Страница 1 из 1
1