Vba word en-tête masquée [Résolu]

kenru64 29 Messages postés jeudi 15 avril 2010Date d'inscription 9 juin 2011 Dernière intervention - 21 mai 2010 à 09:57 - Dernière réponse : cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention
- 21 mai 2010 à 11:18
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
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
cs_loulou69 672 Messages postés mercredi 22 janvier 2003Date d'inscription 2 juin 2016 Dernière intervention - 21 mai 2010 à 10:12
3
Merci
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"

Merci cs_loulou69 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de cs_loulou69
kenru64 29 Messages postés jeudi 15 avril 2010Date d'inscription 9 juin 2011 Dernière intervention - 21 mai 2010 à 10:17
0
Merci
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
Commenter la réponse de kenru64
cs_loulou69 672 Messages postés mercredi 22 janvier 2003Date d'inscription 2 juin 2016 Dernière intervention - 21 mai 2010 à 10:31
0
Merci
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
Commenter la réponse de cs_loulou69
kenru64 29 Messages postés jeudi 15 avril 2010Date d'inscription 9 juin 2011 Dernière intervention - 21 mai 2010 à 10:31
0
Merci
Bon alors oui l'espace entre les pages étais la cause de tout mes malheurs ^^
Mais pour l'aide word : affiche=vue
Commenter la réponse de kenru64
kenru64 29 Messages postés jeudi 15 avril 2010Date d'inscription 9 juin 2011 Dernière intervention - 21 mai 2010 à 10:36
0
Merci
.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
Commenter la réponse de kenru64
cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 21 mai 2010 à 11:18
0
Merci
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)
Commenter la réponse de cs_Jack

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.