vba word en-tête masquéeRésolu

Question

bonjours :),

J'ai un petit soucis au niveau de la création de documents words par VBA depuis Access.
Le problème se situe au niveau de l'en-tête celle-ci apparaissait bien mais depuis hier elle est invisible.Je m'explique elle n'apparait pas a l'écran mais par contre elle est visible a l'impression je ne sais pas ce qui se passe j'ai peut être touché a Word en lui demandant de me masquer les en-têtes.
 voici le code de l'en-tête:


With WordDoc.Sections(1).Headers(wdHeaderFooterPrimary)
.Range.Font.Size = 11
    .Range.InsertAfter ("text1")
    .Range.Paragraphs.Alignment = wdAlignParagraphLeft
    .Range.InsertParagraphAfter
    .Range.InsertAfter ("text2")
    .Range.InsertParagraphAfter
    .Range.InsertAfter ("texte3")
    .Range.InsertParagraphAfter
    .Range.InsertAfter ("texte4")
    .Range.InsertParagraphAfter
    .Range.InsertAfter ("texte5")
    .Range.InsertParagraphAfter
    .Range.InsertAfter ("texte6")
    .Range.InsertParagraphAfter
    .Range.InsertAfter ("texte7")
    .Range.InsertParagraphAfter
    .Range.InsertAfter ("text8")
End With

Je ne demande pas un solution toute faite mais si on pouvais juste me mettre sur la voie :)

merci

cs_loulou69 · Accepted Answer

bonjour
Et si ce n'était pas un problème de code mais de paramétrage de Word

Regarde Outil/Options/Affichage
Zone "Options de mode page et de mode web"
Case à cocher "Espace entre page"

kenru64 · Answer

je suis sous 2007 je n'ai pas Outil :(

J'ai trouvé avec l'aide word sauf qu'ils me disent d'aller dans option word puis dans Vue mais c'est que Vue je ne le trouve pas

cs_loulou69 · Answer

désolé je ne connait pas Word 2007
mais j'ai trouvé l'instruction VBA qui doit aider : c'est DisplayPageBoundaries 

Dans l'aide en ligne j'ai trouvé : Cet exemple montre comment activer le mode Page et supprimer les espaces blanc et gris entre les pages de document. 

Sub WhiteSpace()
    With ActiveWindow.View
        .Type = wdPrintView
        .DisplayPageBoundaries = False
    End With
End Sub

donc je pense qu'il faut dans ton cas
.DisplayPageBoundaries = true

kenru64 · Answer

Bon alors oui l'espace entre les pages étais la cause de tout mes malheurs ^^
Mais pour l'aide word : affiche=vue

kenru64 · Answer

.DisplayPageBoundaries = true 

je ne connaissais pas je vais le garder sous le coude ca peut surement aider :D 

je corrige ce que j'ai écrit vue=affichage dans l'aide word j'ai cherché comme un idiot alors que qu'il étais sous mes yeux 

en tout cas merci pour tout

cs_Jack · Answer

Salut
Oui, super info car personnellement, il m'arrive la même chose depuis ce matin :
Lors de l'ouverture de Word, les entête et bas de page + les espaces 'vides' sont tronqués.
Il fallait qu'à chaque ouverture je retourne dans 
Affichage + Normal (Word 2003)
Affichage + Brouillon (Word 2007)
pui
Affichage + Page (Word 2003 ou 2007)
pour retrouver une présentation correcte et complète.

La simple exécution de cette petite Sub a restabilisé la présentation :
Sub xxx()
    With ActiveWindow.View
        .Type =  wdPrintView
        .DisplayPageBoundaries = True
    End With
End Sub
J'avais déjà eu ce comportement à l'ouverture de Word il y a quelques mois sans trouver de solution pérenne.  Merci pour cette info .

D'où cela peut-il venir ?
- Soit d'une mise à jour du logiciel par "Microsoft update", mais je n'en ai pas vu depuis hier
- Soit de l'ouverture de documents Word issus de machines utilisant une langue étrangère OU de version Word différente genre importation de DocX (2007) vers Doc (2003)

Merci encore pour l'info 

Vala
Jack, =fr MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Vba word en-tête masquée

6 réponses

Votre réponse

Discussions similaires