riks Posted June 14, 2019 Share Posted June 14, 2019 Ate eu nao sei se percebo o que escrevi em cima o que quero fazer ë exactamente ligar o nome do ficheiro com uma informacao que eu insiro no ficheiro e nao com o path. o template tem uma linha que diz: 1931223 - ë este numero que eu gostava de ligar com o nome do ficheiro quando faco save AS. o path e sempre o mesmo Link to comment Share on other sites More sharing options...
Perks Posted June 14, 2019 Share Posted June 14, 2019 Moves o cursor para um posição fixa, neste caso inicio do docuemtno Selection.HomeKey Unit:=wdStory Imagina que o que queres está na 4ª linha Selection.MoveDown Unit:=wdLine, Count:=4 começa na décima segunda posição Selection.MoveRight Unit:=wdCharacter, Count:=12 tem de tamanho 7 caracteres Selection.MoveRight Unit:=wdCharacter, Count:=7, Extend:=wdExtend depois passas a seleção para uma variàvel docName = Selection.Range Completo ficava assim Path= "R:\QA\Avdelingsfelles\Analysesertifikater\Anal-2019-Metformin DC\" Selection.HomeKey Unit:=wdStory Selection.MoveDown Unit:=wdLine, Count:=4 Selection.MoveRight Unit:=wdCharacter, Count:=12 Selection.MoveRight Unit:=wdCharacter, Count:=7, Extend:=wdExtend docName = Selection.Range ActiveDocument.SaveAs2 FileName:= Path & docName & ".doc" na minha cabeça isto deve dar para o que queres Mas deve haver aí especialistas em VBA, coisa que não sou de forma alguma Link to comment Share on other sites More sharing options...
riks Posted June 14, 2019 Share Posted June 14, 2019 peguei na tu sugestao ( que eu nao fazia ideia que se podia fazer, thx) Sub Makro1() ' ' Makro1 Makro ' ' ActiveDocument.PrintOut ChangeFileOpenDirectory _ "R:\QA\Avdelingsfelles\Analysesertifikater\Anal-2019-Metformin DC\" ActiveDocument.SaveAs2 FileName = docName Selection.MoveDown Unit:=wdLine, Count:=10 Selection.MoveRight Unit:=wdCharacter, Count:=11 Selection.MoveRight Unit:=wdCharacter, Count:=7, Extend:=wdExtend docName = Selection.Range End Sub Da me erro ali no vermelho. btw: Quote FileName:= Path & docName & ".doc qual e o significado de estar ali "path"? ja experimentei com e sem mas da sempre este erro: Link to comment Share on other sites More sharing options...
Perks Posted June 14, 2019 Share Posted June 14, 2019 aí faltou um & e estás a fazer isso na ordem errada primeiro tens de fazer a seleção e encontrar o nome e depois fazes o save Path= "R:\QA\Avdelingsfelles\Analysesertifikater\Anal-2019-Metformin DC\" Selection.HomeKey Unit:=wdStory Selection.MoveDown Unit:=wdLine, Count:=10 Selection.MoveRight Unit:=wdCharacter, Count:=11 Selection.MoveRight Unit:=wdCharacter, Count:=7, Extend:=wdExtend docName = Selection.Range ActiveDocument.SaveAs2 FileName:= Path & docName & ".doc" tenta isto^ Link to comment Share on other sites More sharing options...
riks Posted June 14, 2019 Share Posted June 14, 2019 eureka! ' Makro1 Makro ' ' ActiveDocument.PrintOut Selection.HomeKey Unit:=wdStory Selection.MoveDown Unit:=wdLine, Count:=8 Selection.MoveRight Unit:=wdCharacter, Count:=12 Selection.MoveRight Unit:=wdCharacter, Count:=7, Extend:=wdExtend docName = Selection.Range ActiveDocument.SaveAs2 FileName:=Path & docName & ".doc" tive de apagar a primeira linha do que tu escreveste.. dava syntax error. Muito obrigado. Link to comment Share on other sites More sharing options...
Perks Posted June 14, 2019 Share Posted June 14, 2019 A primeira linha era só para definir o caminho absoluto onde o ficheiro seria gravado, só para evitar erros sem isso funciona, mas se mudares a directoria activa vai gravar noutro lado Como fiz um copy, posso ter-me enganado, mas era melhor teres isso Link to comment Share on other sites More sharing options...
Perks Posted June 14, 2019 Share Posted June 14, 2019 @riks acabei de testar no meu pc e deu bem se te dá erro é porque o caminho que estava no Path= não é o caminho correcto para a folder onde queres gravar se quiseres por segurança para garantir que as gravações são feitas sempre na mesma pasta mete o Path="c:\SLB_anal_gay_sex\" (presumo que seja esta a tua folder privada) se não for esta mete a correcta se achares que está bem assim, então pronto na linha que tens ActiveDocument.SaveAs2 FileName:=Path & docName & ".doc" podes meter só ActiveDocument.SaveAs2 FileName:=docName & ".doc" Edit: já percebi o erro @riks tinhas Path := não podes ter os 2 pontos neste caso tem de ser mesmo Path = Path= "R:\QA\Avdelingsfelles\Analysesertifikater\Anal-2019-Metformin DC\" Selection.HomeKey Unit:=wdStory Selection.MoveDown Unit:=wdLine, Count:=8 Selection.MoveRight Unit:=wdCharacter, Count:=12 Selection.MoveRight Unit:=wdCharacter, Count:=7, Extend:=wdExtend docName = Selection.Range ActiveDocument.SaveAs2 FileName:= Path & docName & ".doc" experimenta este código ^ 1 Link to comment Share on other sites More sharing options...
PunK_BoY Posted June 17, 2019 Share Posted June 17, 2019 Preciso de repor ratio no TL. Alguém sabe de alguma seedbox porreira e barata? Link to comment Share on other sites More sharing options...
RedHeart Posted June 19, 2019 Share Posted June 19, 2019 Quanto acham que devo oferecer por um MacBook Pro Retina 13" (2015), i5 2.7GHz, 8GB RAM e 128GB SSD? Link to comment Share on other sites More sharing options...
curcundil Posted June 20, 2019 Share Posted June 20, 2019 (edited) 10 hours ago, RedHeart said: Quanto acham que devo oferecer por um MacBook Pro Retina 13" (2015), i5 2.7GHz, 8GB RAM e 128GB SSD? 600/650€ para bom preço, 700/800€ para preço normal dependendo é claro de como esta a maquina. Edited June 20, 2019 by curcundil 1 Link to comment Share on other sites More sharing options...
karkov Posted June 21, 2019 Share Posted June 21, 2019 (edited) Alguém tem conta no Novo Banco? Abri conta ha poucos dias e recebi hoje os cartões...mas isto não diz o PIN em lado nenhum Tenho de ir a um balcão, ou como é isto? Edited June 21, 2019 by karkov Link to comment Share on other sites More sharing options...
Perks Posted June 21, 2019 Share Posted June 21, 2019 59 minutes ago, karkov said: Alguém tem conta no Novo Banco? Abri conta ha poucos dias e recebi hoje os cartões...mas isto não diz o PIN em lado nenhum Tenho de ir a um balcão, ou como é isto? Ao abrir num balcão ou são dados na hora ou, se forem enviados, são enviados em dias diferentes dos cartões por uma questão de segurança Assim nunca se cruza pins com cartões 1 Link to comment Share on other sites More sharing options...
Revenge Posted June 22, 2019 Author Share Posted June 22, 2019 On 6/17/2019 at 6:06 PM, PunK_BoY said: Preciso de repor ratio no TL. Alguém sabe de alguma seedbox porreira e barata? Ratiomaster Link to comment Share on other sites More sharing options...
PunK_BoY Posted June 25, 2019 Share Posted June 25, 2019 On 5/7/2019 at 12:17 AM, Stone said: @PunK_BoY https://www.estudiopt.pt/fotografia/bolsas-e-mochilas/bolsas-diversas/lowepro-gearup-camera-box-medium.html https://lojab2b.comercialfoto.pt/lojas-marca/lowepro/estojos-objectivas-fotografia/art-LP37145/lowepro-gearup-camera-box-medium.aspx https://flyshopping.net/estojos-para-objectivas/234767-lowepro-gearup-camera-box-medium-0056035371455.html https://www.pch.be/en/bags/lowepro/lowepro-gearup-camera-box-medium Só para dar um pequeno feedback. Se alguém algum dia estiver para comprar na loja flyshopping.net esqueçam. Tentei comprar lá 3 malas da lowepro. Demorou mais de mês e meio a receber duas delas, e a terceira cancelei e demoraram uma semana a devolver o dinheiro sempre com desculpas. Não vale mesmo a pena. 1 Link to comment Share on other sites More sharing options...
PunK_BoY Posted June 25, 2019 Share Posted June 25, 2019 Alguém aqui tem experiência com baterias da concorrência para a GoPro? Queria comprar baterias extras mas não sei se há algum problema em usar as da concorrência. Desde que uma bateria da concorrência me queimou uma 80d que eu fico um bocado atrás com isto... Link to comment Share on other sites More sharing options...
nosleep Posted June 26, 2019 Share Posted June 26, 2019 15 hours ago, PunK_BoY said: Alguém aqui tem experiência com baterias da concorrência para a GoPro? Queria comprar baterias extras mas não sei se há algum problema em usar as da concorrência. Desde que uma bateria da concorrência me queimou uma 80d que eu fico um bocado atrás com isto... a verdade é que a sopro aquece bastante quando esta a filmar, eu não arriscava, ainda por cima tem sempre uma menor autonomia Link to comment Share on other sites More sharing options...
RedHeart Posted July 2, 2019 Share Posted July 2, 2019 Fiz uma compra a um vendedor chinês a 03 de maio. Recebi a encomenda, mas não o produto em si mesmo (vamos aceitar que foi um erro de armazém). Reportei o facto ao vendedor e ofereceu-se para enviar uma nova encomenda, que ainda não recebi, nem tenho como saber se foi realmente enviada. Pelas minhas contas, o período para deixar feedback acaba hoje, mas a data prevista de entrega vai até 10 de julho (para lá do período de poder deixar feedback). É possível, deixar feedback negativo e depois, se/quando o produto chegar passá-lo a positivo? Link to comment Share on other sites More sharing options...
gleal Posted July 10, 2019 Share Posted July 10, 2019 Andava em arrumações e encontrei este cabo, ainda dentro do saco de plástico fechado. Alguém sabe que cabo é este, para saber se guardo ou deito fora? Link to comment Share on other sites More sharing options...
Stone Posted July 10, 2019 Share Posted July 10, 2019 Por momentos, pareceu-me um cabo TAE, usado na Alemanha para ligar da parede ao router. Mas a ponta preta, parece-me diferente. Para quem não sabe, um cabo TAE: Link to comment Share on other sites More sharing options...
nosleep Posted July 10, 2019 Share Posted July 10, 2019 3 minutes ago, Stone said: Por momentos, pareceu-me um cabo TAE, usado na Alemanha para ligar da parede ao router. Mas a ponta preta, parece-me diferente. yep é isso mesmo, a ponta preta é usada aqui na Suíça, não sei se em mais algum país, em Portugal nunca vi disso... Link to comment Share on other sites More sharing options...
gleal Posted July 10, 2019 Share Posted July 10, 2019 É que não faço a mínima ideia de onde veio isto, talvez de um modem ou router dos primórdios das internets. Bem, é para o lixo, de certeza que não devo precisar disso, nem deve haver ng que precise. Link to comment Share on other sites More sharing options...
Prince Posted July 18, 2019 Share Posted July 18, 2019 Boas. Procuro um programa para detetar no PC ficheiros mp3 duplicados. Terá que fazer analise por nome, mas também por conteúdo, ou seja que detete dois ficheiros mp3 com nomes diferentes mas que sejam a mesma musica. Existe algo assim? Link to comment Share on other sites More sharing options...
HERiTAGE Posted July 19, 2019 Share Posted July 19, 2019 7 hours ago, Prince said: Boas. Procuro um programa para detetar no PC ficheiros mp3 duplicados. Terá que fazer analise por nome, mas também por conteúdo, ou seja que detete dois ficheiros mp3 com nomes diferentes mas que sejam a mesma musica. Existe algo assim? Experimenta procurar por checksum duplicate finder. Acho q o PeaZip tem uma cena dessas incluída. Procura por ficheiros com o mesmo CRC (ou seja, são iguais). Isso trata do conteúdo. O nome, depois disto já n precisas, penso eu... Link to comment Share on other sites More sharing options...
Spark Posted July 19, 2019 Share Posted July 19, 2019 Precisas mesmo de uma app? Procurar ficheiros com o mesmo tamanho não resolve? Link to comment Share on other sites More sharing options...
Prince Posted July 19, 2019 Share Posted July 19, 2019 @HERiTAGEvou experimentar esse. Obrigado @Sparkprocurar pelo mesmo tamanho não da. Existem as mesmas musicas mas com tamanhos (bitrate) diferentes. E mesmo o nome muitas vezes não é o mesmo. O ideal é mesmo analise ao conteúdo. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now