Macro pour copier sans mise en forme [Résolu]

[oligig]

Bonjour,

pourriez vous m'aider, pour trouver le code d'une macro qui serve à coller du texte sans mise en forme, svp ?

[Sepia]

Salut,

Voila le code

Code :

1
2
 
Selection.PasteAndFormat(wdPasteDefault)

@+

[oligig]

Bonjour,

merci pour ce code. Malheureusement, j'ai essayé de le mettre en oeuvre et cela ne marche pas quand j'appelle la macro, en fait la copie s'effectue, mais avec mise en forme. Pourtant j'ai juste recopié la ligne et mise dans une fonction :

Code :

1
2
3
Sub CollerSansMiseEnForme()
    Selection.PasteAndFormat (wdPasteDefault)
End Sub

D'où pourrait venir mon erreur ?

[Heureux-oli]

Salut,

Essaie ceci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub CollerSansMiseEnF()
'Ajout d'un signet pour le début de la section
Selection.Bookmarks.Add ("S1")
With Selection
 
    .Paste
End With
'Ajout d'un signet pour la fin de la section
Selection.Bookmarks.Add ("S2")
'Selection du texte contenu entre les deux signets
ActiveDocument.Range(ActiveDocument.Bookmarks("S1").Range.Start, ActiveDocument.Bookmarks("S2").Range.End).Select
'Application du style Normal à la selection
Selection.Range.Style = wdStyleNormal
End Sub

[oligig]

Ca marche !
Merci bien !!!

[pirlouis]

Bonjour à tous,

Et si on essayait autre chose

Code :

Selection.PasteAndFormat Type:= wdFormatPlainText

Ou bien

Code :

Selection.PasteAndFormat Type:= wdFormatSurroundingFormattingWithEmphasis

Ce qui évite de coller du texte sans mise en forme pour ensuite mettre le style du texte qui entoure l'insertion.

[oligig]

Envoyé par pirlouis

Bonjour à tous,

Et si on essayais autre chose

Code :

Selection.PasteAndFormat Type:= wdFormatPlainText

Ou bien

Code :

Selection.PasteAndFormat Type:= wdFormatSurroundingFormattingWithEmphasis

Ce qui évite de collé du texte sans mise en forme pour ensuite mettre le style du texte qui entoure l'insertion.

malheureusement, ces deux propositions ne marchent pas

[dorch]

Par contre comme ça, ça marche :

Code :

Selection.PasteAndFormat (wdFormatPlainText)

[Shiki tono]

Bonjour à tous.

je suis tombé sur le topic en cherchant une macro capable de permettre un copier/coller de word vers ppt uniquement du texte.

En effet, lorsque le c/c est cross application, la petite fenêtre permettant de choisir les options de collage ne s'affiche pas et j'ai une foule de tableaux à copier de word vers ppt.

Je les sélectionne dans word, puis je copie.
Je sélectionne le tableau cible dans ppt (même nombre de colonne/ligne, alignées de la même manière) soit vide soit avec du texte différent.
Et je copie. Or là toute la mise en forme cible est remplacée par la mise en forme source (alignement, couleur/taille des police...)


J'en suis donc réduit à soit :
- Refaire la mise en forme sous ppt à la main
- Soit c/c cellule par cellule pour garder ma mise en forme (ce qui est encore plus chronophage.)



Voilà si une solution via macro existait je serais plutôt bien avancé... Débutant seulement dans le vba (et en faisant surtout sur excel) je n'ai pas vraiment d'idée dans le cas présent...


PS : si le fait de passer par un programme tiers (j'ai essayé avec notepad sauf qu'évidemment il ne garde pas l'aspect "tableau") me permet de régler le problème ce sera déjà un très gros gain de temps, à défaut d'une macro miracle...


Merci d'avance !!

[Heureux-oli]

Salut,

Dans ton cas, on devrait pouvoir passer du texte d'une cellule à l'autre assez facilement.

[Shiki tono]

Excuse moi, mais je ne vois pas bien ce que tu entends par là.


Et, au passage, j'ai posté car le sujet semblait être proche du mien mais en terme de sous-catégorie du forum ce n'est peut-être pas le meilleur endroit. Le cas échéant un modérateur peut scinder et déplacer.

[Heureux-oli]

Salut,

Si on fait une boucle sur les cellules d'une table, on peut en récupérer le contenu sans le formatage.

Code :

stTemp = ActiveDocument.Tables(1).Cells(1,1).range.text

Salut,

Maintenant, c'est à toi de voir comment accéder au cellules d'une table en PPT.