Discussion :

[Ltspitfire]

Bonjour,

Je pense que ce sujet à déjà été abordé mais je n'ai trouvé aucune réponse.

Je cherche à supprimer la dernière page d'un document word si elle est vide à l'aide d'une macro.
Est-ce que c'est possible ?

Merci d'avance pour toutes pistes ou aides apportées.

Cordialement,
Ltspitfire

[Ltspitfire]

Re,

En utilisant cela j'arrive presque à mes fin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    ' Aller à la dernière page du document
    Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute, Count:=Selection.Information(wdNumberOfPagesInDocument)
    ' Déplacement d'un caractère
    Selection.MoveLeft unit:=wdCharacter, Count:=1
    ' Sélection de la fin du document
    Selection.EndKey unit:=wdStory, Extend:=wdExtend
    NbChar = Selection.Characters.Count
    ' suppression
    Selection.Delete

Mais comment compter uniquement les caractères non spéciaux comme dans les statistiques de word svp ?

Cordialement,
Ltspitfire

[Heureux-oli]

Salut,

Tu dois compter les paragraphes et leur contenu.
Les paragraphes ne sont pas vraiment des caractères spéciaux.