Want to Insert Column and add text into entire column.

Steve Kunkel · #1 04-14-2021, 10:35 AM

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"

only insert the text into one cell (even if the entire column is selected).

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

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