Replace First Character

Question

I have a document in which I wish to replace the first character on all lines at once with a new character. Does someone know how I can accomplish that? Do note that Excel is not the answer, as the document contains 11,881,376 lines on which the first character must be replaced.

Answer 1

If you click on the Show\Hide button (¶), does each line terminate with a ¶?

If so, you could use:

Dim i As Long

With ActiveDocument

    For i = 1 To .Paragraphs.count

        With .Paragraphs(i).Range

        .Text = "H" & Mid(.Text, 2)

        End With

    Next i

End With

replace the "H" with the new character that you want as the first in each line.

Answer 2

I am not really sure what you are saying as far as your original question is concerned.

Answer 3

Thank you for the reply, Doug. I did get the document finished, but it is too large. The document is composed of all 6-tile (6- to 12-letter, as the Q is always coupled with the U) combinations for a word game. The file is approximately 2.37 gibi (or 2.54 giga) bytes in size. Windows registers it as being 2.36 gigabytes in size, which is incorrect. The units don't match the mathematics used. The numeric value clearly reflects use of the binary system. But, the units reflect the decimal system.