Jump to content
Fórum Script Brasil

Flávia Dirk

Membros
  • Posts

    11
  • Joined

  • Last visited

About Flávia Dirk

Flávia Dirk's Achievements

0

Reputation

  1. Jonathan não funcionou =/ ... Vou postar o código q estou trabalhando (mostrar_ppt.asp): <script LANGUAGE="VBScript"> <% dim chamada chamada=limpaHTML(request.querystring("chamada")) dim projeto projeto=limpaHTML(request.querystring("projeto")) dim obra obra = limpaHTML(request.querystring("obra")) select case chamada 'pega informações das obras aux_limpa_espacos = limpa_espacos("select campos from tabela where Chamada & Projeto & obra='" & chamada & projeto & obra & "';") readsql (aux_limpa_espacos) lixo = le_arquivo (tabela & ".txt", " ") if dados_size>0 then %> Dim objPPT Dim myPPTDoc Set objPPT = CreateObject("PowerPoint.application") objPPT.Visible = True Set myPPTDoc = objPPT.presentations.open("\\diretorio\Ficha5mi.ppt") objPPT.ActiveWindow.Selection.SlideRange.Shapes("Título 3").Select objPPT.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select objPPT.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start=18, Length=0).Select With objPPT.ActiveWindow.Selection.TextRange .Text = "<%=dados(1,2) & " - " & dados(1,6) & " - " & dados(1,3) %>" End With objPPT.ActiveWindow.Selection.SlideRange.Shapes("Text Box 51").Select objPPT.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select objPPT.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start=1, Length=1).Select With objPPT.ActiveWindow.Selection.TextRange .Text = "<%=dados(1,6) %>" End With [...] ' Release the memory to PPT Set objPPT = Nothing <% end if %> </script> </head> <body> 'SÓ APARECE QUANDO O PPT ESTÁ ABERTO <h3>Processo finalizado!</h3> <form method="post" action="fechar.asp"> <div><h3><font color="#0D3F99"><input type="submit" value=" fechar " class="btsubmit"></h3></font> </form> </body> Referência ao botão q abre o mostra_ppt.asp (principal.asp): function mostra_ppt(projeto,chamada,obra) { ref_minha_janela3 = window.open("http://diretorio/mostra_ppt.asp?projeto=" + projeto + "&chamada=" + chamada + "&obra=" + obra, "minha_janela", "menubar=no,location=no,resizable=no,scrollbars=no,status=no,width=200,height=90,top=200,left=450,dependent=yes,dialog=yes"); } Observe q o texto q consigo mostrar só parece no final, quando o ppt já está aberto. Como poderia mostrar alguma coisa na página q abre enquanto o código roda?????
  2. Funcionou Jonathan!! Dúvida: Quando abro a página para rodar o código da automação OLE (vbscript), fica uma página em branco. Tentei colocar algo no <body> mas só aparece quando o ppt já abriu. Aí já não serve para nada já q quando o ppt abre fizemos q a página feche. Problema: O código do vbscript roda 1º q o html, teria como chamar o html, como um texto, por exemplo, dentro do vbscript?!?!?! OBS.: caso essa continuação não se enquadre nesse fórum, me avisem onde devo abrir um novo tópico. Obrigada!
  3. Desculpe, por trabalhar com páginas .asp coloquei minha dúvida lá. Vou testar. Mas o problema é o da página principal saber quando deve fechar a outra, já q não terá como saber quando o código haverá terminado. relembrando: na página principal clico em um botão q abre uma página em branco q gera uma código OLE no power point, consequentemente abre um ppt. Mas ao abrir o ppt e preencher td a tal página em branco fica aberta no meio do nada. Gostaria de fechá-la.
  4. Oi pessoal! Ao clicar em uma figura eu chamo o java script: <script language="javascript"> var ref_minha_janela; function mostra_ppt(projeto,chamada,obra) { ref_minha_janela = window.open("http://caminho/mostra_ppt.asp?projeto=" + projeto + "&chamada=" + chamada + "&obra=" + obra, "minha_janela", "menubar=no,location=no,resizable=no,scrollbars=no,status=no,width=800,height=600,dependent=yes,dialog=yes"); } Na página mostra_ppt.asp roda uma automação OLE em um power point (onde trabalho com 'VBScript' e <% %>). Mas quando o código termina e o power point abre, a página q foi aberta fica na frente de td. Gostaria de saber como posso fechar essa página automaticamente?
  5. Sim, encontra. Abre normalmente.
  6. Consegui puxar o nome do arquivo pelo: "(fs.GetFileName(file))" Erro: O arquivo existe mas o código está dizendo q não dim RAC dim idRAC dim espaco dim teste RAC = "\\SS\Bs_publico$\Teste\intranet\documentos\RAC" & dados(k,3) & dados(k,1)& ".doc" idRAC = "RAC" & dados(k,3) & dados(k,1) & ".doc" Set fs=Server.CreateObject("Scripting.FileSystemObject") if not (fs.FileExists(RAC)=true) then Response.Write("não existe") else teste = (fs.GetFileName(RAC)) if teste = idRAC then espaco = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" Response.Write("<td><a href='" & RAC & "' id='" & idRAC & "'><img src='relatorio3.gif' alt='Relatorio'></a></td>") end if end If set fs=nothing São ao td 20 contratos, o 1º existe um doc. Mas esse código acima está dizendo q nenhum existe. O q pode estar acontecendo?!?!?!
  7. Dúvida: dim RAC dim idRAC dim espaco dim teste RAC = "\\SS\Bs_publico$\Teste\intranet\documentos\RAC" & dados(k,3) & dados(k,1)& ".doc" idRAC = "RAC" & dados(k,3) & dados(k,1) & ".doc" Set fs=Server.CreateObject("Scripting.FileSystemObject") teste = (fs.FileExists(RAC)) if teste = idRAC then espaco = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" Response.Write("<td><a href='" & RAC & "' id='" & idRAC & "'><img src='relatorio3.gif' alt='Relatorio'></a></td>") else 'não mostra nada end If set fs=nothing Baseado na minha idéia postada acima. No momento estou com somente um arquivo existe, referido ao 1º contrato. Então pela lógica o 1º contrato deveria mostrar o "botão" (imagem) para clicar e abrir o documento. Erro: o código acima está tirando a imagem de todos. O q está errado nele?!?!!
  8. Oi Jow! Pensei melhor e a idéia do Bareta fica ótima junto a tua! Aí ficaria assim: Pretendo colocar em cada imagem um id com o mesmo nome do arquivo q pretendo abrir. Quando a página for aberta irei listar todos os arquivos existentes, se caso o id da imagem não bater com o com algum arquivo não mostrarei akela imagem. Vou testar os seus códigos e já volto para postar o resultado (dúvida ou solução) =]
  9. Oi gente! Obrigada pela ajuda!! Mas tenho uma dúvida, como ficaria isso no response.write??? Coloquei com o exemplo do Jow: teste = "<td><a href='" if Not (fs.FileExists(camCont)=true) then teste=teste & "#"'><img src='relatorio3.gif' alt='Relatorio'></a></td>") else teste=teste & camCont & "'><img src='relatorio3.gif' alt='Relatorio'></a></td>") end if Response.Write (teste) if Not (fs.FileExists(camCont)=true) then camCont = "#" else camCont = camCont end if Response.Write ("<td><a href='" & camCont & "'><img src='relatorio3.gif' alt='Relatorio'></a></td>") Fiz com o código do Rafael também, na mesma colocação. Mas em nenhum dos 2 aparece a figura. Assim q você abre a página as figuras não aparecem A imagem a ser clicada tem q aparecer sempre, e a verificação só será rodada quando clicarem na imagem. OBS.: a minha página mostra todos os contratos (principais dados) q tenho (q nem um form contínuo) do lado de cada contrato tem uma imagem q abre o contrato em word. É esse o meu caso, caso o contrato não exista em word gostaria q não acontece nada, no lugar de ficar abrindo a "Página não pode ser exibida".
  10. Oi!! Estou trabalhando com o seguinte exemplo: dim camCont camCont = "\\SS\Bs_publico$\Teste\intranet\documentos\RAC" & dados(k,3) & dados(k,1)& ".doc" Response.Write ("<td><a href='" & camCont & "'><img src='relatorio3.gif' alt='Relatorio'></a></td>") Ao clicar na imagem abre um doc em word nomeado pelos dados filtrados na sql: dados(k,3) - número do contrato dados(k,1) - número da classe Problema: Caso esse documento não exista dá o erro de 'página não encontrada'. Teria como verificar se não vai encontrar a página (o documento) e não abrir nada, continuar na página atual?? Att.
×
×
  • Create New...