jlaudirt

Fuça que fuça e cheguei aqui. Agora o erro é de falta de permissão para a gravação do novo arquivo. Sub BreakOnPage()Dim Nome As StringApplication.Browser.Target = wdBrowsePageFor i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")ActiveDocument.Bookmarks("\page").Range.CopyNome = RTrim(LTrim(ActiveDocument.Paragraphs(1).Range.Text))Documents.AddSelection.PasteSelection.TypeBackspaceChangeFileOpenDirectory "C:\temp"DocNum = DocNum + 1ActiveDocument.SaveAs FileName:=DocNum & " - " & Nome & ".doc"ActiveDocument.CloseApplication.Browser.NextNext iActiveDocument.Close savechanges:=wdDoNotSaveChangesEnd Sub

Pesquisei pela msg de erro e achei o seguinte Referência inválida ou não qualificadaOffice 2013Última alteração: terça-feira, 6 de dezembro de 2011Aplica-se a: Office 2013 | VBAUm identificador começando com um ponto é válido somente dentro de um bloco With . Este erro tem a causa e solução a seguir:O identificador começa com um ponto. Conclua a qualificação do identificador ou remover o período. Fonte de pesquisa Aqui Retirei os pontos mas mesmo assim não funcionou, deu erro de depuração número: 4198

Sei o título é horrível, mas vou explicar: A Macro abaixo tinha a intenção de pegar o arquivo LetrasMusicas.doc que contem 100 musicas separadas por quebra de página. A primeira linha de cada página tem o nome da musica O que quero: Com o arquivo "LetrasMusicas.doc" aberto, rodar a macro e gerar um arquivo para cada música. Ou seja, serão gerados 100 arquivos. Até este ponto deu certo, porém não consigo capturar a primeira linha de cada página para nomear a saída de cada um dos 100 novos arquivos. Deu erro onde está a linha que começa com "=" (Coloquei só pra identificar a linha, "=" não está no código mesmo). Aparece a seguinte mensagem de erro: Referência inválida ou não qualificada. Sub BreakOnPage()Dim Texto As StringApplication.Browser.Target = wdBrowsePageFor i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")ActiveDocument.Bookmarks("\page").Range.CopyDocuments.AddSelection.PasteSelection.TypeBackspaceChangeFileOpenDirectory "C:\aqui"DocNum = DocNum + 1"=".Selection.MoveDown Unit:=wdLine, Count:=DocNum, Extend:=wdExtendTexto = .SelectionActiveDocument.SaveAs FileName:=Texto & ".doc", FileFormat:=wdFormatTextActiveDocument.CloseApplication.Browser.NextNext iActiveDocument.Close savechanges:=wdDoNotSaveChangesEnd Sub

acompanhando... aguardando a resposta também!

Gostei da sua ideia. Me tira uma dúvida, se eu quiser alterar esta fonte para tirar dela 24 ou 30v... tem como? Como deveria proceder?

na verdade eu estou tentando reduzir esta tensão pra 9 volts e o motor é de impressora.

Obrigado pela dica, vou tentar encontrar a falha e ver se consigo corrigir o problema. Esta fonte estou utilizando para outra função. Ligar um motor de 12v. Se não der certo, terei que ligar outro aparelho. Abraços!

Não sei se posso, mas estou enviando todo o esquema do aparelho. O esquema da fonte está na pagina 12. R10 parte inferior da página ligando C10 e C12 elenberg_dvd_DVDP-2410(1).pdf

1/4W já o que tenho pra trocar (28ohms) eu nao sei dizer quantos watts O que está queimando liga dois capacitores eletroliticos de 100U/25v nos terminais negativos de ambos

Boa noite a todos, estou com uma fonte e o R10 dela está queimando. Se eu ligo com a saída alimentando alguma coisa o R10 está emitindo uma fumaça em questão de 2 segundos após alimentado a fonte. o valor do R10 é 10ohms. Nas minhas sucatas só achei um de 28ohms. Posso usar ele no lugar do queimado?