copier le contenu compris entre 2 signets

[LaurentG]

Bonjour,

J'ai besoin d'une macro qui m'ouvre un document WORD. Dans ce document, il y a du texte et à l'intérieur j'ai un signet 'debut' et un signet 'fin'.

Savez-vous s'il est possible de copier le contenu qui se trouve entre ces 2 signets et les coller dans une celulle.


Merci

Laurent

 

[pat1545.]

Salut,

ici on parle bcp d'excel mais tres peu de word;

tu peux aller voir sur ce truc:
news:microsoft.public.fr.word

ou ici: Ce lien n'existe plus

 

[MichelXld]

bonsoir Laurent , bonsoir cher Patrick

Patrick tu exagères un peu quand tu dis qu'on ne parle pas de Word sur XLD , comme tu pourras le constater dans ce lien ...;o)

https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/



ci joint un exemple qui permet d'ouvrir un document Word depuis Excel , puis de récupérer le texte entre 2 signets

Sub recuperaTionTexteEntreDeuxSignets()
'
'necessite d'activer la reference Microsoft Word xx.x Object Library
'
Dim WordApp As Word.Application
Dim WordDoc As Word.document
Dim X As Long, Y As Long
Dim Plage As Word.Range

Set WordApp = New Word.Application
WordApp.Visible = True

Set WordDoc = WordApp.Documents.Open('C:\\\\\\\\monDocument.doc')
X = WordDoc.Bookmarks('Debut').Start
Y = WordDoc.Bookmarks('Fin').End
Set Plage = WordDoc.Range(Start:=X, End:=Y)
Range('A1') = Plage.Text

Set WordDoc = Nothing
Set WordApp = Nothing
End Sub



bonne soirée
MichelXld

Message édité par: michelxld, à: 14/03/2006 20:33