Bonjour tout le monde,
J'ai une macro que j'arrive pas a faire marcher et vu qu'elle est pas de moi et que je suis une tanche en VBA, je compte sur vous...
Voila, le but c'est de modifier des liens: J'ai un doc word qui se met a jour sur un classeur excel. Mon souci c'est la police (toujours la quand il faut pas ceux-la... lol).
Je voudrais changer mes liens.
Pour resumer:
J'ai des liens qui ressemblent a ca:
{ LINK Excel.Sheet.8"C:\\...adressedulien..." Sheetl!R762C15 \a \r }
et a ca:
{ LINK Excel.Sheet.8"C:\\...adressedulien..." Sheetl!R762C15 \a \r \* MERGEFORMAT }
Les liens de la premiere forme doivent absolument etre change en:
{ LINK Excel.Sheet.8"C:\\...adressedulien..." Sheetl!R762C15 \a \r \* CHARFORMAT }
Et les liens de la deuxieme forme aussi si possible (ca evitera les surprises...)
Ce sont des liens vers des cellules Excel mis en place par: collage special, lien, RTF
La macro donnees par Berylion ne fonctionne pas ou je ne sais pas la faire fonctionner.
Voila, voila, si vous pouviez me sauver la mise sur ce coup la, ce serait franchement cool parcequ'il commence a me saouler ce catalogue...
Ci-dessous la macro
Sub Nemka2()
'
' Nemka2 Macro
' Macro created 22/06/2007 by v-pfl
'
P.S.: les points (.......) c'est pour materialiser les decalages.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Application.ScreenUpdating = False For Each fld In ThisDocument.Fields ......If fld.Type = 56 Then ..........If Right(fld.Code.Text, 14) = "\* MERGEFORMAT" Then ..............fld.Code.Text = Left(fld.Code.Text, Len(fld.Code.Text) - 14) & "\* CHARFORMAT" ..........ElseIf Right(fld.Code.Text, 13) <> "\* CHARFORMAT" Then ..............fld.Code.Text = fld.Code.Text & "\* CHARFORMAT" ..........End If .....End If Next ThisDocument.Fields.Update Application.ScreenUpdating = True End Sub
Merci a tous,
Take Care
Partager