Edson Luiz Branco

Sim, infelizmente. Embora, se você enquadrar rigidamente seu artigo científico dentro das normas levando em conta dimensões de margens, dificilmente precisará se preocupar que essa formatação vá "desandar" seu hiperlink. _________ Abaixo segue um exemplo de como ficaria um código VBA para fazer essas substituições levando em conta o que discutimos até esse ponto. Está funcional, embora precise fazer mais testes com mais links, mas é só pra ilustrar que não é tão assustador assim, rsrsrsr... Uso: selecione o trecho de texto com todos os hiperlinks que deseja requadrar e execute o código: Sub QuebraHiperlink() Dim hl As Hyperlink, rg As Range, rg2 As Range Set rg = Selection.Range Application.DisplayAlerts = wdAlertsNone For Each hl In rg.Hyperlinks hl.Range.Select Selection.MoveStart Unit:=wdCharacter, Count:=-1 Selection.StartOf wdLine, wdExtend Set rg2 = Selection.Range With Selection.Find .Text = " " 'Espaço comum .Replacement.Text = "^s" 'Espaço incondicional .Execute Replace:=wdReplaceAll End With With rg2.Find .Text = "-" 'Sinal de menos ou hífen comum .Replacement.Text = ChrW(9472) 'Hífen especial ALT 196 .Execute Replace:=wdReplaceAll End With Next hl Application.DisplayAlerts = wdAlertsMessageBox End Sub

Sim, @eliel77, veja que na recomendação até inseri o trecho que precisaria incluir que era: Ou seja, selecionar de preferência a linha toda na qual o hiperlink está começando pra substituir os espaços comuns por espaços incondicionais.

Conforme seja configurado seu teclado, tente usar o CTRL + SHIFT + sinal de menos do teclado numérico. E depois dê um espaço em branco normal pro caractere "entrar".

Rigorosamente seria então CTRL + _ .Só a forma de obter o underline é que logicamente necessita o SHIFT. Usei assim pra seguir a mesma terminologia que o Word usa (guia Inserir > Símbolo > Mais Símbolos... > aba Caracteres especiais > Hífen Incondicional). Sim, pode ser trabalhoso e cansativo, realmente. Mas se o volume for de fato tão grande assim aí poderia ser vantajoso elaborar um código em VBA para tratar as referências todas de uma só vez, de forma automática. Não entendi o porquê de você ter que seguir o link. Por qual motivo?

Infelizmente não existe no Word configuração para isso. Provavelmente os hiperlinks que o @eliel77 testou deram certo porque ou não tinham hifens ou as margens dos parágrafos onde estavam permitiram a quebra por estas estarem num local muito distante (muito à direita) de algum dos hifens. Mas se ele testar com o link que você usou e com as margens nas mesmas posições de quebra sentirá o mesmo efeito.

@Deniz Costa e demais colegas , boa noite Só substituir os espaços em branco comuns (barra de espaço) por espaço incondicional (CTRL + SHIFT + Espaço) não é suficiente, pois o Word interpreta os sinais de subtração (-) que estão no hiperlink como sendo um hífen manual. Mas teria pelo menos dois artifícios que você poderia usar para conseguir o que deseja sem afetar a visualização no documento ou a apresentação quando impressa. Quanto à funcionalidade do hiperlink, prefira a primeira forma, pois não afeta sua operação: Substituir espaço usual por espaço incondicional e sinal de subtração por hífen similar: Selecione só da linha que ocorre o início do hiperlink até o final deste: "ser aferido através do Google no caminho: https://www.google.com.br/maps/place/...hl=pt─BR" CTRL+U pra abrir a caixa Localizar e Substituir Em Localizar: espaço em branco Em Substituir: CTRL + SHIFT + Espaço Substituir Tudo. Com o texto anterior ainda selecionado, novamente em Localizar: - (sinal de menos) Substituir: mantenha a tecla ALT da esquerda pressionada enquanto digita simultaneamente os algarismos 1 9 6 Substituir Tudo. Resultado 1 na figura abaixo: Substituir espaço usual por espaço incondicional e fazer hifenização incondicional prevendo o ponto da quebra de linha: Idem ao item 1.1 acima Posicionar o cursor no ponto onde deve ocorrer a primeira quebra de linha dentro do link (após o algarismo 4 no trecho: "...data=!3m1!4b1!4") Digitar CTRL + SHIFT + _ (underline) e teclar um espaço pro caractere entrar. Fazer o mesmo onde deve ocorrer a segunda quebra de linha do hiperlink, (após ponto no trecho "894444!4d-43.") Resultado 2 na figura abaixo: Note que visualmente são idênticos.

