Como excluir linhas horizontais desenhadas no MS Word

Question

Eu tenho um arquivo de palavras que contém centenas de linhas horizontais de "Inserir > Formas > Linha", este documento foi criado com versões anteriores do MS Word provavelmente 2000. ( atualmente, estou usando palavra 2016 )

Desejo excluir todas essas linhas de uma vez, não posso selecionar cada linha e clicar em excluir para centenas delas, pois tenho centenas de documentos adicionais.

Existe uma maneira de selecionar e excluir SOMENTE essas linhas do documento inteiro de uma só vez? Qualquer solução, por favor!

Obrigadopeloseuapoio!

EDIT:aquiestáolinkparaoarquivo Teste de exclusão de linha horizontal

    

Answer 1

Parece que o código na minha resposta anterior não está considerando as linhas horizontais criadas na versão anterior do Word como Shapes. Portanto, ele não entra no Loop em primeiro lugar, portanto, não há como excluir essas linhas. No entanto, sugiro outra solução. Faça uma tentativa. No entanto, faça um backup do seu documento primeiro.

Converta este documento para o formato docx ou docm mais recente, salvando primeiro a versão do Office 2013/2016. Não trabalhe no modo de compatibilidade, caso contrário, a opção sugerida abaixo pode não estar disponível.

1. Na guia Faixa de opções inicial, acesse "> Localização avançada
2. Soltar Especial e selecionar Gráfico
3. Localizar caixa de texto que deve conter ^ g
4. Vá para Substituir e insira nada e pressione Substituir (para substituir caso por caso) ou Substituir tudo para limpar tudo de uma vez.

Cuidado - Isso pode até substituir qualquer outro gráfico. Portanto, seja cuidadoso e teste primeiro em seu documento antes de implementá-lo.

    

Answer 2

No documento que contém as linhas CTRL + A, CTRL + C

Abra um novo documento do Word

Clique com o botão direito no espaço em branco > Colar Opções > Manter apenas texto

    

Answer 3

Você pode explorar o Código VBA abaixo mencionado para remover linhas do seu documento do Word.

Primeiro salve o documento em seu formato mais recente do Word como .docm (Documento do Word habilitado para macro).

Abra o dos e pressione ALT + F11 para acessar o VBA Editor. No menu Inserir, insira um módulo. Cole o seguinte código de sub-rotina

Sub DelLines()

Dim H_Line As Shape

For Each H_Line In ActiveDocument.Shapes

    If H_Line.Type = msoLine Then
       H_Line.Delete
    End If

Next H_Line

End Sub

Salve o documento. No documento principal, pressione ALT + F8 e execute essa macro.

Note que - A macro deu alguns resultados imprevisíveis no meu Word 2013. Ela excluiu todas as linhas, exceto uma. Executar novamente a macro limpou a linha pendente. Em segundo lugar, a macro parece ser incapaz de distinguir entre uma linha e uma seta. Por isso, também apagou as setas. Não tocou em outros objetos, como imagens inseridas ou retângulos. Isso é tentado selecionando If H_Line.Type = msoLine Then parte do código.

Portanto, antes de tentar qualquer coisa, faça um backup do documento original. Também não tenho certeza de como o documento antigo criado no Word 2000 pode responder a esse código, se o código for compatível. Experimente.