voila,
j'ai ce code :
'J'extrais le nom de la section et le num=E9ro de page.
lNumpage(i) =3D
oWord.ActiveWindow.Selection.Information(wdActiveEndPageNumber) - 1
t =3D
oWord.ActiveWindow.Selection.Information(wdActiveEndSectionNumber) - 2
'MsgBox "No section =3D " & t - 1 & " No page =3D " & lNumpage(i)
s =3D oWord.ActiveDocument.TablesOfContents(1).Range
sTOC =3D Split(s, Chr(13))
'J'enl=E8ve le num=E9ro de page
If Not Len(sTOC(t - 1)) =3D 0 Then
sTitlesection(i) =3D Left(sTOC(t - 1), Len(sTOC(t - 1)) - 2)
End If
Pour les 7 derniers graphiques il ne me retourne pas le bon num=E9ro de
section, mais pour les 23 premiers tous est parfait esse que c=E9 moi
qui est trop cave pour Word ou qqchose m'=E9chappe ??
merci d'avoi lu et de r=E9pondre.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Geo
Bonjour killedman
re bonjour,
voila, j'ai ce code : 'J'extrais le nom de la section et le numéro de page. lNumpage(i) > oWord.ActiveWindow.Selection.Information(wdActiveEndPageNumber) - 1 t > oWord.ActiveWindow.Selection.Information(wdActiveEndSectionNumber) - 2 'MsgBox "No section = " & t - 1 & " No page = " & lNumpage(i) [...]
Pour les 7 derniers graphiques il ne me retourne pas le bon numéro de section, mais pour les 23 premiers tous est parfait esse que cé moi qui est trop cave pour Word ou qqchose m'échappe ?? merci d'avoi lu et de répondre.
Pour avoir lu : oui, compris : ? ? ? Essayons : tu dois avoir un graphique par section, sauf dans les deux premières. Dans une boucle qui sélectionne chaque graphique tu veux récupérer le numéro de section où est ce graphique. Chaque section a un seul Titre 1 qui apparaît dans ta table des matières. Quand tu dis qu'il ne te retourne pas le bon numéro c'est le MSGBox qui te dit ça, ou quand tu récupères le titre de la table des matières ? Si c'est dans la table des matières, tu n'aurais pas le 24-ème titre particulièrement long ? --
A+
Bonjour killedman
re bonjour,
voila,
j'ai ce code :
'J'extrais le nom de la section et le numéro de page.
lNumpage(i) > oWord.ActiveWindow.Selection.Information(wdActiveEndPageNumber) - 1
t > oWord.ActiveWindow.Selection.Information(wdActiveEndSectionNumber) - 2
'MsgBox "No section = " & t - 1 & " No page = " & lNumpage(i)
[...]
Pour les 7 derniers graphiques il ne me retourne pas le bon numéro de
section, mais pour les 23 premiers tous est parfait esse que cé moi
qui est trop cave pour Word ou qqchose m'échappe ??
merci d'avoi lu et de répondre.
Pour avoir lu : oui, compris : ? ? ?
Essayons : tu dois avoir un graphique par section, sauf dans les deux
premières.
Dans une boucle qui sélectionne chaque graphique tu veux récupérer le
numéro de section où est ce graphique.
Chaque section a un seul Titre 1 qui apparaît dans ta table des matières.
Quand tu dis qu'il ne te retourne pas le bon numéro c'est le MSGBox qui te
dit ça, ou quand tu récupères le titre de la table des matières ?
Si c'est dans la table des matières, tu n'aurais pas le 24-ème titre
particulièrement long ?
--
voila, j'ai ce code : 'J'extrais le nom de la section et le numéro de page. lNumpage(i) > oWord.ActiveWindow.Selection.Information(wdActiveEndPageNumber) - 1 t > oWord.ActiveWindow.Selection.Information(wdActiveEndSectionNumber) - 2 'MsgBox "No section = " & t - 1 & " No page = " & lNumpage(i) [...]
Pour les 7 derniers graphiques il ne me retourne pas le bon numéro de section, mais pour les 23 premiers tous est parfait esse que cé moi qui est trop cave pour Word ou qqchose m'échappe ?? merci d'avoi lu et de répondre.
Pour avoir lu : oui, compris : ? ? ? Essayons : tu dois avoir un graphique par section, sauf dans les deux premières. Dans une boucle qui sélectionne chaque graphique tu veux récupérer le numéro de section où est ce graphique. Chaque section a un seul Titre 1 qui apparaît dans ta table des matières. Quand tu dis qu'il ne te retourne pas le bon numéro c'est le MSGBox qui te dit ça, ou quand tu récupères le titre de la table des matières ? Si c'est dans la table des matières, tu n'aurais pas le 24-ème titre particulièrement long ? --
A+
killedman
j'ai trouver il y a un saut de section dans le fichier word, mais on reste dans la même section La personne à fait ca pour avoir une page en format landscape.
merci d'avoir essayé de me comprendre lol.
oublié ça je vais trouver le numéro de section à la main. kill the killedman
j'ai trouver il y a un saut de section dans le fichier word, mais on
reste dans la même section La personne à fait ca pour avoir une page
en format landscape.
merci d'avoir essayé de me comprendre lol.
oublié ça je vais trouver le numéro de section à la main.
kill the killedman
j'ai trouver il y a un saut de section dans le fichier word, mais on reste dans la même section La personne à fait ca pour avoir une page en format landscape.
merci d'avoir essayé de me comprendre lol.
oublié ça je vais trouver le numéro de section à la main. kill the killedman
Geo
Bonjour killedman
j'ai trouver il y a un saut de section dans le fichier word, mais on reste dans la même section La personne à fait ca pour avoir une page en format landscape.
merci d'avoir essayé de me comprendre lol.
oublié ça je vais trouver le numéro de section à la main. kill the killedman Bon, la troisième fois, j'attends que tu mettes la solution. :-)
Je mets quand même le coup de la table des matières de côté. Ah ! j'ai vu que tu supprimais deux caractères à la fin de ton titre, tu pourrais choisir le nb de caractères à supprimer en fonction de ta variable lNumpage(i), sinon tu rognes ou pas la tabulation.
--
A+
Bonjour killedman
j'ai trouver il y a un saut de section dans le fichier word, mais on
reste dans la même section La personne à fait ca pour avoir une page
en format landscape.
merci d'avoir essayé de me comprendre lol.
oublié ça je vais trouver le numéro de section à la main.
kill the killedman
Bon, la troisième fois, j'attends que tu mettes la solution. :-)
Je mets quand même le coup de la table des matières de côté.
Ah ! j'ai vu que tu supprimais deux caractères à la fin de ton titre, tu
pourrais choisir le nb de caractères à supprimer en fonction de ta variable
lNumpage(i), sinon tu rognes ou pas la tabulation.
j'ai trouver il y a un saut de section dans le fichier word, mais on reste dans la même section La personne à fait ca pour avoir une page en format landscape.
merci d'avoir essayé de me comprendre lol.
oublié ça je vais trouver le numéro de section à la main. kill the killedman Bon, la troisième fois, j'attends que tu mettes la solution. :-)
Je mets quand même le coup de la table des matières de côté. Ah ! j'ai vu que tu supprimais deux caractères à la fin de ton titre, tu pourrais choisir le nb de caractères à supprimer en fonction de ta variable lNumpage(i), sinon tu rognes ou pas la tabulation.
--
A+
killedman
si tu veux la "solution" la voici. si tu comprend pas ce n'est pas grave ce n'est pas moi qui la trouvé :)
'J'extrais le numéro de page. lNumpage(i) = oWord.ActiveWindow.Selection.Information(wdActiveEndPageNumber) - 1
'Trouve le numéro de section selon sont numéro de page. 'ceci est du au fait que le format d'impression passe en landscape noSection = 0 For j = 1 To oTOC.Range.Fields.Count - 1 If lNumpage(i) >= Val(oTOC.Range.Fields(j).Result.Text) And _ lNumpage(i) <= Val(oTOC.Range.Fields(j + 1).Result.Text) Then noSection = j + 1 Exit For End If Next j
If noSection = 0 Then noSection = oTOC.Range.Fields.Count End If
'J'enlève le numéro de page et je met le titre dans un tableau. If Not Len(sTOC(noSection - 1)) = 0 Then sTitlesection(i) = Left(sTOC(noSection - 1), Len(sTOC(noSection - 1)) - 2) End If
killWord
si tu veux la "solution" la voici.
si tu comprend pas ce n'est pas grave ce n'est pas moi qui la trouvé
:)
'J'extrais le numéro de page.
lNumpage(i) =
oWord.ActiveWindow.Selection.Information(wdActiveEndPageNumber) - 1
'Trouve le numéro de section selon sont numéro de page.
'ceci est du au fait que le format d'impression passe en
landscape
noSection = 0
For j = 1 To oTOC.Range.Fields.Count - 1
If lNumpage(i) >= Val(oTOC.Range.Fields(j).Result.Text) And
_
lNumpage(i) <= Val(oTOC.Range.Fields(j +
1).Result.Text) Then
noSection = j + 1
Exit For
End If
Next j
If noSection = 0 Then
noSection = oTOC.Range.Fields.Count
End If
'J'enlève le numéro de page et je met le titre dans un
tableau.
If Not Len(sTOC(noSection - 1)) = 0 Then
sTitlesection(i) = Left(sTOC(noSection - 1),
Len(sTOC(noSection - 1)) - 2)
End If
si tu veux la "solution" la voici. si tu comprend pas ce n'est pas grave ce n'est pas moi qui la trouvé :)
'J'extrais le numéro de page. lNumpage(i) = oWord.ActiveWindow.Selection.Information(wdActiveEndPageNumber) - 1
'Trouve le numéro de section selon sont numéro de page. 'ceci est du au fait que le format d'impression passe en landscape noSection = 0 For j = 1 To oTOC.Range.Fields.Count - 1 If lNumpage(i) >= Val(oTOC.Range.Fields(j).Result.Text) And _ lNumpage(i) <= Val(oTOC.Range.Fields(j + 1).Result.Text) Then noSection = j + 1 Exit For End If Next j
If noSection = 0 Then noSection = oTOC.Range.Fields.Count End If
'J'enlève le numéro de page et je met le titre dans un tableau. If Not Len(sTOC(noSection - 1)) = 0 Then sTitlesection(i) = Left(sTOC(noSection - 1), Len(sTOC(noSection - 1)) - 2) End If
