Discussion :

[thcar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Graffito]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[thcar]

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

[Graffito]

Oups, le code correspond à la bibli Aspose et non à Word automation

[thcar]

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.

[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.