VBA Add text to beginning of each row in second column

vivka · #2 07-26-2024, 05:58 AM

Hi! If I understand your point correctly, I think your task can be easily accomplished if you Find-Replace tabs followed by "(" with tabs followed by "means" followed by "(" BEFORE converting your txt to a tbl. After doing what you need just reverse the replacements:

Code:

Sub Enter_Wd()

Dim oRng As range
Set oRng = selection.range
    oRng.Find.ClearFormatting
    oRng.Find.Replacement.ClearFormatting
    With oRng.Find
        .text = "(^9)\("
        .Replacement.text = "\1means("
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Column issues.... Inserting text in column one moves text in column two	kita299	Word	3	01-15-2023 05:06 PM
Add text at beginning of cells in Word table	WJSwanepoel	Word VBA	2	08-17-2022 05:11 AM
Automatically put a text string at the beginning of a paragraph	jthomas666	Word	2	08-22-2019 12:27 PM
Add text to the beginning/ending of each line in word	ballmoney	Word	1	01-17-2010 02:19 AM
Looping macros to add text to beginning and end of a paragraph	pachmarhi	Word VBA	0	02-16-2009 06:57 AM