Проблем в следующем:
Пишеться макрос, через InputBox вводяться буковки русские.
И только.
Далее необходимо чтобы эти буковки стали в документе вместо других.
И тут проявляется такой феномен - ничего не видно.
Не видно в документе, не видно в тектовом редакторе, но при этом объект существует и средствами VBA можно вытащить его содержимое, которое MsgBox отображается верно.
Sub Test()
Dim MyName As String, T As Shape
MyName = InputBox("Введите имя")
Set T = ActivePage.TextFind("Name", False)
MsgBox VarType(T)
MsgBox TypeName(T)
T.CreateSelection
With ActiveShape.Text
MsgBox .Contents
.Contents = Name
MsgBox .Contents
MsgBox .CharacterCount
End With
End Sub
Вот примерчик кода.
Кстати OldText здесь представлен латиницей в моем случае -это не критично.
Но если текст записан кирилицей, то TypeName выдает "ничего".
Про кривые шрифты не говорите: испольшую Tahoma. Шрифт не важен.
Arkady, есть предложения?
P.S. У Вакуленко на Обероне я ответа не получил.
Пишеться макрос, через InputBox вводяться буковки русские.
И только.
Далее необходимо чтобы эти буковки стали в документе вместо других.
И тут проявляется такой феномен - ничего не видно.
Не видно в документе, не видно в тектовом редакторе, но при этом объект существует и средствами VBA можно вытащить его содержимое, которое MsgBox отображается верно.
Sub Test()
Dim MyName As String, T As Shape
MyName = InputBox("Введите имя")
Set T = ActivePage.TextFind("Name", False)
MsgBox VarType(T)
MsgBox TypeName(T)
T.CreateSelection
With ActiveShape.Text
MsgBox .Contents
.Contents = Name
MsgBox .Contents
MsgBox .CharacterCount
End With
End Sub
Вот примерчик кода.
Кстати OldText здесь представлен латиницей в моем случае -это не критично.
Но если текст записан кирилицей, то TypeName выдает "ничего".
Про кривые шрифты не говорите: испольшую Tahoma. Шрифт не важен.
Arkady, есть предложения?
P.S. У Вакуленко на Обероне я ответа не получил.