Как сделать штрих-код в Microsoft Word

Способ 1: Встроенное поле DisplayBarcode

В Microsoft Word начиная с версии 2013 есть встроенный инструмент для создания штрихкодов непосредственно в документе — специальное поле DisplayBarcode, не требующее установки сторонних программ или шрифтов. Поле вставляется через механизм кодов полей Word и поддерживает несколько популярных стандартов: одномерные Code 39 и Code 128, двумерный QR-код, а также форматы EAN13, UPCA и UPCE для товарной маркировки. Размер, ориентацию и цвет штрихкода можно настроить прямо в коде поля, добавив нужные параметры.

1. Установите курсор в то место документа, куда необходимо вставить штрихкод, после чего нажмите комбинацию Ctrl + F9 — в документе появится пара фигурных скобок с серым фоном.

2. Внутри скобок введите код поля. Например, для создания штрихкода стандарта Code 39 со значением 123456789 и текстовой подписью под ним введите: DisplayBarcode "123456789" CODE39 \d \t

3. Кликните правой кнопкой мыши по серому полю и в появившемся меню выберите пункт «Коды/значения полей» — поле отобразит готовый штрихкод вместо кода.

4. Для редактирования штрихкода снова щелкните по нему правой кнопкой мыши и повторно выберите «Коды/значения полей», чтобы вернуться к редактированию кода поля.

Параметры \d и \t в коде отвечают за отображение: \d включает автоматический расчет контрольного символа, а \t добавляет текстовую подпись под штрихкодом.

Чтобы сменить стандарт, достаточно заменить CODE39 на нужный: CODE128 — для более компактного одномерного кода, QR — для QR-кода (для него параметры \d и \t не нужны). Размер регулируется параметром \h с указанием высоты в твипах (1 твип = 1/1440 дюйма), например \h 2000 задаст среднюю высоту кода.

Способ 2: Использование шрифтов штрихкодов

Шрифты штрихкодов — специальные TTF-шрифты, в которых каждый символ заменен графическим элементом полосы или пробела. После их установки в систему достаточно ввести нужное значение в Word и применить к нему соответствующий шрифт, чтобы получить визуально корректный штрихкод. Наиболее распространен бесплатный шрифт Code 39, который поддерживает цифры, заглавные буквы и несколько специальных символов — он легко считывается большинством сканеров.

1. Скачайте шрифт для штрихкодов с одного из открытых ресурсов, например Code 39 доступен на сайтах dafont.com или idautomation.com в разделе бесплатных шрифтов.

2. Установите скачанный TTF-файл в систему: откройте «Проводник», перейдите в папку со шрифтом, кликните по файлу правой кнопкой мыши и выберите «Установить».

3. В документе Word введите нужное значение, которое требуется закодировать. Для Code 39 добавьте символ звездочки в начале и конце значения — формат должен выглядеть как *123456789*, поскольку звездочки служат символами начала и конца кода.

4. Выделите введенный текст, затем в поле выбора шрифта на вкладке «Главная» начните вводить название установленного шрифта и выберите его из списка — текст преобразуется в штрихкод.

5. При необходимости скорректируйте размер шрифта, чтобы получить нужные габариты штрихкода: увеличение кегля пропорционально увеличивает как высоту, так и ширину кода.

Проверьте считываемость полученного штрихкода телефоном или сканером до финальной печати — некоторые шрифты требуют определенного минимального размера для корректного распознавания. Для формата EAN-13 и Code 128 понадобятся отдельные шрифты, поскольку разные стандарты кодирования несовместимы между собой.

Способ 3: Онлайн-генераторы штрихкодов

Когда штрихкод нужен разово или требуется нестандартный формат, удобнее всего сгенерировать его на специализированном сайте и вставить в Word как обычное изображение. Онлайн-генераторы позволяют выбрать стандарт, задать данные, настроить внешний вид и скачать готовый файл в PNG или SVG — без установки программ и без зависимости от версии Office. Среди проверенных бесплатных сервисов выделяют следующие:

• barcode.tec-it.com — один из наиболее функциональных генераторов с поддержкой более 100 форматов штрихкодов и QR-кодов. Позволяет настроить размер, цвет, шрифт подписи и экспортировать в PNG, SVG или PDF.

• barcodesinc.com — специализируется на товарных штрихкодах EAN-13 и UPC-A, предоставляет изображение в высоком разрешении, пригодном для печати на этикетках.

• qr-code-generator.com — ориентирован на создание QR-кодов с возможностью добавить логотип, выбрать форму элементов и цвета. Бесплатная версия покрывает большинство задач.

