ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA. Word. Греческий символ в тексте.
6 сообщений из 6, страница 1 из 1
VBA. Word. Греческий символ в тексте.
    #33816885
ADSemenov.ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ADSemenov.ru
Гость
____ Подскажите пожалуйста, как на VBA прочесть код символа в word'е, записанный в Unicode в обычном тексте.

____ Через свойство .text, применяя и asc() и ascw() на любой греческий символ получаю ответ 40.
...
Рейтинг: 0 / 0
27.06.2006, 14:27
| Ответить | Цитировать | Написать  
VBA. Word. Греческий символ в тексте.
    #33817262
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Да, если использовать шрифт "Symbol", то будет 40, если же, например, использовать шрифт TimesNewRoman, то будет истинное значение. Почему так, трудно сказать, могу только посоветовать следующий вариант.

Код: plaintext
1.
2.
3.
4.
5.
6.
Public Sub DetectUnicode()
    If AscW(Selection.Text) =  40  Then
        MsgBox Dialogs(wdDialogInsertSymbol).CharNum
    Else
        MsgBox AscW(Selection.Text)
    End If
End Sub
...
Рейтинг: 0 / 0
27.06.2006, 16:04
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
VBA. Word. Греческий символ в тексте.
    #35046108
kminas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kminas
Гость
А как наоборот, вставить в строку символ, например, знак диаметра? Я и ASCII и Unicode пробовал все одно 125 вставляет с разными буквами или без оных. Константин
...
Рейтинг: 0 / 0
05.01.2008, 23:42
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
VBA. Word. Греческий символ в тексте.
    #38858827
Nashev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nashev
Гость
http://word.mvps.org/faqs/macrosvba/FindReplaceSymbols.htm

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Sub GetCharNoAndFont()

    With Dialogs(wdDialogInsertSymbol)
        Debug.Print "Font: " & .Font
        Debug.Print "Char number " & .CharNum
    End With

End Sub
...
Рейтинг: 0 / 0
20.01.2015, 18:37
| Ответить | Цитировать | Написать  
VBA. Word. Греческий символ в тексте.
    #38860179
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
Код: vbnet
1.
  Selection.InsertSymbol Font:="Arial Unicode MS", CharacterNumber:=216, Unicode:=True
...
Рейтинг: 0 / 0
21.01.2015, 23:05
| Ответить | Цитировать | Написать  
VBA. Word. Греческий символ в тексте.
    #38860180
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
авторА как наоборот, вставить в строку символ,
А записать макрос и посмтреть не судьба?
...
Рейтинг: 0 / 0
21.01.2015, 23:06
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA. Word. Греческий символ в тексте.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38860179&tid=2156059]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 47ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 15ms
total:  168ms
созд. / загр.: 168ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]