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 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 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 altamente estragado [ Formatação das Páginas que possuem tabelas]?
O que devo fazer?
Sua melhor aposta é usar subdocumentos. Consulte a página de ajuda da Microsoft aqui: link
Ele fala sobre a criação de subdocumentos sob o título Divide um subdocumento em dois subdocumentos .
Há uma pergunta útil sobre as respostas do Yahoo aqui: link
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 < um pdftk .
Clique em "Salvar como" Escolha PDF e clique em "opções" na mesma tela. Em opções, você pode escolher quais páginas salvar!
O que você pode fazer é copiar e colar primeiro seu documento para ter duas cópias. Em uma cópia abra-a e vá salvar - como digite os detalhes do evento, então no seu documento principal vá para a última página, para a última linha, última palavra da frase apague todo o texto em todas as páginas que você não precisa usando < kbd> Backspace ... mesmo que demore mais ainda manterá a sua formatação.
repita o procedimento acima com a descrição do resto do evento, regras e regulamentos e orçamento do evento.
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
O Word 10 permite que você copie e cole o que quiser de um documento do Word, mantendo o mesmo formato do documento original. Depois de copiar o texto relevante do documento de origem, abra um novo documento do Word, clique com o botão direito e, a partir das opções anteriores, clique em "Manter a formatação original".