Reginaldo ASP Postado Março 11, 2004 Denunciar Share Postado Março 11, 2004 Salve galera!Alguém sabe onde posso fazer o download do componente Office WebE aproveitando, se alguém souber de algum tutorial, artigo ou qualquer coisa relacionada a CreateObject("Word.Application"), por favor, poste aí!Valeu! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 dark0 Postado Março 18, 2004 Denunciar Share Postado Março 18, 2004 opa..beleza?eu tava procurando algo sobre isso e achei alguma coisa:segue:'----------------------------------------------------------- 'Instanciando o Objeto Word (Precisa de MS Office instalado no servidor!!!) Set objWord = CreateObject("Word.Application") ' Declarando as váriáveis (se não declarar não funciona!!!) DIM nome, perfil, arquivo, formacao, experiencia Nome = rsCliente("Nome") perfil = rsCliente("DscPerfil") formacao = rsCliente("Formacao") experiencia = rsCliente("experiencia") cargos = rsCliente("CargosAnteriores") ' esta variável defini onde o arquivo vai ser salvo e com qual nome (definido por txtNomeArquivo) arquivo = "c:\Inetpub\wwwroot\arquivos\" & request("txtNomeArquivo") & ".doc" ' aqui começamos a trabalhar com o arquivo Word '----------------------------------------------------------------------------------- 'Aqui definirmos o modelo de documento que vamos usar... Precisa ser um arquivo ".DOT" 'Se você preferir pode passar o nome do arquivo de modelo como parâmetro e permitir que 'o usuário defina o modelo que preferir objWord.Application.Documents.Add "c:\Inetpub\wwwroot\arquivos\reddoc.dot" objWord.Application.ChangeFileOpenDirectory "c:\Inetpub\wwwroot\arquivos" ' As linhas abaixo escrevem no documento ' esta linha escreve o campo nome do banco de dados objWord.Application.Selection.TypeText "Nome:" 'esta linha gera um parágrafo objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText nome objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText "Perfil:" objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText perfil objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText "Formação:" objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText formacao objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText "Experiência:" objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText experiencia objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText "Cargos:" objWord.Application.Selection.TypeParagraph objWord.Application.Selection.TypeText cargos objWord.Application.Selection.TypeParagraph 'a linha abaixo salva o documento no caminho e com o nome definido na váriável "Arquivo" objWord.Application.ActiveDocument.SaveAs Arquivo ' As linhas abaixo não devem ser esquecidas pois a cada documento que você gerar você abre um processo ' do word no servidor e isso consome muito de sua performance. objWord.Application.ActiveWindow.Close objWord.Application.Quit Set objWord = nothing 'Para saber de mais propriedades e métodos do Word.Application crie uma nova Macro no Word faça o que você precisa e depois vá no menu Ferramentas > Macro >Editar eu achei isos num forum da microsoft.. heheabraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Reginaldo ASP
Salve galera!
Alguém sabe onde posso fazer o download do componente Office Web
E aproveitando, se alguém souber de algum tutorial, artigo ou qualquer coisa relacionada a CreateObject("Word.Application"), por favor, poste aí!
Valeu!
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.