Solved

How to activate a winword document after a form is shown

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

Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

Join & Write a Comment

A theme is a collection of property settings that allow you to define the look of pages and controls, and then apply the look consistently across pages in an application. Themes can be made up of a set of elements: skins, style sheets, images, and o…
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…
This video walks the viewer through the process of creating a watermark for their document, customizing it, and saving it for viewing/printing needs.
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

758 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

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now