[VBA-W] Navigation à la fin d'un tableau word [Résolu]

[tazamorte]

bonjour

j'aimerai rajouter un signet et un text juste après un tableau word que je génére
je n'arrive pas à trouver dans l'objet selection la commande permettant de réaliser cela

[ouskel'n'or]

Afin d'avoir le N° du dernier tableau créé tu les comptes
Ensuite tu te déplaces sur ce tableau
Tu le sélectionnes
Enfin, quand tu descends d'une ligne tu es sur la 1ère ligne qui suit le tableau
Il ne te reste plus qu'à insérer ton signet et même d'insérer du texte après ce signet

Code :

1
2
3
4
5
6
7
8
    NoTab = ActiveDocument.Tables.Count
    Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, Count:=NoTab, Name:=""
    Selection.Tables(NoTab).Select
    Selection.MoveDown Unit:=wdLine, Count:=1
    With ActiveDocument
        .Bookmarks.Add Range:=Selection.Range, Name:="NomDuSignet"
    End With
    Selection.TypeText Text:="coucou"

Tu dis
A+

[tazamorte]

j'ai un autre problème
j'ai 2 signets cote à cote (le signet de début et le signet de fin) je voudrais insérer un tableau word à l'intérieur des signets ainsi qu'un texte
voici ce que j'utilise mais cela ne marche pas

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 'Se déplace dans Word jusqu'au signet
        If ActiveDocument.Bookmarks.Exists(SignetDeb) Then
                Selection.GoTo What:=wdGoToBookmark, name:=SignetDeb
 
                X = ActiveDocument.Bookmarks(SignetDeb).Start
                Y = ActiveDocument.Bookmarks(SignetFin).End
                If X > Y Then
                    Set Plage = ActiveDocument.Range(Start:=Y, End:=X)
                Else
                    Set Plage = ActiveDocument.Range(Start:=X, End:=Y)
                End If
            Else
                 Selection.EndKey Unit:=wdStory
        End If

Code :

1
2
3
 
            'Colle le tableau dans Word      
            Plage.PasteExcelTable False, False, False

[ouskel'n'or]

Merci pour ta nouvelle question.

[tazamorte]

tu préféres que je reposte mon autre problème ?
merci pour la réponse fournit au dessus

[ouskel'n'or]

Non, puisque c'est la suite logique
Tu reprends le code précédent

Code :

1
2
3
4
        If ActiveDocument.Bookmarks.Exists(SignetDeb) Then
                selection.GoTo What:=wdGoToBookmark, name:=SignetDeb
                Selection.Moveright unit:=wdcharacter, Count:=1
                selection.typetext text:=TonTexte

A+

[tazamorte]

ce n'est pas un texte mais plus exactement un tableau excel copier et que je colle

[ouskel'n'or]

Alors tu remplaces le texte par

Code :

1
2
    Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, _
                 Placement:=wdInLine

Avec cette ligne, la plage de cellule est liée au classeur Excel (Link:=True) et le tableau est placé sur une ligne (se déplace avec les lignes et se gère comme caractère - Centrage sur la ligne)
Tu dis
A+

[tazamorte]

merci mais je ne souhaite pas utiliser un objet ole car ils prennent trop de temps à s'insérer et trop de place dans le document donc je préfére remplacer le texte par :

Code :

1
2
 'Colle le tableau dans Word      
            Selection.PasteExcelTable False, False, False