Microsoft Office Forums - View Single Post - [Solved] Want to Insert Column and add text into entire column.

Steve Kunkel · 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