Тема: Как обойти ограничение при автозамене
Здравствуйте, уважаемые.
Кто знает как можно обойти ограничение /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