Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Word VBA

VBA

2 réponses
Avatar
Mike
Hello à tous,

désolé Je me lance en VBA...
J'ai un tableau dans word ou je désirerai automatisez la copie de
certaines lignes de ce dernier
j'ai actuellement une macro(connue) qui permet de copier le 1 er
paragraphe d'un texte, je désirerai modifier
le code afin de l'appliquer à mon tableau...
je désire copié dans un nouveau document la 1ère /3 ème / 5ème
ligne(entière) de mon tableau

Sub FormattedTextProperty()
Selection.Collapse Direction:=wdCollapseStart
Selection.FormattedText = ActiveDocument.Paragraphs(1).Range
End Sub

Merci de votre aide!!

Mike
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Anacoluthe
Bonjour !

'Mike' nous a écrit ...
J'ai un tableau dans word ou je désirerai automatisez la copie de
certaines lignes de ce dernier
je désire copié dans un nouveau document la 1ère /3 ème / 5ème
ligne(entière) de mon tableau


Voici un petit exemple copiant les 1/3/5 èmes lignes du tableau
où se trouve la sélection dans un nouveau document :

' ------
Public Sub ExempleCopieTableau()
Dim monTableau As Table
Dim monDoc As Document
If Not Selection.Information(wdWithInTable) Then Exit Sub

Set monTableau = Selection.Tables(1)
Set monDoc = Documents.Add

monTableau.Rows(1).Range.Copy: monDoc.Content.Paste
monTableau.Rows(3).Range.Copy: Selection.PasteAppendTable
monTableau.Rows(5).Range.Copy: Selection.PasteAppendTable

Set monTableau = Nothing
Set monDoc = Nothing
End Sub
' ------

à vous de l'adapter à vos besoins ...

Anacoluthe
« Les tableaux sont des rêves qu'on pose sur les choses. »
- Jean-Guy RENS

Avatar
Mike
Superbe
Merci et bonne fin de soirée

Mike

Le 15.12.2004, Anacoluthe a supposé :
Public Sub ExempleCopieTableau()
Dim monTableau As Table
Dim monDoc As Document
If Not Selection.Information(wdWithInTable) Then Exit Sub

Set monTableau = Selection.Tables(1)
Set monDoc = Documents.Add

monTableau.Rows(1).Range.Copy: monDoc.Content.Paste
monTableau.Rows(3).Range.Copy: Selection.PasteAppendTable
monTableau.Rows(5).Range.Copy: Selection.PasteAppendTable

Set monTableau = Nothing
Set monDoc = Nothing
End Sub