Replies

Hi and thanks a LOT!

It really did help.

This is caused by the fact that standard settings on our machines are different. Something I must “tell” the IT people to standardize.

Thanks

Regards
Bj

Thanks for your testing. It appears that it does not happen every time. But anyway I have found a simple solution to prevent the failure happen:

In ThisDocument I just added the following code:

Public Sub document_close()
ActiveDocument.Saved = True
End Sub

Whether this is correct to do I don’t know, but it works. The only thing that does not happen is that if some text is entered without saving or clicking the OK button in the DialogBox the user will not get the Word-message asking for saving or not.

I will be looking into this in time, but now I’m very busy with other things that take most of my time.

Thanks to everyone giving help!

Best regards
Bj

Thanks again,

I have been looking at Microsoft MVP and found the following information:
http://www.mvps.org/word/FAQs/MacrosVBA/In…ptSavePrint.htm

It might be useful to have a look.

regards
Bj

Thanks a lot hedgehog!

It might be this bug, for me the freezing does not occur every time, but sometimes and a bit too often.

To your resolving:

“catching the close event”: does it mean that I can use:

Sub Document_Close()
code
EndSub

or is it more useful to use the event: DocumentBeforeSave

I will try both in between all other tasks!

regards
Bj

Sorry Kevin, I should have thought about that earlier.
By the way I’m on Windows NT, Word 2000 SR-1.

(Have been away this week end and no chance of looking into the problem. Now it is monday morning and full time work with Quality Assurance/Quality Audits and implementation of SharePoint Portal Server)

I zipped it down to 68 kb and here it is.

Best regards
Bj

Thanks Kevin,

I will “study” your code and see if I can use this. I’m just an amateur and have some difficulties in understanding all code. (May be I should not involme me into coding at all, but it is fun!)

Thanks again.

regards
Bj

Hi and thanks for the response.
I attach a word document containing a list of the code. The template itself is >200 kb so it is not allowed attached.

You will experience an amateur way of amending the original code from an expert. But anyway, it used to work perfectly.

Hope for the best!

Thanks again for the interest in helping me.

Regards
Bj

Thanks a lot!

I have now put forward a question there and hope for an answer.

Thanks again.

No, not yet, thought it might be special ones for such an event. I had also hoped that some could give me an example of such code using “DocumentBeforeSave” event.

I will continue to work on it when spare time comes around, may be later to night. In the meantime I hope for answers.

Thanks for responding.

Regards
Bj

Hi Gary,

Thanks a lot. I thought that was the case. Had to be sure and therefore ask real competent people.

I think over if it is worth the work to write a VBA procedure for this.

Thanks again.

Best regards
Bj

Thanks Gary,

Then I need to write a procedure for it and that could be the best way in the long run.

I was thinking that it might be possible e.g. to mark the different rows as one do it in Win Explorer to delete different files.

Regards
Bj

Hi,

Tried it but it did not work the way I expected. Well, may be I haven’t coded correctly, though I did not get any error messages. The focus point (insertion point) got placed in the correct text box, but the page was not visible and therefore not accessible to the user unless the page tab is clicked.

I already have the Userform open and the Multipage inside the form is open on page0. When I hit the option box, situated elsewhere in the form, the code should open page1, also having Tabindex 1.

Regards
Bj

Thanks a lot Stewart. I will try it out and let you know the result later on.

Thanks and
best regards
Bj

Hi,

I had not read the long thread either. But I think I have a different situation. I’m able to set focus to text boxes which are visible in the Userform but not to a text box which is on a non-visible page in a Multipage containing 4 pages. The focusing is functioning if I open the page where the text box is placed.

I use a an option box as follows:

If optKursMed.Value = True Then
If txbF

Thanks BAM for the information!

I will have a closer look into the listing macro when spare time allows.

And I will put forward a question to Jonathan.

Thanks again and have a nice week end.

Regards
Bj