Скачанное изображение вставляется в Word через вкладку «Вставка» — «Рисунки» — «Это устройство». После вставки размер можно скорректировать через вкладку «Формат рисунка», указав точные значения ширины и высоты в группе «Размер». Для качественной печати рекомендуется скачивать изображение в SVG или PNG с разрешением не менее 300 dpi.

Способ 4: Сторонние надстройки для Word

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

• TBarCode Office — профессиональная надстройка от немецкой компании TEC-IT, добавляющая в Word отдельную панель для выбора типа штрихкода, ввода данных и настройки параметров. Поддерживает более 100 форматов, в том числе GS1, DataMatrix и PDF417. Распространяется платно, доступна пробная версия.

• ActiveBarcode — надстройка на базе ActiveX, которая вставляет штрихкод как редактируемый объект с настройкой через контекстное меню прямо в документе. Подходит для интеграции с полями слияния и шаблонами Word. Бесплатная версия имеет ограниченный набор форматов.

• Kutools for Word — многофункциональный набор инструментов для Word, среди которых есть модуль вставки штрихкодов через меню «Kutools» — «Больше» — «Штрих-код». Удобен, если вы уже пользуетесь пакетом Kutools для других задач.

• Zint Barcode Studio — бесплатная отдельная программа с открытым исходным кодом, генерирующая штрихкоды в SVG, PNG и EMF. Изображение затем вставляется в Word вручную, однако широкий выбор форматов и высокое качество вывода делают ее достойной альтернативой онлайн-сервисам для офлайн-работы.

Перед установкой любой надстройки убедитесь, что она совместима с вашей версией Word — большинство современных решений поддерживают Word 2016 и новее, однако отдельные инструменты могут требовать дополнительной настройки разрешений для запуска ActiveX-компонентов в параметрах безопасности.

Способ 5: Вставка штрихкода через VBA-макрос

Когда штрихкоды нужно вставлять в документ многократно или по заданному шаблону, ручной ввод поля DisplayBarcode каждый раз становится неудобным. VBA-макрос решает эту задачу: он запрашивает значение и стандарт кодирования, после чего автоматически вставляет готовое поле в позицию курсора. Тот же принцип можно расширить до обработки таблицы целиком — макрос пройдет по каждой строке и добавит штрихкод напротив каждого значения, если такая используется в вашем Word-документе.

1. Перейдите на вкладку «Файл» — «Параметры» — «Настроить ленту» и установите флажок напротив пункта «Разработчик», затем нажмите «ОК» — вкладка появится на ленте.

2. Откройте вкладку «Разработчик» и нажмите кнопку «Visual Basic», либо воспользуйтесь сочетанием Alt + F11.

3. В открывшемся редакторе выберите в меню «Insert» пункт «Module», после чего вставьте в появившееся поле следующий код:

   Sub InsertBarcode()
Dim barcodeValue As String
Dim barcodeType As String
Dim fieldCode As String

   ' Запрашиваем значение штрихкода
   barcodeValue = InputBox("Введите значение для штрихкода:", "Штрихкод", "123456789")
   If barcodeValue = "" Then Exit Sub

   ' Запрашиваем стандарт: CODE39, CODE128, QR и др.
   barcodeType = InputBox("Введите стандарт штрихкода (CODE39, CODE128, QR):", "Стандарт", "CODE128")
   If barcodeType = "" Then Exit Sub

   ' Формируем код поля
   If UCase(barcodeType) = "QR" Then
   fieldCode = "DisplayBarcode """ & barcodeValue & """ QR"
   Else
   fieldCode = "DisplayBarcode """ & barcodeValue & """ " & UCase(barcodeType) & " \d \t"
   End If

   ' Вставляем поле в позицию курсора
   Dim oField As Field
   Set oField = ActiveDocument.Fields.Add( _
   Range:=Selection.Range, _
   Type:=wdFieldEmpty, _
   Text:=fieldCode, _
   PreserveFormatting:=False)

   oField.Update
End Sub


4. Закройте редактор сочетанием Alt + Q, вернитесь в документ и установите курсор в нужное место.

5. Откройте список макросов через Alt + F8, выберите «InsertBarcode» и нажмите «Выполнить» — макрос последовательно запросит значение и стандарт кодирования, после чего вставит штрихкод.

Для повторного использования макрос удобно назначить на кнопку панели быстрого доступа: кликните по стрелке в самом верху окна Word, выберите «Другие команды», в списке «Выбрать команды из» укажите «Макросы», найдите «InsertBarcode» и нажмите «Добавить». После этого штрихкод вставляется одним кликом без вызова диалога макросов.