Chiron

obrigado Bruno, vou tentar suporte com a Studio Visual , afinal de contas desembolçei essa grana toda e o programa e não me deixa fazer o executavel.

Boa tarde a todos, não to conseguido instalar sem que esteja conectado na net. Na minha maquina mesmo sem net roda normal o executavel mas na maquina do cliente sem net não tem como. Observem as imagens da instalação na maquina cliente. essa primeria imagem mostra os arquivos que estao disponivel no pendrive para a instalação essa aseguir mostra os arquivos dentro da pasta do publish notem que ao clicar no Setup vai solicitar para instalar o .NET Framework, porem já tenho ele instalado na maquina cliente como mostrarei na imagem . Clicando em Accept vai aparecer a janela de erro conforme imagem abaixo: Observem que a maquina cliente já tem instalado o .NET Framework Dai eu pergunto aos senhores. Como voces conseguem distribuir seus projetos em Visul Studio 2005 ? Abrç Jonas

Sim, ObjWord.documents.open("C:VBProcedimentosYYY-" & x & ".doc") informado acima è essa a ideia, pois salvei os arquivos com yyy para serem referente a valvulas e xxx para transmissore e assim vai indo. Não seria mais facil algo to tipo assim: Private sub btnFichaCalibracao_click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFichaCalibracao.click Dim x As String Try x = ToolStripTextBox.Text ObjWord = CreateObjetc("word.application") IF NOT 'se não encontar ObjWord.documents.open("C:VBProcedimentosYYY-" & x & ".doc") THEN ' então encontra ObjWord.documents.open("C:VBProcedimentosZZZ-" & x & ".doc") THEN ' ou então ObjWord.documents.open("C:VBProcedimentosXXX-" & x & ".doc") THEN ' ou então ObjWord.documents.open("C:VBProcedimentosAAA-" & x & ".doc") THEN ' ou então ObjWord.documents.open("C:VBProcedimentosBBB-" & x & ".doc") THEN ' ou então ObjWord.documents.open("C:VBProcedimentosCCC-" & x & ".doc") ObjWord.visible = true Me.hide() Me.Validade() Catch ex As Exception MessageBox.Show ("Ficha de Calibração indisponivel", "",MessageBoxButtons.OK, MessageBoxIcon.Information) END IF End Try Claro que esse codigo é doido, mas a ideia seria essa, se não encontrar um arquivo YYY procure pelo ZZZ, se não achar ele procure pelo XXX e vai indo ate achar o maldito. Recordadno que essas letras estariam dentro do codigo desse modo que estas ai, apos as letras o & e a variavel. E os arquivos estariam salvo naquele sistema de ZZZ-61-10-FT-001, YYY-61-10-HV-001

BINGO!!!!!! começou a clarear as ideias, lol. :D Realmente so eu sei, pois coloquei essa 3 letras "YYY, XXX, ZZZ, etc..." no nome do arquivo salvo no pc, isso serve para diferenciar os diversos "procedimentos de calibração" dos instrumentos. Lembrando que quando desejo abrir procedimento de calibração de válvulas, vai estar na frente do TAG as 3 letras XXX. você diz aqui q: Kuroi voce matou a charada, o mais importante nisso tudo foi que voce não me deu de mao beijada, voce fez eu pensar, isso é que mais me deixa feliz. Bem...partindo do principio que não mais é indicado colocar o IF / end if e sim uma string, colocarei uma string para ler o caminho? exemplo: C:/VBProcedimentos/ ... então a string deveria ler o que segue dentro desse aminho apos o /, ler se é xxx, yyy, zzz, etc... mas dai terei que declarar novas variaveis ? é esse o caminho?

Não, a variavel é so o TAG "61-10-FT-001, etc..."; o yyy é o nome do arquivo que corresponde ao procedimento de calibração para transmissores, xxx eu defini para diferenciar procedimentos para valvulas de controle, etc cada instrumento vai levar essas letras apenas para diferenciar os TAGs dentro do diretorio que encontram-se todos os procedimentos mas ai é q ta. como você sabe se é yyy, xxx e etc?? CERTO, apenas o TAG vai estar no tollstrip essa parte eu não entendi. você quer dizer 3500 arquivos?? eles tão espalhados no projeto onde?? e onde você clica?? tipo em q objeto?? é um listbox ou qualquer coisa assim?? ele tras os nomes dos arquivos?? então acho q o melhor seria você pegar de la, não?? Bem... Sim são mais de 3500 TAGS (61-19-FT-001, 61-32-HV-001, etc) Estao espalhado em 32 Forms, esses forms possuem uma picture box que mostra a distribuição dos TAGs pela area industrial, cada TAG possui um Botao que ao ser clicado abre o frmCadastro, nesse forme de cadastro esta os dados do instrumento que sera exibido apos clicar no botao. Exemplo: Num form de uma determinada area industrial tem 27 TAGs então tem 27 btns você pecisa saber os dados desse TAG como, localização, range de calibração, quem instalou, quando foi a ultima manutençao, etc... então você clica no botao e abre-se o frmCadastro com todas essa informaçoes (buscada no banco dados ) esse form de cadastro tambem possui o botao Ficha de calibração, cada instrumento tem uma ficha diferente uma da outra. Por favor não desiste da minha duvida. se mesmo assim não entender por favor pergunte. estou disposto a abrir o MSN e autorizar a rodar o software via o suporte do windows para tirar as duvidas e achar uma solução

