none
Retirar todas as caixas de texto de um documento - word RRS feed

  • Pergunta

  • Olá pessoal,

    Estou com um documento em word com várias caixas de texto (deve ter umas 50 por página), que estão configuradas como "atrás do texto" posicionadas lado a lado até que a página inteira fique com essas caixas.

    Tenho um formulário na frente destas caixas de texto e preciso deletar todas as caixas de texto sem perder a formatação do meu formulário.

    Existe alguma maneira para fazer isso (mesmo que em VBA) de uma vez só? ou somente selecionando todas as caixas e depois deletando?

    Obrigado

    segunda-feira, 9 de dezembro de 2013 16:51

Todas as Respostas

  • Olá Kaliton,

    Qual versão do Office você utiliza? 2007? 2010? 2013?

    Nativamente a opção de remoção de caixas de textos no Office 2007 é realizada de forma manual mesmo. O procedimento como realizar esta operação você pode encontrar neste local.

    http://office.microsoft.com/pt-br/word-help/add-or-delete-a-text-box-HA010230259.aspx

    Se for a versão 2010 utilize este procedimento

    http://office.microsoft.com/pt-br/word-help/change-or-remove-a-border-from-a-text-box-or-shape-HA010355846.aspx

    Espero ter ajudado.


    Obrigado por contactar o fórum Microsoft Technet!

    • Sugerido como Resposta Edinaldo Junior quarta-feira, 11 de dezembro de 2013 14:49
    quarta-feira, 11 de dezembro de 2013 14:43
    Moderador
  • Olá Hezequias,

    Agradeço a sua ajuda.

    Meu office é versão 2010. Porém o procedimento sugerido é realizado para remover caixa por caixa "deletando-a", porém meu documento possui muitas caixas (acho que no documento inteiro devem haver por volta de 200 caixas). Não existe algum procedimento para deletar todas de uma vez? já que o texto interno delas é sempre o mesmo. O que poderia ajudar também seria: deletar o texto interno da caixa. (tentei através do "substituir" porém não funcionou.

    Obrigado mais uma vez e aguardo um retorno.


    Kaliton Sato

    quarta-feira, 11 de dezembro de 2013 17:08
  • Olá, Kaliton.

    Na aba "Página Inicial", em "Edição", clique em selecionar. Depois, clique em "Painel de seleção...".

    O Word exibirá uma coluna à direita com todos os objetos do seu documento. Clique em cada caixa de texto mostrado nesse painel e vá excluindo cada uma por meio da tecla delete.

    Dica: Você pode ir selecionando várias caixas de texto por meio da tecla Control (Ctrl) e depois excluí-las de uma vez com a tecla delete.

     


    Tiago Pratti

    segunda-feira, 16 de dezembro de 2013 16:04
  • Olá Tiago Pratti,

    Muito obrigado pela sua resposta, porém este método ainda não é suficiente para eliminar rapidamente todas as caixas de texto.

    Tentei novamente fazendo o "substituir" (palavra que se repete por um espaço em branco) e consegui. O texto sumiu, mas as caixas continuaram - em branco.

    O word fez mais de 7.000 substituições, o que demorou para finalizar o processo, mas tudo bem. O problema é que as caixas mesmo vazias deixam o word lento e dificulta a leitura, como eu preciso fazer algumas alterações neste documento preciso ler em word (não dá para transforar em pdf). Eu recebo estes documentos de outra pessoa que possui uma versão mais antiga do word (provavelmente 2003), e portanto, no painel de seleção, não consta nenhum caixa.

    Fiz um modelo semelhante para facilitar a compreensão.

    Obs, o formulário não está em formato tabela, apenas há algumas caixas cinzas atrás.

     


    Kaliton Sato

    terça-feira, 17 de dezembro de 2013 19:04
  • Kaliton,

    A macro abaixo exclui TODAS as caixas de texto de um documento:

    Sub DeleteTextBox()
    ' Macro deleta todas as caixas de texto de um documento Word
    'numCaixas é o número de caixas existentes no documento
    Dim numCaixas As Integer

    numCaixas = 4

    For i = 1 To numCaixas
        ActiveDocument.Shapes.Range(Array("Caixa de Texto 2")).Select
        Selection.Delete
    Next
    End
    End Sub

    Perguntas:

    - seu documento possui caixas de texto que você não queira excluir?

    - Qual é o padrão de repetição das caixas de texto que você quer excluir?

    Quanto mais padrões de repetição você encontrar, mais fácil será criar uma macro que remova apenas as caixas de texto que você desejar.


    Tiago Pratti

    quinta-feira, 19 de dezembro de 2013 12:27
  • Olá Tiago,

    Muito obrigado pela sua ajuda. Não tenho muita experiência em código VBA. Tentei utilizar o código acima e o código retornou o comando: "ActiveDocument.Shapes.Range(Array("Caixa de Texto 2")).Select", como erro em tempo de execução '-2147024809 (80070057)': O item especificado não foi encontrado.

    Tentei trocar o "caixa de texto2" pelo conteúdo que estava dentro das caixas, mas o erro persistiu (igual)


    Respondendo suas perguntas:

    Existem caixas que não desejo remover, acredito que todas as caixas que eu não quero remover estão em cinza e cinza escuro, sem nenhum texto no seu interior e colocadas de forma aleatória no documento.

    Sobre o padrão das caixas que desejo remover são 2:

    1o. Caixas de 1,26 x 0,90 cm. Com o conteúdo: "!!!ESBOÇO" Em fonte: Helvetica número: 6, escrita de baixo para cima na vertical. Na parte superior do documento. Posicionadas lado a lado (não sei especificar qual o espaçamento entre elas) (39 caixas em 1 linha).

    2o Caixas de 4,74 x 0,90 cm. Com o conteúdo: "!!!ESBOÇOInválidoparaapresentaraocliente!!!" Em fonte: Helvetica número: 6, escrita de baixo para cima na vertical. Em todo documento exceto na parte superior. Posicionadas lado a lado (não sei especificar qual o espaçamento entre elas) (39 caixas por linha e 6 colunas).

    Mais uma vez agradeço pelo paciência e tempo dispendido.


    Kaliton Sato

    sexta-feira, 20 de dezembro de 2013 17:51
  • Olá Kaliton,

    passei por um problema semelhante agora. Chegaste a solucionar o problema?

    No Office mais novo (360), descobri o seguinte:

    - selecione uma das caixas de texto

    - vá no menu selecionar e escolha a opção "selecionar texto com formatação semelhante". Ele irá selecionar todas as caixas de texto

    - Depois basta apagar...

    quinta-feira, 23 de fevereiro de 2017 17:49
  • Olá Iwives,

    Não resolvi o problema, tive que refazer o documento do início.

    Esta solução proposta é semelhante à que o Tiago propôs, mas não resolveu o meu problema, somente retirou o texto e não o "quadrado".

    Obrigado


    Kaliton Sato

    sexta-feira, 24 de fevereiro de 2017 14:25