web-dev-qa-db-pt.com

Salvar páginas de um documento como documentos separados

Atualmente, estou usando o formato MS-Word 2007 (.docx).

Eu tenho um documento do Word com as seguintes páginas:

  • Página 1: detalhes do evento

  • Página 2: Descrição do Evento

  • Página 3: Regras e Regulamentos

  • Página 4: Orçamento do Evento

Eu gastei um tempo considerável escrevendo este documento com boa formatação. O problema que estou enfrentando aqui é que eu tenho que salvar cada página do documento separadamente e, em seguida, enviá-las como anexos separados.

Como faço isso?

O que eu tentei:

  • Copiando e colando páginas individuais do documento em um novo arquivo de documento do Word - mas a formatação não está sendo copiada corretamente mesmo depois de selecionar a opção "Manter a formatação da fonte".

  • Como salvar uma página individual em um documento do Word 2010 como um documento separado? - Resposta dada para esta pergunta também foi tentada, mas a formatação das páginas que eu não estou deletando está ficando muito estragado [Formatação das páginas que têm tabelas]?

O que devo fazer?

5
user127735

Sua melhor aposta é usar subdocumentos. Veja a página de ajuda da Microsoft aqui: http://office.Microsoft.com/en-us/Word-help/combine-or-split-subdocuments-HP005186930.aspx

Ele fala sobre a criação de subdocumentos sob o título Divide um subdocumento em dois subdocumentos .

Há um Yahoo útil responde a pergunta aqui: http://answers.yahoo.com/question/index?qid=20070921100104AAU8Ebh

Se você não precisar editá-lo, poderá exportar para PDF (não usar uma impressora PDF, usar o plug-in opcional do Word) e explodir o PDF, usando uma ferramenta como pdftk .

4
Alex Chamberlain

Clique em "Salvar como" Escolha PDF e clique em "opções" na mesma tela. Em opções, você pode escolher quais páginas salvar!

2
myr

O que você pode fazer é, em primeiro lugar, copiar e colar o documento para ter duas cópias. Em uma cópia abra e vá salvar - como digite detalhes do evento, em seguida, no seu documento principal vá para a última página, para a última linha, última palavra da frase apagar todo o texto em todas as páginas que você não precisa usando Backspace... mesmo que demore mais, ainda manterá sua formatação.

repita o acima com a descrição do resto do evento, regras e regulamentos e orçamento do evento.

0
Dima

Eu tenho um documento do Word que eu precisava para salvar cada página como um documento individual no formato Rich Text. Você pode alterar as variáveis ​​para um arquivo .txt, docx, etc., conforme necessário, mas lembre-se de alterar o FileFormat=.
Observe que isso começa na página atual em Application.Browser.Target = wdBrowsePage e continua em loop pelas próximas 99 páginas (100 no total).

Você pode modificar a macro para atender à sua necessidade.

A variável i representa o número do arquivo (DCX_1.Rtf) (DCX_2.Rtf) etc.

For i = 1 To 100
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("\page").Range.Copy
    Documents.Add
    Selection.Paste
    ChangeFileOpenDirectory "C:\__BOOK\JUNK\"
    ActiveDocument.SaveAs FileName:="DCX_" & i & ".rtf", FileFormat:=wdFormatRTF
    ActiveDocument.Close
    Application.Browser.Next
Next i
0
Randy