Urgente QR code em word

bom dia.


Preciso fazer a geração de um código de barras 2D em um formulário gerado pelo word.

Outros códigos de barras que não são 2D eu gero sem problemas.
Como faço para conseguir isto. Estive pesquisando e aparentemente é necessário um software para gerar este código de barras. Alguém já teve que fazer algo parecido, tem alguma solução, ou exemplo?


Obrigado



Antonio

Boa noite a todos.

Tenho a mesma necessidade. Alguém conhece alguma solução utilizando automação do MS-Office?

Bom dia.

Consegui encontrar uma função no MS-WORD que permite a geração de QRCode via Campo de Formulário. Porém é válida somente a partir do Office 2013. Quanto aos comandos de automação, creio que é verificar a macro e "traduzir" para o Progress. Segue:


Para quem usa automação com o MS-Office para geração de documentos Word, existe a partir do Office 2013 uma função de campo que permite a criação de códigos de barra no formato QRCode. Segue exemplo:


- Dentro do Word, utilize o atalho Ctrl+F9 para geração de um campo de formulário. Será aberto o conteúdo para edição:

{ }

- Dentro dele, utilize a função DISPLAYBARCODE, que permite a geração de qualquer código de barras. No primeiro parâmetro, o conteúdo que deseja escrever (entre aspas), e no segundo, o tipo de código de barras. No exemplo usarei o QRCode (tipo QR), mas podem ser usados outros tipos de código de barras (Barcode39, Barcode128, etc):

{ DISPLAYBARCODE "4EACH.COM.BR" QR }

- Finalizada a escrita, clique com o botão direito do mouse no campo, e escolha a opção “Alternar Códigos de Campo”, que mostrará o QRCode gerado.


- Está pronto!


- Ao usar um leitor de QRCode, o conteúdo será retornado conforme parametrizado.



Mais Informações:


http://msdn.microsoft.com/en-us/library/hh745901(v=office.12).aspx

Obrigado amigo.


Será de grande valia, pesquisei um monte, talvez de maneira errada.


Antonio

Boa tarde aos colegas ,

Estou com a necessidade de gerar um QR Code no Word e cheguei neste post. Seguindo as instruções acima consegui chegar nos comandos da MACRO porém não obtive sucesso para converte-los em Word. Gostaria de saber se algum dos colegas já conseguiu utilizar este recurso no progress / Word e consiga me ajudar com este problema

Abaixo os comandos da macro e minha tentativa de usa-los em progress

MACRO WORD:

Selection.Font.Size = Selection.Font.Size - 1
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.TypeText Text:="DISPLAYBARCODE""TESTE 123""QR"
Selection.Fields.ToggleShowCodes



CODIGO PROGRESS:

def var AppWord as com-handle no-undo.

create "Word.Application" AppWord.

AppWord:visible = YES.

AppWordocuments:ADD().

Appword:SELECTION:FIELDS:ADD(Appword:SELECTION:range,-1 /*wdFieldEmpty*/,,TRUE).

Appword:Selection:TypeText("DISPLAYBARCODE""TESTE 123""QR").

Appword:SELECTION:FIELDS:ToggleShowCodes().

/*Appword:ActiveDocument:SaveAs( "c:/temp/qr_code.doc").
Appword:ActiveDocument:Close.
Appword:Quit().*/
release object appWord.



Desde já agradeço a atenção

Pessoal,
utilizo um programa chamado Zint.
https://sourceforge.net/projects/zint/
com ele através do prompt vc envia os dados de texto para gerar o qrcode e ele gera um bmp ou png do código, dai é só inserir a imagem no word através do progress.

Código:

execprograma = "Y:\include\zint\zint.exe -o c:\temp\querycode.png -b 58 --vers=42 -d " + STRING(informacao_que_vai_pro_2d).
dai é só chamar tudo isso pela procedure WinExec por exemplo que ele vai gerar a imagem 2d no diretorio informado.
e vc vincula no word, pdf, html ....