Solved

How to activate a winword document after a form is shown

Posted on 2008-10-22
1
634 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

ScreenConnect 6.0 Free Trial

Explore all the enhancements in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI, app configurations and chat acknowledgement to improve customer engagement!

Question has a verified solution.

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

Introduction This tutorial provides instructions on how to properly format your Word document using the inbuilt tools provided. The benefits of using these tools means your documents are more accessible and easily portable to other applications an…
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…
This video walks the viewer through the process of creating an MLA formatted document, as well as a bibliography with citations.
This video walks the viewer through the process of creating envelopes and labels, with multiple names and addresses. Navigate to the “Start Mail Merge” button in the Mailings tab: Follow the step-by-step process until asked to find the address doc…

777 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