1

Тема: Фамилия и инициалы.

Вот тут http://wordexpert.ru/page/ispolzovanie- … ksta-polya нашла то что мне нужно, но выскакивает ошибка в макросе (последняя строка). Во вложении мой файл. Прошу помощи, что там у меня не так.

Post's attachments

111.rar 124.04 Кб, 2 скачиваний с 2017-08-22 

You don't have the permssions to download the attachments of this post.

2

Re: Фамилия и инициалы.

Что-то файл не загрузился. Пробую еще раз. Не грузятся фалы, ни архивированные, ни обычные шаблоны, ни картинки. Что за ерунды? Корче в коде

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

ошибка в последней строке.

3

Re: Фамилия и инициалы.

ваш 111.dotm посмотреть не смогла ---не распаковывается архив
увидела только картинку с ошибкой

создайте архив снова

4

Re: Фамилия и инициалы.

а макрос вполне работает, что-то вы неправильно сохраняете или отчество не набили, а макрос вызвали на выполнение
или один документ не сохранили, а открыли другой

5

Re: Фамилия и инициалы.

Что-то не могу прикрепить тут файл. Там где прикрепляю, пишет файл не скачен. Пробовала различные виды файлов прикрепить на разных браузерах, результат тот же.

6

Re: Фамилия и инициалы.

Irina18 пишет:

Что-то не могу прикрепить тут файл. Там где прикрепляю, пишет файл не скачен. Пробовала различные виды файлов прикрепить на разных браузерах, результат тот же.

Попробуйте прикрепить архив. Может быть, файл очень большой?
В крайнем случае можно разместить файл на файлообменник, а здесь выложить ссылку.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

7

Re: Фамилия и инициалы.

Ссылка на файл внешняя ссылка. На другом форуме предложили заменить это

ActiveDocument.Bookmarks("fio").Select

на это

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

, а это

Selection.TypeText sResult1

удалить, но все равно не работает. Всем спасибо.

8

Re: Фамилия и инициалы.

У вас файл защищен от изменений(кроме форм)
поэтому строка, изменяющая документ  -работать не будет

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

поля REF работают, а  передача из поля ввода в закладку или другое поле ппода --не работает(я не смогла заставить)
1             FORMTEXT     покуп  04ооооо
2             FORMTEXT     продав 04 пппп ппппппппппп
3             FORMTEXT     полные 4фамилия2 имя отчество
4             FORMTEXT     краткое фамилияИО
5             REF  pkupatel \* Caps  \* MERGEFORMAT    Покуп  04ооооо
6             REF  prodavec \* Caps  \* MERGEFORMAT    Продав 04 Пппп Ппппппппппп
7             REF bm \* Caps  \* MERGEFORMAT           Полные Фамилия2 Имя Отчество
8             REF fio1 \* Caps  \* MERGEFORMAT         Краткое Фамилияио

9

Re: Фамилия и инициалы.

Я в этих макросах практически ничего не понимаю, ведь в поля продавец и покупатель я ввожу данные, при защищенном листе, и в закладках происходит дублирование. А почему в закладку продавец1 инициалы данные не доходят? Файл по ссылке внешняя ссылка.
Спасибо.

10

Re: Фамилия и инициалы.

продавец и покупатель копируются полем REF. это делает система
получение же краткойФИО требует записи в закладку/поле макросом ---это и не работает

====
или неправильно вызываем макрос --я не смогла заставить его работать
--сначала не запускался совсем
--перепробовала все --стал запускаться, но отказался изменять защищенный документ

почему вы идете таким путем(из ворда в ворд)

11

Re: Фамилия и инициалы.

Примеры взяла на этом форуме тут http://wordexpert.ru/page/ispolzovanie- … ksta-polya и тут http://wordexpert.ru/page/vvod-chasto-p … tov-teksta. Хотела реализовать, но не получается.

12

Re: Фамилия и инициалы.

Ответ я так и не получила. Надо было вот что, файл тут внешняя ссылка. Спасибо что помогли на другом форуме.