Bonsoir à tous,
(Désolé, au cas où vous le voyez deux fois, je reposte)
Je suis prêt à proposer à Cabri-Auxi une solution bricolé par moi macro mais je bute sur ça !!!! :
Pourquoi la sub de Guy change bien de signet à chaque next et pas la mienne !!!
-------------------------
Guy :
Sub AfficheNomSignet()
' Macro écrite par Guy Moncomble
Dim varSignet As Bookmark
For Each varSignet In ActiveDocument.Bookmarks
ActiveDocument.Comments.Add Range:=varSignet.Range, Text:=varSignet.Name
Next varSignet
End Sub
-------------------------
La mienne :
Sub ConversionInverse()
Dim varSignet As Bookmark
For Each varSignet In ActiveDocument.Bookmarks
'varSignet.Select
varSignet.Range.ConvertToTable Separator:=wdSeparateByTabs, Format:=wdTableFormatList8
Next varSignet
end sub
Je tourne en rond j'ai même essayer une solution du type de l'aide dont je ne retrouve pas le code
-------------------
If ActiveDocument.Bookmarks.Count >= 1 Then
ReDim aMarks(ActiveDocument.Bookmarks.Count - 1)
i = 0
For Each aBookmark In ActiveDocument.Bookmarks
aMarks(i) = aBookmark.Name
i = i + 1
Next aBookmark
End If-------------------
Y veut pas me faire mon Redim, y faut que ce soit une table et si c'en est une y veut pas la redimensionner
sous prétexte qu'elle l'ai déjà !Je veux donc en fait balayer les signets et transformer la range ou la selection peu importe, en
tableau et là je coince, coince, coince... La range ou la selection peu importe, j'ai bien compris qu'il y avait une différence
important mais dans les faits, je dois pas être fait pour le VBA.
Merci de toute contribution.
Merci d'avoir lu jusque là.
