× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Inserer zone texte par une macro
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Annie38
  Posté le 04/08/2015 @ 07:26 
Aller en bas de la page 
Petite astucienne

Bonjour... tout est surement possible avec vous alors... dans une lettre en publipostage, au moment de la vérification individuelle de chacune, je voudrais pouvoir insérer parfois une zone de texte spécifique identique cf ci-dessous , et cela grâce à une macro ..(zone de texte avec encadrement je précise que je ne peux faire figurer ici)

Est ce possible?..suis sous word 2007

D'avance merci à vous

Les cartons d'invitation comportent deux volets.

Merci de bien vouloir nous retourner la partie consacrée à votre réponse,

l'autre vous sera réclamée à l'entrée du circuit

Publicité
Annie38
 Posté le 11/08/2015 à 07:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bjr,...Pas de solution en vue??? vraiment ?? ou est ce que je me suis mal exprimée?

En gros je pensais à une macro activée par une touche qui aurait inséré la zone de texte en question.

Merci du coup de main

ferrand
 Posté le 11/08/2015 à 09:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

La macro que tu souhaite est sûrement possible, cependant les macroteurs sous Word sont apparemment bien moins nombreux que sous Excel. Il te faut donc un peu plus de patience...

gilbert_rgi
 Posté le 11/08/2015 à 10:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Il y a aussi l'enregistreur de macro qui peut vous aider

voilà un test à mettre dans le module "newmacro"

Sub AjouteTextBox()
Dim txtBx As Shape
Set txtBx = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 10, 300, 150)
txtBx.TextFrame.TextRange = "Les cartons d'invitation comportent deux volets." & vbLf & _
"Merci de bien vouloir nous retourner la partie consacrée à votre réponse" & vbLf & _
"l 'autre vous sera réclamée à l'entrée du circuit"
txtBx.TextFrame.TextRange.Font.Color = wdColorBlue
txtBx.TextFrame.TextRange.Bold = True
MsgBox "Juste un arrêt pour voir ou est le text box"
txtBx.Left = 100 'On le déplace..
End Sub

Annie38
 Posté le 11/08/2015 à 11:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Merci à tous les 2...ça marche...quel bonheur...quelle simplification pour la suite de mon publipostage.

Merci...merci

gilbert_rgi
 Posté le 11/08/2015 à 11:33 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Une autre solution positionnant la textbox au niveau du curseur

Sub ajoutetextboxaucurseur()
Dim myS As Shape
Set myS = ActiveDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=Selection.Information(wdHorizontalPositionRelativeToPage), Top:=Selection.Information(wdVerticalPositionRelativeToPage), Width:=350, Height:=100)
With myS
.Line.Transparency = 0 '1
End With
myS.Select
Selection.Font.Bold = wdToggle

Selection.Font.Color = wdColorBlue
Selection.Range.Text = "Les cartons d'invitation comportent deux volets." & vbLf & _
"Merci de bien vouloir nous retourner la partie consacrée à votre réponse" & vbLf & _
vbTab & "l 'autre vous sera réclamée à l'entrée du circuit"
Selection.Font.Size = 12
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
myS.Select
Set myS = Nothing
End Sub



Modifié par gilbert_rgi le 11/08/2015 11:40
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
314,81 €Mini PC MINISFORUM UM300 (Ryzen 3 3300U, 16Go RAM, 512 Go SSD) à 314,81 € avec le code BGSEDK
Valable jusqu'au 29 Octobre

Banggood propose actuellement le mini PC MINISFORUM UM300 à 306,63 € avec le code promo BGSEDK. Ce mini PC au format NUC d'Intel possède un processeur Ryzen 3 3300U avec chip graphique Vega 6, 16 Go de RAM DDR4 et un SSD de 512 Go. Il dispose d'une connectique complète : un emplacement 2,5 pouces libre (pour ajouter un disque dur ou un SSD supplémentaire, le WiFi6, le bluetooth 5.1, 3 ports USB 3.1, un port HDMI 2.0, un DisplayPort, deux ports Ethernet Gigabit et tourne sous Windows 10 que vous pourrez mettre en français. Il est livré avec une alimentation européenne. Branchez ce mini PC sur une TV ou un écran et vous avez un ordinateur discret et performant. Comptez 8,18 € pour l'assurance et la livraison soit un total de 314,81 € livré.

Ce marchand sérieux se trouvant en Chine, la livraison peut prendre une vingtaine de jours. Vous pouvez payer par carte bancaire ou par Paypal (conseillé pour bénéficier de la garantie Paypal).


> Voir l'offre
201,38 €Disque dur externe Western Digital Elements Desktop USB 3.0 12 To à 201,38 € livré
Valable jusqu'au 30 Octobre

Amazon Royaume-Uni propose actuellement le disque dur externe Western Digital Elements Desktop USB 3.0 12 To à 172,99 £. Avec la conversion en euros et la livraison en France, il vous reviendra à  201,38 € livré. On le trouve ailleurs à partir de 250 €. Ce disque dur dispose d'un grande capacité de stockage (12 To) et d'une connectique USB 3.0 qui vous offrira des transferts rapides. Il est compatible USB 2.0. Une très bonne affaire. 

Vous pouvez utiliser votre compte Amazon France sur Amazon UK et il n'y a pas de douane.


> Voir l'offre
19,99 €Ensemble clavier + souris sans fil Logitech MK270 à 19,99 €
Valable jusqu'au 30 Octobre

Amazon fait une promotion sur l'ensemble clavier + souris sans fil Logitech MK270 qui passe à 19,99 € alors qu'on le trouve habituellement autour de 35 €. Cet ensemble est composé d'un clavier sans fil Logitech avec des touches silencieuses et d'une souris sans fil adaptée à la forme de la main qui convient aux droitiers comme aux gauchers. Un seul récepteur USB vous permettra d'utiliser ces 2 périphériques sans fil. La livraison en point relais est gratuite.


> Voir l'offre

Sujets relatifs
Insérer un texte dans plusieurs champs avec Word
Paramétrer la zone de texte
macro nombres stockés sous forme texte
INSERER DU TEXTE SUR UNE PHOTO
open office zone de texte dans objet
aperçu zone de texte dans un tableau Word 2003
Réaliser une zone texte style parchemin
Crée un lien entre les zone de texte de word 2007
info bulle sur zone de text bloque lancement macro
Excel 2007 comment SVP insérer un texte en activeX
Plus de sujets relatifs à Inserer zone texte par une macro
 > Tous les forums > Forum Bureautique