L'utilisation de vba pour copier le contenu d'un document word dans un autre document word

À l'aide de commandes telles que ces, vous pouvez basculer entre les documents dont vous utilisez et de copier et coller des éléments:

ThisDocument.Activate 'Sets the main document active
Documents("Name.doc").Activate 'Activates another document

Vous pouvez insérer, copier et coller des choses dans et hors de documents à l'aide de commandes de copie.

ThisDocument.Range.InsertAfter("String") 'Insert text

Selection.WholeStory 'Select whole document
Selection.Expand wdParagraph 'Expands your selection to current paragraph
Selection.Copy 'Copy your selection
Documents("name.doc").Activate 'Activate the other document
Selection.EndKey wdStory 'Move to end of document
Selection.PasteAndFormat wdPasteDefault 'Pastes in the content

Vous pouvez alors aller et le format de ces, ou de le copier et de les coller avec mise en forme d'origine d'avant.

OriginalL'auteur Alex D

Ici est une amélioration significative (je pense) vous souhaitez intégrer, car c':

1. ne pas utiliser le presse-papiers et donc de ne pas faire de votre macro vulnérables à l'utilisateur de changer le contenu du presse-papiers lors de votre macro est en cours d'exécution
2. ne pas utiliser un fichier et ainsi d'améliorer considérablement la vitesse en éliminant les I/O et élimine le risque d'avoir à traiter avec la sécurité du système de fichier/autorisations, etc. S'il vous plaît ne pas l'utiliser .Insertionfichier() si vous êtes en boucle par des documents qui vous permettra de ralentir vous vers le bas. L'utiliser une fois, à la fin uniquement si vous devez. L'exemple ci-dessous montre comment obtenir le même résultat sans utiliser de .Insertionfichier()

L'idée est de transférer une partie de texte dans 1 document source, à destination d'un document qui est différente de la source, et de garder la mise en forme source.

Pour y parvenir (en ignorant le code pour ouvrir les documents):

For Each oTable In oDoc_Source  
'the above could have been anything that returns a Range object
'such as: ActiveDocument.Content.Find.Execute ....

'...
'logic here to identify the table, or text, you are looking for
'...

'I can't believe the MS Dev Center folks could only think
'of .InsertFile(), which is the last resort I would go for, 
'especially if your code runs on a web server [concurrent web requests]!

'SAFEST
'(no user interference on clipboard possible, no need to deal with file i/o and permissions)
'you need a reference to Document.Content, 
'as the act of obtaining a reference "un-collapses" the range, so the below 3 lines must be in that order.
Set oRange =  oDoc_DestinationDoc.Content
oRange.Collapse Direction:=wdCollapseEnd
oRange.FormattedText = oTable.Range

'BRUTE, AND PRONE TO RANDOM ERRORS AND HANGS DUE TO USER INTERFERENCE WITH CLIPBOARD 
'find a way to implement WIHTOUT using the CLIPBOARD altogether to copy the below range object
'it will be easier for PC users to use the clipboard while the macro runs
'and it will probably be safer for the output of this macro to remain uncorrupted

'oTable.Range.Copy
'Set oRange =  oDoc_DestinationDoc.Content
'oRange.Collapse Direction:=wdCollapseEnd
'oRange.Paste


'THE BELOW DOES NOT WORK
' '1) - cannot add a range from another document
' 'adds only text, not the formats and not the table layout
' oTable.Range.TextRetrievalMode.IncludeFieldCodes = True
' oTable.Range.TextRetrievalMode.IncludeHiddenText = True
'  oDoc_DestinationDoc.Content.InsertAfter oTable.Range
'
' '2) - cannot add a range from another document
'  oDoc_DestinationDoc.Content.Tables.Add oTable.Range, iRowMax, iColMax
' 
' '3) - only puts in plain text, and it replaces the range without the .Collapse call
'  oDoc_DestinationDoc.Content.Text = oTable.Range

OriginalL'auteur Fr4nc01s