#1
|
|||
|
|||
Want to Insert Column and add text into entire column.
Hi Folks,
Given an existing table in Word, I'd like to insert a new column to the left of where the cursor is, then enter some text. I want the same text repeated down the entire column. You can see what I have. If I get my desired text copied to the clipboard, then Selection.Paste does the job, but I'd prefer if the text came from the text box "txtColumn" that is on my user form. Note that these two: Code:
Selection.TypeText (txtColumn.Value) Selection.InsertBefore Text:="teacher" Does this require a loop or something?? Ideas? Code:
Private Sub cmdMakeColLeft_Click() Selection.InsertColumns Selection.MoveLeft Unit:=wdCell Selection.SelectColumn 'Selection.TypeText (txtColumn.Value) 'Selection.InsertBefore Text:="teacher" Selection.Paste End Sub Last edited by Steve Kunkel; 04-14-2021 at 07:23 PM. Reason: Added code tags; added solved |
#2
|
||||
|
||||
Try this
Code:
Sub Macro2() Dim str As String, aCell As Cell Selection.InsertColumns 'or InsertColumnsRight str = InputBox("What do you want in each cell?", "Feed Me", "Hi mum") For Each aCell In Selection.Cells aCell.Range.Text = str Next aCell End Sub str = Me.txtColumn
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#3
|
|||
|
|||
Yes -- That works perfectly! Thanks Guessed!
|
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Create formula for entire column | tdodson | Excel | 2 | 10-27-2015 09:38 PM |
Parsing 'FullName' column - help needed text to column | ScottA | Excel Programming | 3 | 05-06-2014 12:49 PM |
How to add a fixed value to an entire column? | mikehende | Excel | 11 | 12-12-2012 02:47 PM |
NETWORKDAYS calculation for entire column | Salient | Excel | 0 | 07-11-2011 03:58 PM |
Formula not getting copied to entire column | theacegary | Excel | 1 | 11-29-2010 02:18 PM |