Method or Property Runtime error 4605

[murugavelmsc]

Hi all,

I have develop a word macro. In this, I have selected the paragraph and set the font properties be false.

If the word file have more than 100 pages means it throw the following error in the following code.

For i = 1 To ActiveDocument.Paragraphs.Count
Set selected_style = ActiveDocument.Paragraphs(i).Style
ActiveDocument.Paragraphs(i).Range.Select
selected_style.Font.AllCaps = False
selected_style.Font.SmallCaps = False
selected_style.Font.Italic = False
selected_style.Font.Bold = False
selected_style.Font.Underline = False
Next i

Run Time Error 4605

This Method or property is not available because there is a memory or disk problem.

Please help me

thanks in advance.
Murugavel S