Ir para conteúdo
Fórum Script Brasil
  • 0

Componente "office Web"


Reginaldo ASP

Pergunta

1 resposta a esta questão

Posts Recomendados

  • 0

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.. hehe

abraços

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...