Discussion :

[superlucile]

Bonjour,

je tente de créer des signets automatique dans une partie spécifique et puis de créer des renvois dans la suite du document où l'on trouve la chaine de caractère brute.
J'ai d'abord tout tester sous word puis j'ai fait une interface dans excel qui permet de modifier le document word.
Sous word directement cela fonctionne très bien mais quand je passe sous excel je n'arrive plus à insérer mes renvois.
La ligne d'insertion de renvois (insertCrossReference) provoque une erreur de type 4198 que je ne parviens pas à corriger, quelqu'un a t il une solution ?

En bref le principe de ma fonction : j'ai une collection de Signet, une collection des paragraphes de mon doc. Le TitreRecherche est le titre de la partie qui contient mes signets que je dois donc passer pour détecter mes chaines de caractères à remplacer par des renvois.
Une fois que j'ai passé la partie où se trouve mes signets je peux commencer à vérifier si chaque paragraphe contient la chaine de caractère qui correspond à mon signet => si oui j'ajoute un renvoi à la place du texte brut.

Merci d'avance pour votre aide,
Cordialement,

Ci-dessous la fonction de création des renvois

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Function CreateRenvois(TitreRecherche As String, TitreStop As String, Doc As Collection, TabSignet As Collection, WordDoc As Variant, WordApp As Variant) As Boolean
 
Dim ChapitreEntetePasse As Integer
ChapitreEntetePasse = 0
Dim Occurrence_signet As String
Dim i As Integer
i = 1
 
For Each ParagraphIt In Doc
    If ChapitreEntetePasse = 0 Then
        If InStr(ParagraphIt.Contenu.Range.Text, TitreRecherche) > 0 Then
            ChapitreEntetePasse = 1
        End If
    ElseIf ChapitreEntetePasse = 1 Then
        If ParagraphIt.Contenu.Range.Style = "Titre 1" Then
            ChapitreEntetePasse = 2
        End If
    Else
        If InStr(ParagraphIt.Contenu.Range.Text, TitreStop) > 0 And ParagraphIt.Contenu.Range.Style = "Titre 1" Then
            Exit For
        End If
 
        For Each SignetIt In TabSignet
            Occurrence_signet = InStr(ParagraphIt.Contenu.Range.Text, SignetIt.Chaine)
            If Occurrence_signet > 0 Then
                WordDoc.Paragraphs(i).Range.Select
                posStart = WordApp.Selection.Start
                WordDoc.Range(Start:=posStart + Occurrence_signet - 1, End:=posStart + Occurrence_signet + Len(SignetIt.Chaine) - 1).Select
                ' Insertion d'un renvoi
                WordApp.Selection.InsertCrossReference ReferenceType:="Signet", ReferenceKind:= _
                          wdContentText, ReferenceItem:=SignetIt.nom, InsertAsHyperlink:=True, _
                          IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
             End If
         Next SignetIt
    End If
    i = i + 1
Next ParagraphIt
 
CreateRenvois = True
 
End Function

[Invité]

Bonjour,

De mon point de vue, les paramètres WordDoc et WordApp dans la déclaration de la fonction ne peuvent pas être de type variant, mais de type Object si vous avez instancié Word en late binding ou Word.Document ou Word.Application si vous avez référencé Word dans vos DLL.

Les variables WordDoc et WordApp ont elles le même nom que celles entrées en paramètres ? Quelle est leur portée : Public ?

Si vos variables Document et Application sont déclarées public, j'essaierais de les utiliser directement dans la fonction, momentanément, sans passer par les paramètres (juste pour voir).

Sinon, si vous n'arrivez pas à trouver l'erreur et si vous souhaitez que je regarde, mettez vos documents Excel + Word en ligne sans données confidentielles, ou envoyez les moi en privé.