Microsoft Word 2000 Macro Loops
Posted on 2003-03-11
I have a document that is about 100 pages long. The format I have it in is a .txt file.
it has a list of numbers ex.
123421433434 234234234 23423422 234234234X
345345234244 234234234 42342342 234242423X
234234423433 234234234 23423445 123412323X
Now my problem is is that this list of numbers a hundred pages long is being entered into
a database the data base reads in white space and then moves to the next line. Where I placed
the X is where my file ends. I need it to be another 15 characters long. What I have is a macro
that will enter in 15 'W's, Why 'W', NO Reason, and then replace 'W' with ' '. what I have it doing right now is:
' Macro1 Macro
' Macro recorded 3/11/2003 by Chris Anderson
Do Until EOF()
Selection.MoveDown Unit:=wdLine, Count:=1
K know my Do until loop is wrong because I need a (1) but don't know where to put anything. And it also doesn't seem to know what Do Until EOF(1) is in word. I just want it to do all the 'W' until the end of the file and then replace the 'W' with ' ' and that would fix my shortened whitespace problem. Thanks.