[vinwin06]

Hi,

I want to find and replace the Date format in word, if there is any macro coding for this. I try to using the following codes

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " 7/"
.Replacement.Text = " 07/"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

But "7" is relates to month, so if there is any code for change the numeric character to specific date format as "mm".

For ex :

BUARDC 04294008295 010321 6000 7/17/2010 0000354652 000224

The above is the example data , in that month needs to added a leading zero.

Thanks in advance

[slurpee55]

Would the "7/" you want to change always be preceded by a blank space and, if the day was the 7th, would it always be of the form "/7"?
If so, then all you need to do is search and replace " 7/" with " 07/" (excluding the parentheses, of course.)

[vinwin06]

But if it's only for July "7", but what about other months came, so i just want to change that month format, i just want to do by way of "07". if there is any macro coding for changing for all the months.

[slurpee55]

Oh, I am sure a decent coder could set a variable (say "i") in there, set "i"=1 and run it, then have a line where "i"="i"+1 and run it again until "i"=13. But that's beyond my skill set. I'll send a note to one of my buddies here and see if he can help you.
Edit - oh, you only have to run it through 9...10, 11 and 12 are already going to be 2 digits. Duh.

[Keebellah]

I'll take a shot at it.

Will the string all be identical like the one you sent? I refer to the date part

BUARDC 04294008295 010321 6000 7/17/2010 0000354652 000224

[Keebellah]

Why are you doing this in Word?
It looks like a logfile to me, is that correct?
It would be simpler to as a vbs script

[slurpee55]

This works in Word, as near as I can tell.

Sub Replacetext()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
n = 1
For n = 1 To 9
With Selection.Find
.Text = " " & n & "/"
.Replacement.Text = " 0" & n & "/"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next n
End Sub

[Keebellah]

Slurpee, the code's perect,

I just added a second routine and the select all

Sub Replacetext()
Dim n As Integer
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
n = 1
For n = 1 To 9
With Selection.Find
.Text = " " & n & "/"
.Replacement.Text = " 0" & n & "/"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next n

For n = 1 To 9
With Selection.Find
.Text = "/" & n & "/"
.Replacement.Text = "/0" & n & "/"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next n
Selection.MoveDown Unit:=wdLine, Count:=1

End Sub

Just put this macro in the vba project and run it!!

[slurpee55]

Thanks Hans - I never thought about the day possibly not being two digits, given the layout of the data supplied, but your code covers that possibility.

[vinwin06]

Hi,

Thanks for your effort, but the problem is the spacing should not be changed in the file.

For ex:
BUARD2 04596009620 010327 14260 7/15/2010 0000354485 2799

In the above example there is a two space between the date and the next item, so the leading zero should be adjusted in the two spaces, so after adding the leading zero to the "month" (07) there should be one space between them.

After conversion the data should be like below ;

BUARD2 04596009620 010327 14260 07/15/2010 0000354485 2799

Kindly help me!!!

[slurpee55]

vin, the data you had posted earlier copied to Excel with only one space before the date, as do both of the examples you just posted. In your last post the first string is 57 characters long and the latter is 58 - because of the added 0. Otherwise they are identical. If you also use Han's code and change the day, then that will extend some possible dates by 2 added zeros.
If your data has an extra blank space (instead of a zero) preceding the date (and it just didn't copy over here well), change the code so that this line (from mine):
.Replacement.Text = " 0" & n & "/"
becomes:
.Replacement.Text = "0" & n & "/"
However, given what you posted, after conversion this would change your data into:
BUARD2 04596009620 010327 1426007/15/2010 0000354485 2799

[vinwin06]

Hi,

The leading zero should be adjusted after date and not before the date, the zero should be added to the space available after "2010" and before the number "0000354485".

Kindly help me for this.

[Keebellah]

Well, then edit code to do that.

You have an idea now

.Text = "/2010 "
.Replacement.Text = "/2010 "

You'll get an extra space after 2010, just look at the code and I think you'll be able to work it out.

[vinwin06]

HI,

Already i have an extra space after "2010", this leading zero in month (07) should use the space after the 2010.

[Keebellah]

So this means thatyouwon't have any space after 2010 if the month is two-digit?

Do you two spaces if the day is one-digit?