Solved

How to activate a winword document after a form is shown

Posted on 2008-10-22
1
635 Views
Last Modified: 2013-12-20
Hi,

I have a simple problem, but I am not able to solve in.

I am programming in word 2003 vba. If the user clicks on a menü entry the frmTextmarkenEditor is show. The form tells the user that he should cklick on the document and a textmark or a formfield is created on the place he puts his mouse click.

To realize this I have created an event WindowSelectionChange wich opens another form for the user as soon as he clicks on the document.

My problem:
After the form frmTextmarkenEditor is opened, modal = false, I am not able to activate the document in a way, that on the first click of the user the WindowSelectionChange is activated. The user has to click two times instead of one time to activate the WindowSelectionChange.

With the attached code I am able to activete thisdocument, but the cursor is not blinking and I think this is the reason why the user has to click two times to activate the WindowSelectionChange. With the attached code the user has to click two times to see the message SelectionEreignis even the form frmTextmarkeneditor has not the focus anymore.
 I want to avoid that the user has to click two times.

Please help. How can I activate the document in a way so that with a single click of the user, the WindowSelectionChange is activated.

Thanks
in this document:
 
Option Explicit
 
Private WithEvents app As Application 
 
Private Sub app_WindowSelectionChange(ByVal Sel As Selection)
    
  If frmTextmarken2.Visible = False Then
                MsgBox "SelectionEreignis"
  End If
    
End Sub
 
 
'and this sub is my problem. It is called from a menu button
 
Public Sub TextmarkenEditor()
 
 
frmTextmarken.Show
'MsgBox "TextmarkenEditor Aufruf"
AppActivate (ActiveDocument)
ThisDocument.Activate
 
End Sub

Open in new window

0
Comment
Question by:rolandkg1001
1 Comment
 

Accepted Solution

by:
rolandkg1001 earned 0 total points
ID: 22832924
Thanks, I have found the solution.

In line 23 I use
Application.Activate

That works fine
0

Featured Post

Networking for the Cloud Era

Join Microsoft and Riverbed for a discussion and demonstration of enhancements to SteelConnect:
-One-click orchestration and cloud connectivity in Azure environments
-Tight integration of SD-WAN and WAN optimization capabilities
-Scalability and resiliency equal to a data center

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I would like to show you some basics you can do with Mailings in MS Word. It´s quite handy feature you can use for creating envelopes, labels, personalized letters etc. First question could be what is this feature good for? Mailing can really he…
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
Learn how to create and modify your own paragraph styles in Microsoft Word. This can be helpful when wanting to make consistently referenced styles throughout a document or template.
Office 365 is currently available in five editions. Three of them are for business use: Office 365 Business Essentials, Office 365 Business, and Office 365 Business Premium. Two of them are for home/personal use: Office 365 Home and Office 365 Perso…

820 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question