Kuroi agradeço de coração a atençao pois já estou 5 dias com o projeto parado nessa "pendenga" basica. asim: esse é o codigo onde eu abro um procedimento em word: Private sub btnFichaCalibracao_click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFichaCalibracao.click Dim x As String Try x = ToolStripTextBox.Text ObjWord = CreateObjetc("word.application") ObjWord.documents.open("C:VBProcedimentosYYY-" & x & ".doc") ObjWord.visible = true Me.hide() Me.Validade() Catch ex As Exception MessageBox.Show ("Ficha de Calibração indisponivel", "",MessageBoxButtons.OK, MessageBoxIcon.Information) End Try o que vai aparecer no tollstrip? vai aparecer somente o TAG do instrumento. Exemplo: 61-10-FT-001 Qual o nome do documento word refernte ao procedimento que vai abrir qaundo aparecer 61-10-FT-001 no toolstrip ? YYY-61-10-FT-001 Onde esta esse arquivo? C:VBProcedimentos\yyy-61-10-ft-001 Como sei o arquivo que deve-se abrir? Quando clico em um dos 3500 espalhado pelo projeto, aparece no toostrip o tag. exemplo: 61-10-ft-001. OBS: No codigo acima em vermelho tem : ("C:VBProcedimentosYYY-" & x & ".doc") apos o & tem o x que é declarado como sendo a variavel que vai aparecer dentro do toolstrip ( os TAGs "61-10-FT-001"; "61-10-HV-068"; "61-45-LT-002"; etc...) Como esta salvo os outros documentos word que devem ser aberto ao clicar no btnFichaCalibracao ? C:VBProcedimentos\yyy- C:VBProcedimentos\zzz- C:VBProcedimentos\xxx- C:VBProcedimentos\aaa- etc... Gente to quase perdendo o emprego pelos dias inativo, não sou programador, sou tecnico em automação, trabalho com PLCs mas o cliente tava precisando disso e me meti a besta de me meter nessa furada, já fiz 90% do projeto so faltou abrir esses procedimentos. POR FAVOR tentem dar uma forçinha ai. Muito Obrigado.

Obrigado pela boa vinda, Passa uma borracha , pois ate eu não consegui entender a duvida lol. já estou desesperdo onde resolver isso, já fui nuns 5 forum, orkut, marcoratty, etc e não tem cristo de resolver isso. Quero adicionar no projeto o Basico do Basico, abrir um documento que esta em Word no meu diretorio. deve-se abrir esse documento ao clicar num botao. Parece simples, mas são mais de 3500 documentos, sendo assim não posso usar if end if 3500 vezes. Se dar uma olhada o codigo que fiz para abrir apenas um documento vai notar que fiz certo porem preciso colocar inteligencia nesse botao para que ele saiba qual o documento word estou precisando que ele abra entre esses 3500 que estao salvo no meu PC.

Amigos, ainda na questao do Word, creio que o amigo que postou essa citação clica num botao e abre o documento word, aqui tambem uso ese codigo e funciona beleza, porem não consigo colocar o if / end if para fazer abrir outros documentos word. OU seja o caminho do documento é uma variavel. Como abrir esses documentos ao clicar no botao?

Tenho dois arquivos em word ( YYY-61-20-FT-001.doc e XXX-61-20-HV-001), preciso abri-los na seguinte forma: em um form chamado "frmProcedimentos" contém: botão "btnFichaCalibracao" toolStrip1 para buscar dados no banco access ao clicar no botao deve-se abrir um documento word OU o outro dependendo do que estiver escrito no toolStrip1. Para abrir apenas um documento eu fiz desta maneira: Private sub btnFichaCalibracao_click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFichaCalibracao.click Dim x As String Try x = ToolStripTextBox.Text ObjWord = CreateObjetc("word.application") ObjWord.documents.open("C:VBProcedimentosYYY-" & x & ".doc") ObjWord.visible = true Me.hide() Me.Validade() Catch ex As Exception MessageBox.Show ("Ficha de Calibração indisponivel", "",MessageBoxButtons.OK, MessageBoxIcon.Information) End Try deu certinho para abrir esse documento onde inicia a toolStrip com YYY porem como abrir o documento que inicia com XXX ?