A voir également:
- [VBA] macro sous word
- Supprimer une page word - Guide
- Macro word - Guide
- Espace insécable word - Guide
- Organigramme word - Guide
- Word gratuit - Guide
3 réponses
Utilisateur anonyme
31 mars 2005 à 12:48
31 mars 2005 à 12:48
salut
je pense que la mémoire n'a pas d'importance ici.
En fait plus tu auras de traitements à faire , plus ce sera long.
Si tu as deux paragraphes, tu mettras deux fois plus de temps qu'avec un seul. Donc 40, c'est forcéement plus long ...
je pense que la mémoire n'a pas d'importance ici.
En fait plus tu auras de traitements à faire , plus ce sera long.
Si tu as deux paragraphes, tu mettras deux fois plus de temps qu'avec un seul. Donc 40, c'est forcéement plus long ...
Utilisateur anonyme
31 mars 2005 à 16:12
31 mars 2005 à 16:12
Bonjour,
As-tu essayer Application.ScreenUpdating = False ?
Lupin
As-tu essayer Application.ScreenUpdating = False ?
Lupin
Bonjours, ça a pas trop avoir (mais un peu quand même), j'ai un fichier contenant plusieurs pages, seulement je lis les paragraphe lignes par lignes, y aurait t-il un moyen de lire page par page, sans les découper pour les mettre dans un autre fichier, exemple:
Dim NbPages As Long
NbPages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
dim line as integer
dim readline as string
line = 1
For i=1 to NbPages
'todo:
For Each pAra In page(i).Paragraphs
readline=pAra.Range.Text
line = line + 1
next
line=1
next
Evidemment page(i).Paragraphs ne marche pas, y aurait t-il moyen de réécrire exactement le même code mais qui marche? Merci pour toute aide.
Dim NbPages As Long
NbPages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
dim line as integer
dim readline as string
line = 1
For i=1 to NbPages
'todo:
For Each pAra In page(i).Paragraphs
readline=pAra.Range.Text
line = line + 1
next
line=1
next
Evidemment page(i).Paragraphs ne marche pas, y aurait t-il moyen de réécrire exactement le même code mais qui marche? Merci pour toute aide.
