Devido a limita\u00e7\u00e3o do Oracle Reports, precisei gerar um documento diretamente no Word. Neste documento, criei uma macro que era respons\u00e1vel em escrever o documento e format\u00e1-lo segundo o padr\u00e3o definido por uma Lei espec\u00edfica. Para facilitar, isolei o c\u00f3digo em uma fun\u00e7\u00e3o e bastava passar o t\u00edtulo e o texto do corpo do documento que a macro fazia o resto.<\/p>\n
O problema come\u00e7ou quando tive que abrir o documento e executar a macro atrav\u00e9s do Oracle Forms. Na Internet encontrei alguns exemplos ensinando como executar o Word, mas em lugar algum consegui encontrar como executar uma macro passando par\u00e2metros. Ap\u00f3s um dia tentando conseguir solucionar o problema, segue abaixo a solu\u00e7\u00e3o:<\/p>\n
No nosso exemplo, a macro se encontra no documento “C:modelo.doc” e sua execu\u00e7\u00e3o deve ser feita invocando a assinatura abaixo:<\/p>\n
[sourcecode language=”VB”]
Public Sub macroCriarDocumento (ByVal pstr_documentoTitulo as String, ByVal pstr_documentoCorpo as String)
[\/sourcecode]<\/p>\n
Abaixo segue o c\u00f3digo do Oracle Forms 6i, que \u00e9 respons\u00e1vel em abrir o documento “C:modelo.doc e executar a macro “macroCriarDocumento” e seus par\u00e2metros:<\/p>\n
[sourcecode language=”plain”]
PROCEDURE gerarDocumentoDOC (pstr_documentoEndereco IN VARCHAR2, pstr_documentoTitulo VARCHAR2, pstr_documentoCorpo IN VARCHAR2) IS<\/p>\n
\tlobj_wordAplicativo OLE2.OBJ_TYPE; — Objeto do Word
\tlobj_wordDocumentos OLE2.OBJ_TYPE; — Objeto de conjunto de documentos do Word
\tlobj_wordDocumento OLE2.OBJ_TYPE; — Objeto do documento que ser\u00e1 aberto
\tlobj_wordArgumentos OLE2.LIST_TYPE; — Objeto com lista de argumentos que ser\u00e1 passado como par\u00e2metro para o Word<\/p>\n
\ttemp OLE2.LIST_TYPE;<\/p>\n
BEGIN<\/p>\n
\tlobj_wordAplicativo := OLE2.CREATE_OBJ(‘Word.Application’); — Cria o objeto do Word
\tOLE2.SET_PROPERTY(lobj_wordAplicativo, ‘Visible’, 1); — Torna o objeto do Word vis\u00edvel<\/p>\n
\tlobj_wordDocumentos:=OLE2.GET_OBJ_PROPERTY(lobj_wordAplicativo, ‘Documents’); — Obtem refer\u00eancia ao conjunto de documentos<\/p>\n
\t— ———————————————————————-
\t— Abre documento modelo
\t— ———————————————————————-<\/p>\n
\tlobj_wordArgumentos := OLE2.CREATE_ARGLIST;
\tOLE2.ADD_ARG(lobj_wordArgumentos, ‘C:modelo.doc’); — Documento modelo com que contem a formata\u00e7\u00e3o pre-definida e as macros
\tlobj_wordDocumento := OLE2.INVOKE_OBJ(lobj_wordDocumentos, ‘Open’, lobj_wordArgumentos); — Abre o documento
\tOLE2.DESTROY_ARGLIST(lobj_wordArgumentos);<\/p>\n
\t— ———————————————————————-
\t— Executa Macro contida no modelo que ir\u00e1 escrever o documento e salv\u00e1-
\t— lo na pasta destino.
\t— ———————————————————————-<\/p>\n
\tlobj_wordArgumentos := OLE2.CREATE_ARGLIST;
\tOLE2.ADD_ARG(lobj_wordArgumentos, ‘macroCriarDocumento’);
\tOLE2.ADD_ARG(lobj_wordArgumentos, pstr_documentoTitulo);
\tOLE2.ADD_ARG(lobj_wordArgumentos, pstr_documentoCorpo);
\ttemp := OLE2.INVOKE_OBJ(lobj_wordAplicativo, ‘Run’, lobj_wordArgumentos);
\tOLE2.DESTROY_ARGLIST(lobj_wordArgumentos);<\/p>\n
\t— ———————————————————————-
\t— Fecha o aplicativo Word e remove objetos da mem\u00f3ria.
\t— ———————————————————————-<\/p>\n
\tOLE2.RELEASE_OBJ(lobj_wordDocumento);
\tOLE2.RELEASE_OBJ(lobj_wordDocumentos);
\tOLE2.RELEASE_OBJ(lobj_wordAplicativo);<\/p>\n
END;
[\/sourcecode]<\/p>\n","protected":false},"excerpt":{"rendered":"
Devido a limita\u00e7\u00e3o do Oracle Reports, precisei gerar um documento diretamente no Word. Neste documento, criei uma macro que era respons\u00e1vel em escrever o documento e format\u00e1-lo segundo o padr\u00e3o definido por uma Lei espec\u00edfica. Para facilitar, isolei o c\u00f3digo em uma fun\u00e7\u00e3o e bastava passar o t\u00edtulo e o texto do corpo do documento […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-gradient":""}},"footnotes":""},"categories":[163,431],"tags":[],"amp_enabled":true,"_links":{"self":[{"href":"https:\/\/www.pauloacosta.com\/wp-json\/wp\/v2\/posts\/1423"}],"collection":[{"href":"https:\/\/www.pauloacosta.com\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.pauloacosta.com\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.pauloacosta.com\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.pauloacosta.com\/wp-json\/wp\/v2\/comments?post=1423"}],"version-history":[{"count":0,"href":"https:\/\/www.pauloacosta.com\/wp-json\/wp\/v2\/posts\/1423\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.pauloacosta.com\/wp-json\/wp\/v2\/media?parent=1423"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.pauloacosta.com\/wp-json\/wp\/v2\/categories?post=1423"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.pauloacosta.com\/wp-json\/wp\/v2\/tags?post=1423"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}