Bem vindo ao fórum, @GabrielSoares127 Na guia Página Inicial, no grupo Edição, clique no botão Localizar e Selecionar e então em Painel de Seleção. Na listagem de objetos, clique no objeto que quer excluir e dê um Delete. Lá em Localizar e Selecionar você também pode usar a seta "Selecionar Objetos". Com ela ativada, arraste um retângulo que englobe todos os objetos que desejar excluir e delete. Para voltar a poder selecionar células normalmente, desative a seta de seleção de objetos.

você já tentou alterar para "Habilitar todas as macros (não recomendado..."? Faça um teste alterando para essa opção. Também tem um problema de fluxo em seu código, que embora não relacionado com o erro em questão, pode tornar seu código tão lento a ponto de travar: a criação de um novo Application do Outlook ocorre dentro de um laço For-Next o que é contra-indicado. Até porque você não encerrou um Application antes de criar um novo: definir a variável como Nothing só descarrega a variável, mas o aplicativo continuará na memória. Não me recordo se o Outlook permite criar várias instâncias ao mesmo tempo, mas mesmo que permita, seria totalmente desnecessário e contra-producente. Para encerrar uma instância do Outlook você usaria o método Quit. Mas o ideal mesmo seria dimensionar a variável em nível de módulo e, dentro da Sub, usar sempre o mesmo Application, algo assim: Dim OutlookApp As Outlook.Application Sub MandaEmail() blá, blá, blá For i = 4 to LL ... Envia_Emails ... Next i OutlookApp.Quit Set OutlookApp = Nothing End Sub Sub Envia_Emails(EnviarPara As String,...) Dim OutlookMail as Outlook.MailItem If OutlookApp Is Nothing Then Set OutlookApp = New Outlook.Application Set OutlookMail = OutlookApp.CreateItem(0) blá, blá, blá Set OutlookMail = Nothing End Sub

Bem vindo ao fórum, @Ewerton Bumerad Tente fazendo Early Binding para ver qual o erro que de fato está ocorrendo: Dentro do VBE, no menu Ferramentas, Referências... role até encontrar e marque Microsoft Outlook xx.x Object Library, onde xx.x varia conforme a versão instalada em sua máquina. Agora no seu código, elimine ou comente a linha: Set OutlookApp = CreateObject("Outlook.Application") Substituindo-a por essas duas: Dim OutlookApp As Outlook.Application Set OutlookApp = New Outlook.Application Veja que nova informação de erro, se houver, será retornada e poste novamente aqui..

Pôxa, @André Luiz Macedo Amaral, facilita pra gente aí... Anexa um modelo funcional pra podermos testar as fórmulas, senão teremos que construir um esqueleto do zero com toda essa estrutura... aliás, o que tem ou como está estruturada a planilha "Relatório Energia"?

Bem vindo, @Raimundo.Junior O ponto tem significado especial* na formatação, portanto você precisa escapá-lo para conseguir usá-lo como parte do formato numérico. O caractere de escape para formato é a barra (\) que é mais fácil que inserir aspas duplas aninhadas dentro de outras aspas duplas. Ficaria assim: ="CPF nº " & TEXTO(A1;"000\.000\.000-00") Para usar com aspas duplas, teria que ser assim: ="CPF nº " & TEXTO(E3;"000"".""000"".""000-00") Nota: um ou mais pontos usados no formato, quando estão em qualquer lugar que não seja no final ou no início, sempre são usados como separador de milhar. Eles podem inclusive nem estar separados um do outro. Caso estejam no final, cada ponto "divide" (só na exibição) o valor por mil.

Os Controles de Conteúdo do Word não são identificados pelo nome e sim por uma ID numérica longa (infelizmente não têm uma propriedade .Name como outros objetos). Só que, entre usar o ID e usar o seu índice, optei por esse último, por ser mais simples. Eles são numerados de acordo com a ordem com que vão sendo inseridos na estrutura do documento. Como você inseriu primeiro o Mecânica, depois o Elétrica e por último o Oficina, nessa ordem, então seus índices automaticamente serão 1, 2 e 3 respectivamente. Essa é a justificativa do uso do Select Case. Por exemplo, se a área escolhida for Elétrica, o índice será o 2 (2ª CheckBox) que é justamente a de Elétrica. O laço For/Next portanto desmarca todas as que não forem a 2ª e marca somente esta. Embora você possa inserir uma etiqueta com texto ao lado da caixinha para dizer a que ela se refere, ela não pertence ao controle, então não dá pra identificá-lo por ela. Uma coisa que você poderia fazer se quisesse requintar um pouco mais é definir a propriedade Título (Title) ou Marca (Tag) do controle (guia Desenvolvedor > Propriedades) e referir-se ao controle usando-os. Por exemplo: wdDoc.SelectContentControlsByTitle("títMecânica")(1).Checked = True ou False ou wdDoc.SelectContentControlsByTag("marcaMecânica")(1).Checked = True ou False Não vejo muita vantagem nessa metodologia pois referir-se com títulos e tags NÃO retorna controles obrigatoriamente únicos (veja o 1 entre parênteses).

