Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Général VBA
Général VBA Forum général VBA . Pour les logiciels spécifiques (Access, Excel, Word, ...), postez dans les bons sous forums.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 21/12/2011, 23h47   #1
Nouveau Membre du Club
 
Inscription : août 2006
Messages : 121
Détails du profil
Informations forums :
Inscription : août 2006
Messages : 121
Points : 37
Points : 37
Par défaut Macro qui insére un paragraphe entier de code VS C++ 6.0

Bonjour,

Je veux créer des macros pour copier des paragraphes de code déjà testé mais la je m'apercois que ça ne fonctionne pas comme prévu.

Exemple de macro qui ne donne pas le résultat souhaité

Code :
1
2
3
4
5
6
7
8
9
10
11
 
Sub FileDialog()
'DESCRIPTION: File Open / Save Dialog
 
'Begin Recording
ActiveDocument.Selection = "  const bool OpenDialog = TRUE;"
ActiveDocument.Selection = "  const bool SaveDialog = FALSE;"
ActiveDocument.Selection = " "
...
...
End Sub
Primo je perd les retours de ligne
Secondo je dois taper (copier/coller) tous les
ActiveDocument.Selection = "..."

pas très efficace, existe t-il un moyen de copier des paragraphes entier de code facilement dans VS C++ 6.0 c'est une ancienne version ! Je ne connais pas le language VB alors peut-être existe t-il un command pour ça.

Pierre de Montréal.
PiPo123 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 22/12/2011, 02h50   #2
Nouveau Membre du Club
 
Inscription : août 2006
Messages : 121
Détails du profil
Informations forums :
Inscription : août 2006
Messages : 121
Points : 37
Points : 37
Bon j'ai trouvé.

Il suffit de mettre le code à insérer dans des fichiers .TXT et de créer des macros avec le code suivant

Code :
1
2
3
4
5
6
7
8
9
10
11
 
Sub FileOpenSaveDialog()
'DESCRIPTION: File Open Save Dialog
'Begin Recording
 Documents.Open "G:\MesMacros\FileOpenSaveDialog.txt","Text"
 ActiveDocument.Selection.SelectAll
 ActiveDocument.Selection.Copy
 ActiveDocument.Close dsSaveChangesPrompt
 ActiveDocument.Selection.Paste
'End Recording
End Sub
comme ça on peut insérer le texte que l'on veut avec 3 clics de souris. Il faut juste modifier le nom du fichier texte de chaque nouvelle macro.

Simple.

Salut.
PiPo123 est déconnecté   Envoyer un message privé Réponse avec citation 10
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 20h38.


 
 
 
 
Partenaires

Hébergement Web