Flávia Dirk
-
Total de itens
11 -
Registro em
-
Última visita
Sobre Flávia Dirk
Flávia Dirk's Achievements
0
Reputação
-
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?????
-
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!
-
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.
-
Onde eu usaria??
-
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?
-
Sim, encontra. Abre normalmente.
-
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 = " " 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?!?!?!
-
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 = " " 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?!?!!
-
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) =]
-
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".
-
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.