[VBA]Mise à jour d'hyperlien [Résolu]

[petit806]

Bonjour et bonne année à vous

Voilà, j'ai un document word rtf généré par matlab, qui me crée une table des matières mais à priori il n'utilise une table des matières word puisqu'aucun objet TableofContents n'existe dans le document. Le problème que suite à des modifications dans le document, cette table des matières n'est plus à jour pour les numéros de pages.

J'ai donc trouver qu'il existe des objets hyperliens mais je n'ai pas trouvé de méthode pour les mettre à jour parmi celles proposées. Je cherche donc un moyen de mettre à jour tous mes hyperliens (si possible avec une seule commande pour m'évitez de faire une boucle for).

[Heureux-oli]

En général, ce sont des champs qui sont utilisés pour les tables des matières.

Si tu pouvais mettre un exemple sur le forum, il serait plus aisé de déterminer les actions à prendre.

La solution serait de supprimer ce qui existe pour en mettre une nouvelle et éviter une boucle.

[petit806]

Je ne suis pas sur de bien comprendre ce que tu me suggères.

Voici un exemple de fichier où je dois modifier la table des matières car les liens ne sont pas à jour.

Quand j'utilise je fais

Code :

1
2
word = actxserver('word.Application');
Doc=invoke(word.Documents,'open','chemin_du_fichier')

Avec Doc.TableofContents.Count il me retourne 0.

Par contre Doc.Hyperlinks.Count me retourne 31.
L'idée que j'avais était donc de mettre à jour chacun de ces hyperliens comme ça je suis sur que ma table des matières est à jour aprés. Mais je n'ai pas trouver de méthodes pour mettre à jour les hyperliens.

[Heureux-oli]

Je viens de faire le tour de ton fichier et c'est normal que la table des matières ne soit pas mise à jour, elle ne contient pas d'entrées.

Pour qu'une table des matières puisse être construite, il faut que l'on retrouve soit des titres, soit des styles repris comme entrée de table des matières.

Dans ton fichier, on ne retrouve ni l'un ni l'autre.

Ce qui serait possible de faire, c'est convertir en titre les paragraphes avec numérotation.

[petit806]

Ca ne risque pas de changer ma mise en page de changer les paragraphes avec numérotation en titre?

En plus il me semble que la numérotation n'est aps faite par word mais que c'est une numérotation "à la main" en texte simple.

Ensuite je vois que les codes champ utiliser pour la table des matières sont du type suivant:

Code :

 { HYPERLINK  \l _428}

Ne pourrais t'ont pas récupérer le numéro de la page où se trouve la cible du lien hypertexte? Car de ce que j'ai vu les liens hypertexte, malgré le fait qu'ils ne donnent pas les bons nuémros de page, pointent bien au bon endroit dans le document.
Enfin ne connaissant pas bien word ça me semble plus simple.

[Heureux-oli]

Si on change le style, on ne change pas la numérotation.
Je vais faire un essai.

[Heureux-oli]

Après essai sur le fichier fournis

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Test()
Dim para As Paragraph
Dim i As Integer
 
For Each para In ActiveDocument.Paragraphs
    If Len(para.Range.Text) > 1 Then
    If IsNumeric(Left(para.Range.Text, 1)) Then
        i = InStr(1, para.Range.Text, ".")
        Debug.Print i
        Select Case i
        Case 0
        para.Range.Style = wdStyleHeading1
        Case Is < 3
        para.Range.Style = wdStyleHeading2
        End Select
    End If
    End If
Next para
 
End Sub

Qu'en penses-tu ?

[petit806]

J'essai de tester mais je rencontre actuellement des problèmes pour modifier le style du paragraphe avec Matlab.

Voici la ligne de code et l'erreur que j'obtiens si jamais tu as une idée:

Doc.paragraphs.Item(45).Range.Style.Type='wdStyleHeading1'
??? The 'wdStyleHeading1' enumerated value is invalid.

Sinon j'ai une bizarrerie quand je modifie le style du paragraphe "à la main" et que je lui mets un Style "titre 1" et que je demande à matlab les paramètres de style j'obtiens:

Doc.paragraphs.Item(45).Range.Style.get
Application: [1x1 Interface.Microsoft_Word_11.0_Object_Library._Application]
Creator: 1.2973e+009
Parent: [1x1 Interface.Microsoft_Word_11.0_Object_Library._Document]
NameLocal: 'Titre 1'
BaseStyle: [1x1 Interface.Microsoft_Word_11.0_Object_Library.Style]
Description: [1x133 char]
Type: 'wdStyleTypeParagraph'
BuiltIn: 1
NextParagraphStyle: [1x1 Interface.Microsoft_Word_11.0_Object_Library.Style]
InUse: 1
Shading: [1x1 Interface.Microsoft_Word_11.0_Object_Library.Shading]
Borders: [1x1 Interface.Microsoft_Word_11.0_Object_Library.Borders]
ParagraphFormat: [1x1 Interface.Microsoft_Word_11.0_Object_Library._ParagraphFormat]
Font: [1x1 Interface.Microsoft_Word_11.0_Object_Library._Font]
Frame: [1x1 Interface.Microsoft_Word_11.0_Object_Library.Frame]
LanguageID: 'wdFrench'
AutomaticallyUpdate: 0
ListTemplate: []
ListLevelNumber: 0
LanguageIDFarEast: 'wdFrench'
NoProofing: 0
LinkStyle: [1x1 Interface.Microsoft_Word_11.0_Object_Library.Style]
NoSpaceBetweenParagraphsOfSameStyle: 0
Table: [1x1 Interface.Microsoft_Word_11.0_Object_Library.TableStyle]
Locked: 0

Il a l'air de modifier uniquement le nom local et pas le type du style. je continue mes tests pour essayer de résoudre ça mais si tu as une suggestion je suis preneur.

[Heureux-oli]

Mon code est pour Word, pas pour MatLab.
Pour MatLab, il est préférable de poster dans forum MatLab.

[petit806]

Oups oui j'ai oublié de préciser mais je commande word avec un serveur activeX lancé sous matlab.

Je demande aussi ici car de ce que j'ai pu voir de mes précédentes questions, les utilisateurs de matlab n'utilise pas beaucoup ces possibilités de matlab.

[Heureux-oli]

Jamais vu !

Si tu as Word, lance mon code sous Word.

[Dut]

Désolé de polluer le forum Office avec mes interventions MATLAB mais c'est ActiveX le coupable

Voila comment je m'en suis sorti sous MATLAB et les styles prédéfinis de Word (1er paragraphe en style "Titre 1"):

Code Matlab :

1
2
3
4
5
6
7
8
9
10
11
word = actxserver('word.application');
set(word,'visible',1);
 
Document= word.documents;
 
doc = invoke(Document, 'Open','D:\test.doc');
 
doc.Paragraphs.Item(1).Style=doc.Styles.Item(130); 
 
invoke(word,'quit');
delete(word);

Le 130ème style correspond à "Titre 1" (Word en français)

Vous en pensez quoi ?

=> http://www.developpez.net/forums/sho...d.php?t=467105

[petit806]

Euh je ne sais pas comment exécuter du code sous word.

Par contre gràce tes suggestions j'ai réussi avec matlab à générer ma table des matières.

[Heureux-oli]

Merci Dut,

Je n'oserais pas dire que ce qui vient de toi est une pollution.

Merci de ton intervention, ne connaissant pas MatLab, j'aurais eu beaucoup de mal.