Есть несколько способов вставить в текст документа римские цифры. Самый доступный - это переключить клавиатуру на английский шрифт и самостоятельно набрать нужное число. В этом способе самое главное - знать все римские цифры. Другие способы применяются пользователями в соответствии с их уровнем знания программы Word. Кто то использует автозамену (предварительно настроить программу), кто то инструмент "Вставить символ " и т.д.
В этой статье я предлагаю использовать преобразование арабских чисел в римские с помощью кода Vba.
Для того чтобы постоянно его использовать достаточно будет написать 10 строчек кода и постоянно использовать
Sub АрбскиеРимские
Dim str As String
str = Selection.Text
Selection.Delete
With Selection
.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
.TypeText Text:="=" & str & "\*ROMAN"
.Fields.Update
End With
End Sub
Теперь достаточно выделить нужные арабские цифры и запустить макрос, после чего они будут заменены на римские.
Если статья понравилась, ставьте лайки и подписывайтесь на канал.
