Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как преобразовать число в слова в документе Word?

В этой статье речь идет о методе преобразования чисел в английские слова в документе Word, пожалуйста, перейдите к просмотру деталей, если вы заинтересованы.

Преобразование числа в английские слова с VBA

Легко Разделить документ одного слова на несколько

Как правило, мы используем copy и paste для разделения документа Word один за другим, но утилита Split Documnet может разделить документ Word на основе страницы, заголовка1, разрыва страницы или разрыва раздела, что улучшит эффективность работы. Нажмите для бесплатной пробной версии 45!
объявление разделенных документов по страницам
Kutools for Word: с помощью сотен удобных надстроек Word, без ограничений в 45-дни.

Преобразование числа в английские слова с VBA

1. Выберите номер, который вы хотите преобразовать в слова, нажмите Alt + F11 открывать ключи Microsoft Visual Basic для приложений окна.

2. Нажмите Вставить > модуль, и скопируйте ниже коды и вставьте их в модуль скрипты.

VBA: преобразовать число в слова

Sub ConvertNumberToWord () 'UpdatebyExtendoffice20181010 Dim xDigit As Double Dim xBuff As String On Error Resume Next Selection.MoveLeft wdWord, 1, wdMove Selection.MoveRight wdWord, 1, wdExtend xDigit = Val (Trim (Selection.Text)) Если xDigit = 0 И Str (xDigit) <> Trim (Selection.Text) Затем Exit Sub Если xDigit> 999999 Тогда Если xDigit <= 999999999 Тогда xBuff = Trim (Int (Str (xDigit / 1000000))) Selection.Fields.Add Selection.Range, wdFieldEmpty , "=" + xBuff + "\ * CardText", True Selection.MoveLeft wdWord, 1, wdExtend xBuff = Selection.Text & "million" xDigit = Right (Str (xDigit), 6) End If End If If xDigit <= 999999 Затем Selection.Fields.Add Selection.Range, wdFieldEmpty, "=" + Str (xDigit) + "\ * CardText", True Selection.MoveLeft wdWord, 1, wdExtend xDigit = xBuff & Selection.Text Selection.TypeText xDigit + «Else MsgBox» Number too large », vbOKOnly,« Kutool for Word »End If End Sub

3. Нажмите F5 ключ для запуска кода, теперь число было преобразовано в слова.
номер документа к слову 1

Внимание: Код работает только по одному номеру.


Просмотр вкладок и редактирование нескольких документов Word / книг Excel как Firefox, Chrome, Internet Исследуйте 10!

Возможно, вам знакомо просматривать несколько веб-страниц в Firefox / Chrome / IE и переключаться между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет вам просматривать несколько документов Word или книги Excel в одном окне Word или окне Excel и легко переключаться между ними, нажимая их вкладки.
Нажмите для бесплатной пробной версии Office Tab!

Просмотр нескольких документов Word в одном окне как Firefox


Рекомендуемые инструменты для повышения производительности Word

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.