Solved

MS WORD: introduce a variable field in wordart

Posted on 2008-10-12
12
502 Views
Last Modified: 2013-11-10
Need to generate a word form which uses a wordart to show a variable field (an incremental number).
(other than change the number and print as indicated bellow)
ActiveDocument.Shapes("WordArt 2").Select
    Selection.ShapeRange.TextEffect.Text = "00005"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, .... (rest of print follows)
ActiveDocument.Shapes("WordArt 2").Select
    Selection.ShapeRange.TextEffect.Text = "00006"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, .... (rest of print follows)
Etc etc
0
Comment
Question by:CPH_SYS
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 6
  • 6
12 Comments
 
LVL 37

Expert Comment

by:Joanne M. Orzech
ID: 22704045
So I guess I don't understand your question.... you need to generate a word form????  and you want the word form to contain wordart?

Please clarify

0
 

Author Comment

by:CPH_SYS
ID: 22704182
Thanks,

Yes, I need a word form (think it like a ticket) which has (amont text and graphics) a number on it. The number is variable (incremental) and is written with word art.

0
 
LVL 37

Expert Comment

by:Joanne M. Orzech
ID: 22704743
But do you need the VB code?  It appears you already have the code.... I'm still a little confused.... sorry

    ActiveDocument.Shapes.AddTextEffect(msoTextEffect25, "00001", _
        "Times New Roman", 36#, msoFalse, msoFalse, 261.35, 261#).Select

Open in new window

0
PeopleSoft Has Never Been Easier

PeopleSoft Adoption Made Smooth & Simple!

On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool.  Claim Your Free WalkMe Account Now

 

Author Comment

by:CPH_SYS
ID: 22705372
The code I have posted is the one I would like to avoid (if that is possible). I want to insert a FIELD into the wordart (instead of insert text). That would allow me use the mail merge facility.
Allow me to explain further:
I have a form with text and graphics and a variable number. I would like to take this number from a list (i.e. an Excel Range), so I can only manipulate said list every time I need to generate a bath of forms.  If I use a VBA macro as the one posted, I would have to read such list along with the macro, which (is it is possible) I want to avoid.

Thanks

0
 
LVL 37

Expert Comment

by:Joanne M. Orzech
ID: 22705521
Well, I'm afraid you've lost me.....I just don't understand what you need I guess.  If you have the number you need in Excel, then just insert that field into the Word document.....

If you don't want to use VB, then what do you want?


0
 

Author Comment

by:CPH_SYS
ID: 22705703
Is not just "the number". Is a big list of numbers, which list grows (more numbers are added to it). Let me explain in other words (I assume you are familiar with mail-merge):
Assume you want to write a letter which has a variable field (you want to write one letter for each variable field you have). That is very easy using mail-merge. Just need to insert a field code in the basic letter and MS word mail merge do the rest.
Now, kyou have the same, but you want to number as a wordArt shape (each different number). So the ideal woulb be to insert a field in wordart (isntead to the plain text) But I believe that is not permitted.

0
 
LVL 37

Expert Comment

by:Joanne M. Orzech
ID: 22705846
You're right... it's not permitted - and you can't do it without using VB.  

Why does it have to be WordArt - I'm curious.
0
 

Author Comment

by:CPH_SYS
ID: 22706045
The main reason is because the number needs to appears rotated in the form (the other reason is because it would be better is the number has a fancy shape).

Thanks any way

0
 
LVL 37

Assisted Solution

by:Joanne M. Orzech
Joanne M. Orzech earned 200 total points
ID: 22706177
Well, if you put the number in a table, you can rotate the text....to a certain degree anyway.  And I think if you used the right fonts, and colors, etc., you wouldn't need WordArt....but I leave that up to you.

000002.doc
0
 

Accepted Solution

by:
CPH_SYS earned 0 total points
ID: 22706374
Thank you JOrzech. My problem is that the rotations needs to be either 30, 45 or 60 degrees. Unless I have missed something, MS word 2003 only allows to rotate 90 degrees (or -90, which is the same for this purposes).

When I start to work on this form, my first intention was to use a word table. As Excel permits to rotate a number in any degree, I was expecting to have the same facility in MS word tables, but I could not find it.

Brgds,

0
 

Author Comment

by:CPH_SYS
ID: 23041568
Closed because the problem has no solution
0
 
LVL 37

Expert Comment

by:Joanne M. Orzech
ID: 23042336
It can't be done is an answer....
0

Featured Post

SharePoint Admin?

Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Nice table. Huge mess. Maybe this was something you created way back before you figured out tabs or a document you received from someone else. Either way, using the spacebar to separate the columns resulted in a mess. Trying to convert text to t…
This is written from a 'VBA for MS Word' perspective, but I am sure it applies to most other MS Office components where VBA is used.  One thing that really bugs me is slow code, ESPECIALLY when it's mine!  In programming there are so many ways to…
This video walks the viewer through the process of creating Hyperlinks for the web and other documents. Select the "Insert" tab: Click "Hyperlink":  Type "http://" followed by a web address to reference a website or navigate to a document to ref…
In a previous video Micro Tutorial here at Experts Exchange (http://www.experts-exchange.com/videos/1358/How-to-get-a-free-trial-of-Office-365-with-the-Office-2016-desktop-applications.html), I explained how to get a free, one-month trial of Office …

738 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question