Вставка символов

[Senjja]

Привет Всем!
Как вставить в текст документа:
1.Символ, конкретно цифру, но в круге
2.Римскую цифру
Спасибо!

[БуреВестник]

Для вставки Римских цифр переключи язык клавиатуры на Английский. А как вставлять цифры в кружке, не знаю, а зачем тебе это надо?

[viter.alex]

Цифру в круге можно вставить как надпись, а римскую цифру сделать полем.

Код поля такой:{= 237 \* ROMAN}
А вот так макросом можно сделать римскую цифру:

Sub MakeRoman()
  If Not IsNumeric(Trim(Selection.Text)) Then Exit Sub
  ActiveDocument.Fields.Add(Selection.Range, wdFieldEmpty, "= " & Selection.Text & "\*Roman").Unlink
End Sub

[Senjja]

Сообщение от БуреВестник

Для вставки Римских цифр переключи язык клавиатуры на Английский. А как вставлять цифры в кружке, не знаю, а зачем тебе это надо?

Для удобства, иногда в тексте требуется написать, например, "нажмите кнопку 1", просто цифра не очень заметна, а в кружке более информативно.
Кстати, как это переключи на английский? Переключил, как напечатать римскую 1 в этом режиме? Или 5?

[БуреВестник]

Один это английская i, пять - это v.
Вот на основании совета Витера и своих знаний сделал пример. Сделал я это следующим образом: открыл Панель инструментов "Рисование" - Вставил овал (чтобы получался круг, надо удерживать клавишу Shift) - щ. пр. кн. мыши по нему - Формат автофигуры - Положение - В тексте - Ок - щ. пр. кн. мыши по нему - Добавить надпись. В результате получается круглая надпись. Теперь щ. пр. кн. мыши по ней - Копировать - В меню ищем Вставка - Автотекст - Создать - Введи имя, чтобы начиналось с Дефиса, чтобы было проще найти потом, - Окей. Затем: Сервис - Настройка - Клавиатура - В левом столбце выбери "Автотекст" - В правом столбце выбери название Автотекста, которое ты только что придумал (оно будет в начале) - Новое сочетание клавиш - выбери клавишу от F2 до F12 - Назначить. Теперь, чтобы вставить круглую надпись тебе надо будет нажать одну клавишу.
Чтобы между строками в абзаце было одинаковое расстояние, посмотри во вложенном документе Формат - Абзац - как я сделал.

[Scolopendra]

Возможно пригодится:
В Windows XP есть шрифт Arial Unicode. В этом шрифте есть символы с кодами от 8544 до 8559 для римских цифр (Ⅰ, Ⅴ, Ⅹ, Ⅻ, Ⅼ, Ⅽ, Ⅾ, Ⅿ — эти цифры введены именно через коды; цифра Ⅻ — один символ), и с кодами от 9312 до 9331 для цифр в кружочках (от ① до ⑳). Вводится так: Alt+код. Например, Alt+9325 для ⑭. Переключаться на шрифт Arial Unicode по-моему даже не обязательно. В web-форме, как видите, тоже ввелось

[VistaSV30]

Вчера понадобилось как то выделить пункты нумерованного списка в документе. И вспомнил про это сообщение.

Перепробовал все, что здесь советуют. Конечно получается, как надо, но при передвижении, редактировании текста объекты фигуры могут перемещаться отдельно от текста.
В стандартном наборе шрифтов есть - Wingdings, где уже есть готовые цифры в кружках, но при обновлении эти знаки шрифта Wingdings преобразуются в шрифт абзаца.

Нашел оптимальное решение и по моему гораздо проще и удобнее.
Вставить рисунок SmartArt, там много чего есть на любой вкус и в тексте это и смотрится хорошо и редактируется как надо.
А если у вас Word-2003, а не 2007, то там тоже, что-то подобное было, кажется называлось "Организационная диаграмма"

[Palmer]

Выбирай в меню вставка - символ, укажи шрифт - Wingdings 2 там и найдешь цифры в кружочке.
А римские цифры с английской раскладки клавиатуры.

[Hell-v]

Доброго времени суток!!!!
Есть такая проблема. В документе встречаются различные символы, среди них есть символ умножения (крестик). Мне требуется везде, где он встречается заменить его на русскую букву х. Но обычным способом не получается.
If AscW(f) = 215 Then
s = Replace(s, ChrW(215), " " & Chr(120) & " ")
End If

28-0,12  296-0,52  370-0,57 строка s (здесь тоже этот символ не отображается правильно, при выполнении программы он отображается символом скобки "(" )

Только таким макаром удается этот символ выцепить:
If AscW(f) = 40 Then 'как греческий символ
MsgBox Dialogs(wdDialogInsertSymbol).CharN um
Mid(s, st, 1) = ChrW(120)
End If

как справиться с кодировкой.??. помогите пожалуйста!!!

[Вождь]

Сообщение от Hell-v

Есть такая проблема. В документе встречаются различные символы, среди них есть символ умножения (крестик)...

Был когда-то такой глюк...

Если ты брал код крестика (215) из списка символов, то будешь удивлен, когда выделишь крестик и запустишь код:

    With Selection.Characters.First
        MsgBox "Код: " & AscW(.Text) & vbLf & _
               "Шрифт: " & .Font.Name
    End With

Сравни данные VBA данными интерфейса Word

Для успешной замены надо выбрать крестик и открыть таблицу символов. Word покажет реальные данные символа, отсюда их и бери. Откуда их берет Word неизвестно.