VBA is crashing after about 350 pages

lars-daniel · #1 03-06-2018, 03:06 PM

Thanks a lot ! It's still running - can't tell you about the result. But since it's still running, you seem to have solved the problem. Latest (and biggest) Intel i7 with latest Office still uses 1 core only, three cores (+ hyperthreading) are idling. I should better split it into single files and run in parallel

Do you suggest to set use .Range.Text to remove the value or shall I do it the "replace"-way?

Code:

With ActiveDocument.Content.Find
    .Execute FindText:="-1", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll, MatchWholeWord:=False
End With

Shall I also add this to each loop?

Code:

ActiveDocument.UndoClear

EDIT:
Oops, it doesn't work every time. I've got very much cells, which haven't get touched at all.

macropod · #2 03-06-2018, 03:41 PM

Quote:

Originally Posted by lars-daniel

Latest (and biggest) Intel i7 with latest Office still uses 1 core only, three cores (+ hyperthreading) are idling. I should better split it into single files and run in parallel

Splitting the document into multiple files won't help unless you also start multiple independent Word sessions.

Quote:

Originally Posted by lars-daniel

Oops, it doesn't work every time. I've got very much cells, which haven't get touched at all.

In that case, there's more than just -1 in the cells (e.g. some spaces). You might try changing:
Split(.Range.Text, vbCr)(0)
to:
Trim(Split(.Range.Text, vbCr)(0))

lars-daniel · #3 03-06-2018, 03:48 PM

Quote:

Originally Posted by macropod

Splitting the document into multiple files won't help unless you also start multiple independent Word sessions.

Sure. I don't like the rise of multi-core processors in recent years. Only a fraction of the end-user applications support this, but fortunately Excel is one of them. For Server it's clear, there's something in it.

Quote:

Originally Posted by macropod

In that case, there's more than just -1 in the cells (e.g. some spaces). You might try changing:
Split(.Range.Text, vbCr)(0)
to:
Trim(Split(.Range.Text, vbCr)(0))

Thanks, let me try. Maybe that's why I used Val() I think. What do you think about replace and removing my undo buffer?

Edit:
Didn't work. I'm still having many "-1". I've changed it back to "Val(.Range.Text) = -1". This works safe in my case.

macropod · #4 03-06-2018, 03:55 PM

Quote:

Originally Posted by lars-daniel

What do you think about replace and removing my undo buffer?

That would be of little or no benefit; the time taken to clear the buffer may actually slow down the process.

lars-daniel · #5 03-06-2018, 04:02 PM

Quote:

Originally Posted by macropod

That would be of little or no benefit; the time taken to clear the buffer may actually slow down the process.

Ah okay, same as unset($var) in PHP. Thanks a lot.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Numbering with heading is mixed up in odd pages in regard to even pages	Baflla	Word	0	09-11-2016 05:25 AM
Multiple Master Pages dont sync with content pages	generatorjoe	Publisher	0	07-28-2016 10:12 AM
Spreadsheet keeps crashing	SavGDK	Excel	8	06-28-2016 08:27 AM
Office 2013 is crashing and renaming files when crashing	Brewski	Office	1	09-21-2015 09:04 PM
Advanced page numbering: section pages in header, document pages in footer	Albus	Word	12	12-12-2014 01:36 PM