ajout fichiers word en vb2008

Version imprimable

Bonjour,
dans une application écrite en VB2008, j'ai plusieurs documents Word que je souhaite ajouter les uns après les autres dans un nouveau document word. L'utilisateur n'aura pas le choix du nom du fichier word résultat.

J'ai réussi à ouvrir word avec le 1er document mais je ne sais comment faire pour aller à la fin et copier le contenu du 2ème document puis aller de nouveau à la fin et copier le contenu du nouveau doc.

Merci d'avance de votre aide.

voilà ce que j'ai mis pour ouvrir le 1er fichier
Code:

1 2 3 4 5 Dim monProcess As New Process() monProcess.StartInfo.FileName = "fichier1.doc" monProcess.StartInfo.Verb = "" monProcess.StartInfo.CreateNoWindow = True monProcess.Start()

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  ' The document that the other documents will be appended to.
  Dim doc As New Document()
  ' We should call this method to clear this document of any existing content.
  doc.RemoveAllChildren()
 
  Dim recordCount As Integer = 5
  For i As Integer = 1 To recordCount
      ' Open the document to join.
      Dim srcDoc As New Document("C:\DetailsList.doc")
 
      ' Append the source document at the end of the destination document.
      doc.AppendDocument(srcDoc, ImportFormatMode.UseDestinationStyles)
 
      ' In automation you were required to insert a new section break at this point, however in Aspose.Words we
      ' don't need to do anything here as the appended document is imported as separate sectons already.
 
      ' If this is the second document or above being appended then unlink all headers footers in this section
      ' from the headers and footers of the previous section.
      If i > 1 Then
          doc.Sections(i).HeadersFooters.LinkToPrevious(False)
      End If
  Next i

16/08/2012, 15h59
thcar

erreurs dans le code proposé

Merci mais j'ai plusieurs erreurs :

deux sur document : type "document" non défini

et une autre sur ImportFormatMode.UseDestinationStyles avec Erreur Le nom 'ImportFormatMode' n'est pas déclaré.

il doit manquer une bibliothèque qui doit contenir ces références.

Cordialement
17/08/2012, 22h07
Graffito

Oups, le code correspond à la bibli Aspose et non à Word automation :(
23/08/2012, 18h12
thcar

existe-t-il une autre solution si on ne peut pas copier directement

Si on a ouvert un document Word sous VB2008, existe-t-il une commande pour pouvoir sélectionner tous le document et le copier dans un autre document ? Je ne trouve pas cette commande dans celle de document ?

Merci de votre aide.
23/08/2012, 23h16
Graffito

On peut utiliser les fonctions Range.Copy() et Range.Paste().

Mais, en automation, passer par le ClipBoard peut être risqué si l'utilisateur fait des coier-coller dans d'autres appli en même temps.