Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Сообщений [ 5 ]
- Зарегистрирован: 09.11.2010
- Сообщений: 3
Тема: Как обойти ограничение при автозамене
Здравствуйте, уважаемые.
Кто знает как можно обойти ограничение /Word 2003 2007/,
которое обрезает acEntry.Value (до 255 символов),
при ручном вводе извлекается и больше 255 символов...
макрос:
Sub Макрос()
' 04-11-2010 пример как достать СТРОКУ АВТОЗАМЕНЫ - поиск по значению
j = 1
l = AutoCorrect.Entries.Count
Documents.Add DocumentType:=wdNewBlankDocument
Selection.TypeText Text:=l
Selection.TypeParagraph
MsgBox (l)
For Each acEntry In AutoCorrect.Entries
l = j & " -> " & acEntry.Name & " -> " & acEntry.Value
m = Len(acEntry.Value)
Selection.TypeText Text:=m & " " & l
Selection.TypeParagraph
j = j + 1
Next acEntry
End Sub

- Вождь
- Модератор
- Неактивен
- Зарегистрирован: 07.01.2010
- Сообщений: 745
- Поблагодарили: 181
Re: Как обойти ограничение при автозамене
Используя AddRichText:
Application.Documents.Add
Selection.Text = String(500, "1")
AutoCorrect.Entries.AddRichText _
Name:="1", Range:=Selection.Range
Макросы под заказ и готовый пакет - mtdmacro.ru
- Зарегистрирован: 09.11.2010
- Сообщений: 3
Re: Как обойти ограничение при автозамене
Вождь пишет:Используя AddRichText:
Application.Documents.Add
Selection.Text = String(500, "1")
AutoCorrect.Entries.AddRichText _
Name:="1", Range:=Selection.Range
Спасибо огромное. Это создание автозамены одной единицы на 500 штук.
Вопрос был: как в макросе получить доступ ко всем 500?
То есть, как я "ни подползу" к Value - он уже усечен до 255.
AutoCorrect.Entries.Range - такого нет ни метода ни поля,
я уже думаю может как то Value в буфер как RTF перекинуть...
не получается. Помогите - расскажите, это возможно сделать?
А то придется не использовать автозамену,
а лепить какую-нибудь таблицу -
там, кстати, можно будет еще графы
для чего нибудь полезного добавить...

- Вождь
- Модератор
- Неактивен
- Зарегистрирован: 07.01.2010
- Сообщений: 745
- Поблагодарили: 181
Re: Как обойти ограничение при автозамене
Извлечь полный текст можно только через AutoCorrectEntry.Apply
Если в Вашем макросе:
acEntry.Apply Range:=Selection.Range
Если вообще, то надо создать временный документ:
Dim D As Word.Document
Dim ACE As AutoCorrectEntry
Dim S1$, S2$
Set D = Application.Documents.Add '(Visible:=False)
For Each ACE In AutoCorrect.Entries
ACE.Apply Range:=D.Range
S1 = ACE.Name
S2 = D.Range
If MsgBox(Prompt:=S1 & vbLf & S2, _
Buttons:=vbOKCancel) <> vbOK Then Exit For
D.Undo
Next ACE
D.Close SaveChanges:=False
Макросы под заказ и готовый пакет - mtdmacro.ru
- Зарегистрирован: 09.11.2010
- Сообщений: 3
Re: Как обойти ограничение при автозамене
Огромное спасибо
великолепно
Наверное, обращусь к Вам с предложением
Сообщений [ 5 ]
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Как обойти ограничение при автозамене
Если ваша деятельность связана со значительными объемами текстов, то неплохо бы досконально изучить свою версию редактора (чаще всего этим редактором является Microsoft Word). Наш сайт о Microsoft Office Word даст ответ про: как установить межстрочный интервал в вордовской таблице.
Сделать это можно, прочитав специальную литературу и пообщавшись, к примеру, с другими пользователями. Наш сайт о Microsoft Office Word даст ответ про: линейка в мм.
Многое вы почерпнете и на специализированном форуме сайта Ворд Эксперт.
Ответы на вопросы, как быстро и безболезненно отформатировать запущенный текст, разобраться с колонтитулами, написать в автоматическом режиме макрос и многое другое вы найдете на страничке нашего форума. Наш сайт о Microsoft Office Word даст ответ про: гиперссылка как сделать в цщкв без ctrl.
Стили, таблицы, шрифты, заголовки. Готовые шаблоны и настройки программы для оптимальной работы. В разделе «Настройки и Форматирование» можно обсудить все существующие версии Ворда. Наш сайт о Microsoft Office Word даст ответ про: найти курсив в ворде.
Наверняка, есть функции, которые прошли мимо вас, какие-то операции можно оптимизировать. Например, предложено много способов поставить ударение в тексте, использовать функцию «Найти и Заменить» и многое другое. На портале о Microsoft Office Word вы узнаете про: календарь 2012 word.
В разделе «Автоматизация» главное внимание уделено шаблонам, макросам и полям. Обсуждают там проблемы печати документов, гиперссылки, вставки и многое другое. Наш сайт о Microsoft Office Word даст ответ про: как в ворде развернуть развернуть лист и пичатать.
В Ворде поддается автоматизации практически все.
На форуме есть раздел, где вы можете посмотреть готовые решения или поделиться своими, есть подфорум, для заказов. Наш сайт о Microsoft Office Word даст ответ про: как сделать роспись в ворде.
В общем, весьма полезно будет и новичкам, и довольно продвинутым юзерам. Каждый найдет для себя небезынтересную информацию. На портале о Microsoft Office Word вы узнаете про: ворд пишет по 2 буквы.