A voir également:
- [VBA] macro sous word
- Word 2013 - Télécharger - Traitement de texte
- Tableau word - Guide
- Espace insécable word - Guide
- Word et excel gratuit - Guide
- Supprimer une 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.