Elimine a linha que atualiza o bookmark bkmÁrea e acrescente as linhas destacadas abaixo: ... 'Eliminar: AtualizaIndicadores "bkmÁrea", rg.Cells(13).Value AtualizaIndicadores "bkmFáb", rg.Cells(3).Value AtualizaIndicadores "bkmEquip", rg.Cells(10).Value AtualizaIndicadores "bkmResp", rg.Cells(8).Value AtualizaIndicadores "bkmTAG", rg.Cells(4).Value AtualizaIndicadores "bkmDescr", rg.Cells(2).Value '---------------------------------------------------------------- 'Acrescentar essas linhas: Dim i As Integer, índice As Integer Select Case rg.Cells(13).Value Case "Mecânica": índice = 1 Case "Elétrica": índice = 2 Case "Oficina": índice = 3 End Select For i = 1 To 3 'Qtd de Áreas que estão no formulário wdDoc.ContentControls(i).Checked = (i = índice) Next i '---------------------------------------------------------------- End Sub

Valeu pela dica, @Fxtreme Já tinha lido a respeito desse monopólio chinês no mundo da tecnologia de massas no site do Baboo há um tempo atrás... é arrepiante! Mesmo assim fiquei intrigado com aquele acento agudo no primeiro w do www no Chrome. No teu também apareceu...

Boa noite, amigos Há muitos anos acesso meu e-mail do Hotmail pelo navegador, de uns dois anos pra cá com o navegador Ópera e eventualmente pelo Google Chrome. No Ópera através de um botão no Speed Dial e no Chrome digitava www.outlook.com e tudo certo. Hoje tive uma desagradável surpresa no Ópera: a cada tentativa, aparecia a seguinte tela alguns segundos após entrar no e-mail: Tenho proteção com o ESET e também fiz varredura completa e não encontrei nada. Também está ativo o IBM Security Trusteer Rapport (bancos). Interessante que usando o Google Chrome abria normalmente. Além da varredura e de procurar por processos estranhos no Gerenciador de Tarefas e em entradas na inicialização, fiz limpeza dos cookies com o CCleaner e não resolveu. Só resolveu quando limpei manualmente todos os cookies de todos os sites dentro do Ópera. Fiquei intrigado, cheguei a pensar que o site tivesse sofrido hackeamento. Alguém tem alguma notícia se algo ocorreu a esse respeito? Fiquei mais intrigado ainda quando percebi que, no Google Chrome, ao começar a digitar www.outlook..... as sugestões da 3ª em diante apareciam (e ainda aparecem) com o primeiro w com um acento agudo (no início pensei que fosse sujeira na tela). O que poderia ser? Nos testes que fiz, isso só está acontecendo ao digitar o outlook ou msn. No Ópera, fica invisível essas linhas... muito estranho. No PC de algum de vcs acontece algo semelhante?

Não ficou claro de onde viria a informação que relaciona Fulano com Manutenção Elétrica. Estará numa tabela? No seu arquivo não vi nada que associe isso. Também não vi essa parte na OS ainda... você não enviou o arquivo errado? Ou você ainda vai implementar?

Bem vinda, @Larissa C. Algumas tentativas... Vá fazendo de uma em uma e testando pra ver se é algum desses fatores: Em Arquivo > Opções > Avançado > seção Exibir, marque a opção "Desabilitar aceleração gráfica de hardware" Um pouco mais acima, na seção Tamanho e Qualidade da Imagem, aproveite e veja como está a Resolução padrão Sua pasta também tem muitas fórmulas? Mais abaixo, veja na seção Fórmulas se o número de Threads não foi posto em Manual com valor maior que o número de processadores (às vezes isso é usado para tentar acelerar um pouco mais). Coloque em "Usar todos...". Ou desmarque Habilitar processamento multi-thread mais abaixo na seção Geral. Por acaso as imagens não estão só vinculadas ao invés de estarem incorporadas? Mova um arquivo de imagem de uma pasta pra outra e abra o arquivo pra testar... Esse comportamento ocorre só em sua máquina?

Bem vinda, @dani_mg! O colega @WOZ Dods tem razão. E eu começaria investigando pela primeira e terceira dica que ele recomendou: Clique com o botão direito em qualquer lugar da Area de Trabalho e escolha "Configurações de Exibição" Na categoria "Vídeo", role para baixo e veja como está a opção "Ajustar escala e layout", subitem "Alterar o tamanho do texto, dos aplicativos e de outros itens". O normal é ficar em 100%. Na mesma opção, logo abaixo, veja como está o subitem "Resolução" e escolha a máxima resolução que seu monitor suporta. Se não estiver disponível, talvez seja necessário reinstalar o driver da placa de vídeo. Boa sorte!

