[VBA] macro sous word
Lilou
-
Popol -
Popol -
Bonjour a tous,
j'ai une macro sous word qui opère sur des paragraphes.le problème c'est que j'ai environ 40 000 paragraphes à gérer et au bout d'un certain temps, l'opération devient de plus en plus longue.
je voudrais donc savoir comment je pourrais libérer de l'espace mémoire dans mon programme si jamais c'est possible ou sinon comment faire????!!
Merci bcp
j'ai une macro sous word qui opère sur des paragraphes.le problème c'est que j'ai environ 40 000 paragraphes à gérer et au bout d'un certain temps, l'opération devient de plus en plus longue.
je voudrais donc savoir comment je pourrais libérer de l'espace mémoire dans mon programme si jamais c'est possible ou sinon comment faire????!!
Merci bcp
A voir également:
- [VBA] macro sous word
- Word 2013 - Télécharger - Traitement de texte
- Tableau word - Guide
- Word et excel gratuit - Guide
- Espace insécable word - Guide
- Supprimer page word - Guide
3 réponses
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 ...
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.
