Thank you for your reply Graham,
I did what you suggested and now I get other error msg (Run-time error:
’438’ Object doesn’t support this property or method) while setting the
window state property.

I have modified the macro to fit your suggestion ‘cause I forgot to say that
the file opened manually in this sub (asterisk in the begin of line shows
what I changed):
First I got the error with “.WindowState = wdWindowStateNormal”, so I
decided to comment it and the error was the same with “.Top = 0”.

It seems that this way I can’t change the properties or do you think that I
made a mistake somewhere.

Thanks a lot for your help and patience.

Hans

The code:

Private Sub Openleft_Click()
 LeftName = MyOpen
 LeftName = ActiveDocument.FullName
 LeftShortName = ActiveDocument.Name
 LeftFilePath = ActiveDocument.Path
 If Right$(LeftFilePath, 1) <> "\" Then LeftFilePath = LeftFilePath & "\" '
Add a Backslah to the end of the path if it does not exist
*  Set Leftfile = ActiveDocument
End Su
---------------------------------------------------------------------------------

Function MyOpen() As String
 Dim a As String
 With Dialogs(wdDialogFileOpen)
   .Show
   a = .Name
 End With
End Functio
---------------------------------------------------------------------------------

Private Sub startbutton_Click()

If (LeftName <> "") And (GloName <> "") Then
  GloForm.Hide
 
  If Not OneSideBox.Value Then
 
**      With Glofile
       .Activate
     '  .WindowState = wdWindowStateNormal
     End With
     With Leftfile
       .Activate
     '  .WindowState = wdWindowStateNormal
     End With
     With Rightfile
       .Activate
     '  .WindowState = wdWindowStateNormal
     End With
 
**      With Rightfile
       .Activate
       .Top = 0
       .Left = Application.UsableWidth / 2
       .Height = Application.UsableHeight
       .Width = Application.UsableWidth / 2
     End With

**      With Leftfile
       .Activate
       .Top = 0
       .Left = 0
       .Height = Application.UsableHeight
       .Width = Application.UsableWidth / 2
     End With
 
  Else
     Leftfile.Activate
  End If
 
  LeftFlag = True

 CustomizationContext = NormalTemplate
 Set MyKeyESC = KeyBindings.Add(wdKeyCategoryMacro, "Left",
(BuildKeyCode(wdKeyEsc)))
 Set MyKeyStop = KeyBindings.Add(wdKeyCategoryMacro,
"GLOSSARY.glomacros.StopRecordingGlossary", (BuildKeyCode(wdKeyControl,
wdKeyReturn)))
 
 RecordFlag = True
 
**  Leftfile.Activate
 
End If
End Sub