Além da recomendação sugerida pelo colega @PedraX, pergunto: Se você copiar o arquivo da rede para uma pasta local de seu PC você abre normalmente? Se sim, veja como está a política de segurança de sua conta de usuário (seus privilégios) na rede. Lembrando que, assim que um arquivo dos aplicativos Office é aberto, um arquivo temporário com informações de autorrecuperação/conteúdo da clipboard , etc., é automaticamente criado no mesmo local (~$NomeDoArquivo.docx) e é também automaticamente eliminado quando você fecha o arquivo. Então, uma hipótese seria a de que, se você não tem privilégio de Gravação, poderia dar erro ao abrir esses docs. Tente também desbloquear o arquivo antes de abri-lo (no Windows Explorer, botão direito no arquivo, guia Geral, em baixo), se é que está bloqueado.

Bem vindo ao time, @guuhgarcia Além da dica do @Kleber Peters, tente fazer um teste ticando a opção "Desabilitar aceleração gráfica de hardware" em Arquivo > Opções > Avançado > seção "Exibir". Se o código não foi feito por alguém experiente, pode ser que o problema esteja na qualidade do código: uso desnecessário de Selects, Activates, esquecer de desligar a atualização de tela durante a execução e religá-la só ao final (Application.ScreenUpdating = False/True) e outros que interferem na interface com o usuário.

Bem vindo ao fórum do Clube do Hardware, @Agnaldo Luchetti Vieira! Não entendi sua colocação, pois matematicamente isso não procede, visto que o resultado de 862,52 / 24 * 6 dá exatamente 215,63, como está sendo trazido pelo Excel: 862,52/24*6 = (862,52/(6*4))*6 - eliminando o 6 do numerador e do denominador ficamos com = 862,52/4 = 215,63 (Note que dividir por 24 e multiplicar por 6 é o mesmo que somente dividir por 4. E como 4 é uma potência de 2, o resultado da fração nunca dará uma dízima periódica infinita)

Qual a versão de seu Excel, @Dinei San? você não informou isso em seu questionamento. Se for 2019 como parece ser (pois você usou a função CONCAT), tente usar essa fórmula na F3: =SE(C3="DEVOLVIDO";UNIRTEXTO("/";VERDADEIRO;SE(($B$3:$B$11=B3)*($C$3:$C$11="DEVOLVIDO");$D$3:$D$11;""));"") E na G3: =SE(C3="DEVOLVIDO";SOMASES($E$3:$E$11;$B$3:$B$11;B3;$C$3:$C$11;"DEVOLVIDO");"")

Bom dia @Ileusis LUNA ARAUJO E SILV e demais colegas Acho que à partir do txt que você mostrou na imagem do post inicial é mais fácil do que da forma com que ficou na tentativa da planilha "EFD_0123_0022020" do anexo, porque nesta ficou muito bagunçado, rsrsrsr. Consegues disponibilizá-lo?

Bom dia, @PaiDaLaura, bom dia demais colegas Qual a versão de seu Excel? Se for da 2016 em diante você poderia também aproveitar a "Inteligência Artificial" do Excel usando o recurso Preenchimento Relâmpago. Nesse caso não precisaria usar fórmulas. Separando só o Texto Vamos começar na linha 91 e 92, que são as problemáticas: Em B91 digite K11 (procure respeitar maiúsculas/minúsculas exatamente como está no texto) Em B92 digite Km 32 Volte na célula B92 e dê CTRL+E Separando só os números Novamente, nas linhas 91 e 92: Formate antes a coluna C como Contábil ou com algum formato que aumente as casas decimais para 2 algarismos (obs.: no seu caso essa etapa nem seria necessária pois nenhum dos números contêm centavos) Em C91 digite 40,00 Em C92 digite 50,00 Volte na célula C92 e dê CTRL+E

Olá, @Marcelo Almeida Cruz O método Find retorna um objeto tipo Range. Só que quando não encontra nada, o objeto retornado por ele também não tem conteúdo, permanecendo então com o valor especial Nothing. O erro então irá ocorrer porque você tenta ler a propriedade .Row desse Nothing. Você poderia atribuir o retorno a uma variável Range e então testar: se é Nothing nada foi encontrado, exibe uma mensagem e sai, por exemplo. Senão é porque encontrou então põe a propriedade Row na variável busca: Set rg = Sheets("EDI").Cells.Find(nomenclatura, , , xlWhole) If rg Is Nothing Then MsgBox "Não encontrado" Exit Sub Else busca = rg.Row End If