Mesclando muitos documentos em um no Word 2007: Como fazer com que cada um comece em uma nova página?
0
Eu tenho 31 documentos que eu preciso para mesclar em um, usando o Word 2007 no Windows 7. Eu li que você pode ir para Insert - & gt; Object - & gt; Text from file e selecione os documentos que você precisa. Eu fiz isso e funcionou bem. A coisa é, cada documento está certo contra o último. Existe alguma maneira de fazer com que cada documento inicie em uma nova página, além de inserir manualmente as quebras de página?
Aqui estão algumas fotos de exemplo, caso não esteja claro. Suponha que "document1" e "document2" sejam dois documentos que eu queira mesclar.
Use esta Macro, ele lançará um erro, se você não tiver nenhum documento aberto:
Sub OpenMultipleFiles()
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = True
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Cancelled By User", , "Cancelled"
Exit Sub
End If
End With
For i = 1 To fDialog.SelectedItems.Count
Selection.InsertFile fDialog.SelectedItems.Item(i)
Selection.InsertBreak Type:=wdPageBreak
Next i
End Sub
Enquanto no Word pressione ALT + F11 isso traz o Editor VBA. Depois expanda Normal para ver a pasta Modul. Se não existir, clique em Normal - & gt; Inserir - & gt; Modul
Cole a macro e salve.
Depois, você pode adicionar um botão com a macro às suas barras de ferramentas.
Eu já sei disso; Eu estava pedindo uma maneira de dizer ao Word para inserir isso automaticamente cada vez que um novo documento é anexado.
Javier
use a macro da edição acima
Darokthar
@Javier Badia é a macro acima trabalhando no Word 2007?
Darokthar
@Javier Badia obrigado pela informação. Então eu vou guardar para mim mesmo. Eu não estou usando janelas no momento, mas nunca se sabe, se for útil no futuro.
Darokthar
2
Tanto quanto eu sei que você não pode automatizá-lo na importação, mas eu sei que há uma maneira rápida de inserir quebras de página pressionando Ctrl + Enter antes da primeira palavra de cada novo documento.
Se nada mais aparecer, isso será útil. Obrigado. BTW, uma vez que todos os documentos têm a mesma estrutura, não seria possível usar algo como o VBA para inseri-los automaticamente nos lugares certos?
Tanto quanto eu sei que você não pode automatizá-lo na importação, mas eu sei que há uma maneira rápida de inserir quebras de página pressionando
Ctrl
+Enter
antes da primeira palavra de cada novo documento.fonte