[VBA Word] Refresh du sommaire [OK]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA Word] Refresh du sommaire [OK]

urd-sama

waste of space

Bonjour,
J'ai actuellement un petit problème avec un VBA sous Word.
Je possède un formulaire qui va entre autre permettre à l'utilisateur de choisir une langue. Puis je fais un traitement et supprime les sections inutiles d'après ce choix.
Mon problème se situe après que le document soit généré. En dernier lieu j'effectue un refresh de tous les document, selon ce code:

Code :

Public Sub pFrmSubDocRefresh()
Dim pFrmVarStoryRange As Range
For Each pFrmVarStoryRange In ActiveDocument.StoryRanges
pFrmVarStoryRange.Fields.Update
Do While Not (pFrmVarStoryRange.NextStoryRange Is Nothing)
Set pFrmVarStoryRange = pFrmVarStoryRange.NextStoryRange
pFrmVarStoryRange.Fields.Update
Loop
Next pFrmVarStoryRange
Set pFrmVarStoryRange = Nothing
End Sub

le problème est que je possède un index généré automatiquement dans mon document. Cet index n'est pas refreshé avec ce script, et me fait une erreur sur les numéro de pages. Si je le fais manuellement, pas de problème.

qqun aurait une idée pour trouver la solution du problème? merci d'avance :hello:

Message édité par urd-sama le 02-04-2004 à 11:20:31

Publicité

urd-sama

waste of space

up, je suis toujours coincée avec ce problème
l'erreur généré dans le sommaire/index est "Erreur ! Signet non défini."

urd-sama

waste of space

bon, j'ai trouvé ceci:
ActiveDocument.TablesOfContents(1).UpdatePageNumbers
mais ca n'a pas l'air de fonctionner

urd-sama

waste of space

et bien on a finalement trouvé une solution:

Code :

Public Sub pFrmSubDocRefresh()
Dim pFrmVarStoryRange As Range
Dim pFrmVarTablesOfContents As TableOfContents
'Update the entire document
For Each pFrmVarStoryRange In ActiveDocument.StoryRanges
pFrmVarStoryRange.Fields.Update
Do While Not (pFrmVarStoryRange.NextStoryRange Is Nothing)
Set pFrmVarStoryRange = pFrmVarStoryRange.NextStoryRange
pFrmVarStoryRange.Fields.Update
Loop
Next pFrmVarStoryRange
Set pFrmVarStoryRange = Nothing
'Update all the Tables of Contents
For Each pFrmVarTablesOfContents In ActiveDocument.TablesOfContents
pFrmVarTablesOfContents.Update
Next pFrmVarTablesOfContents
Set pFrmVarTablesOfContents = Nothing
End Sub

si ca peut aider qqun :hello:

urd-sama

waste of space

j'ai un autre problème et je continue sur ce topic vu que c'est toujours sur le même document.
en résumé je créé 5 sections différentes, chacun représentant une langue. ces 5 langues ont leur propre en-tête et pied de page traduits. à l'ouverture, l'utilisateur choisit une langue, puis le document est généré en supprimant les sections en trop.

le problème c'est que les sections ne suivent pas. par exemple j'ai allemand-francais-anglais. je choisis allemand. le corps du texte est bien en allemand mais les en-tetes et pied de page sont toujours en anglais (quelle que soit la langue). en gros je suppose que par défaut il me prend le dernier.

qqun aurait une idée? meme une simple idée car là je suis vraiment coincée, je désespère!

urd-sama

waste of space

okay, je vois l'idée!
en fait j'avais déjà fait ca en créant mon document manuellement, je vais donc essayer avec la génération de le faire dans le code.

j'ai donc commencé mon bout de code:

Code :

For Each mySection In ActiveDocument.Sections
mySection.Headers
Next

le problème c'est que je vois pas trop comment utiliser la propriété LinkToPrevious. je vais encore chercher

urd-sama

waste of space

okay merci beaucoup je vais regarder ca :jap:

urd-sama

waste of space

bon j'ai jeté un oeil à tout ca, j'ai trouvé l'origine de mon bug.
en fait en supprimant des range et non pas des sections, les footers et headers n'étaient pas supprimés ( [:kiki] )

j'ai donc revu mon code pour supprimer les sections et non des ranges. ce qui est finalement très culcul à faire:

Code :

ActiveDocument.Sections(5).Range.Delete
ActiveDocument.Sections(3).Range.Delete
ActiveDocument.Sections(2).Range.Delete
ActiveDocument.Sections(1).Range.Delete

j'ai encore un petit problème de section vide en trop à enlever mais ca devrait aller maintenant
merci pour votre aide :jap:

Message édité par urd-sama le 14-05-2004 à 14:13:37

urd-sama

waste of space

taiste

---------------
.: Clône de Drasche .:. Ebichuleys .:. Avec l'Aloe Vera je fais de beaux cacas [:dawa] .: www.oserselancer.com :.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA Word] Refresh du sommaire [OK]

Sujets relatifs
Un devis ou un conseil pour des Macros Word	Problème sur VBA
pb envoi mail avec outlook XP (VBA)	[C]Peut on garder les couleurs d'un code dans word ?
actualisation bdd access par VBA	[VBA excel] accéder aux données sans ourvir le fichier
[VBA] Paramétrer l'enregistreur de Macros !	creer une table (temporaire) en VBA à partir des données d'une requete
PictureBox en VBA	[VBA] prob simple sur le control source
Plus de sujets relatifs à : [VBA Word] Refresh du sommaire [OK]

Page générée en 0.046 secondes