Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 02-19-2015, 03:48 AM
dherr dherr is offline Macro does not run properly Windows 8 Macro does not run properly Office 2007
Advanced Beginner
Macro does not run properly
 
Join Date: Nov 2014
Location: Austria
Posts: 45
dherr is on a distinguished road
Default Macro does not run properly

Hi,
I have the following VBA-Code:
Code:
Sub FindRedcoloredText()
Dim i As Integer
i = 0
Application.ScreenUpdating = False
Do
    With selection.Find
        .ClearFormatting
        .Font.color = wdColorRed
        .text = ""
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
        If .Found = True Then
            i = i + 1
            Debug.Print CStr(i) + ". " + selection.text + " " + CStr(selection.Range.ComputeStatistics(wdStatisticPages))
        Else
            Exit Do
        End If
    End With
Loop
Application.ScreenUpdating = True
End Sub
All words of my document should be found.


When I run this macro it finds sometimes 10, sometimes 1200, sometimes only 4 words which are colored red and then the macro runs 'out of time#, you see the waiting cursor of windows but nothing happens and I have to use Taskmanager to end Word. In the doc are about 3000 red words.
What can it be?

Regards-
Dietrich
Reply With Quote
 



Similar Threads
Thread Thread Starter Forum Replies Last Post
Macro does not run properly Indentation Not Working Properly LaC0saNostra Word 2 02-01-2015 11:35 AM
Word won't open up properly PattiChati Word 1 12-18-2013 05:37 PM
Macro does not run properly How to properly indent in MSWORD2007 nungesh Word 1 11-25-2013 04:26 PM
Word 2000 Macro not working properly brianlb Word VBA 1 07-01-2009 07:04 AM
Not printing properly Louis Outlook 0 08-05-2005 07:25 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 10:35 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft