Replies

The problem persists – even when logged on as a different user.
Contrary if I log on with my account on another PC the problem disappears.
– so it has to be related to this specific computer and its environment

Right now I think I’m on to something….
I’m running a dual screen with Word in One monitor and the VBE in another.

It’s using a matrox millenium G200 card. When I change my settings to a single screen, the positioning changes. Further when I change the display size multiple times in to all sorts of odd sizes the X,Y co-ordinates change…. and now I’m experimenting to see if I can land at a setting in the top left corner at the same time as I’m running in dual mode….

Thanks Hans for the resizing (should have done that myself, apologies)

Jscher; tried your tip, did no good (see picture…)

Charlotte; the “normal” windows view tools do no good – neither cascading, tiling…(I have tried them all in many ways)
Problem is that the form is locked with it’s X,Y co-ordinates within the form window itself, not just the VBE. (see attached picture for full details)

With the danger of repeating myself here. The core of the problem seems to be that the X,Y co-ordinates for the placement of the form within the form window somehow has been changed and that even a complete reformatting of the disk doesn’t override this setting. Therefore my gut feeling on this is that it must be a setting stored somewhere “deep down” and the most likely place to me – is the registry – question is then; in what key is this stored ??

Thanks for the many good suggestions – please keep them coming, I’ll try them all….

;o)) Henrik

(Edited by HansV on 30-Jul-03 16:22. Reduced huge screenshot in size – it caused horizontal scrolling in most resolutions.)

Resize how ??

I need the form moved towards top left in its window, but top and left edges are somehow locked at their current positions and this goes for all my forms, not just a single one.

Further, when working with large forms, I often have to use another PC as the one with this problem doesn’t provide a horizontal scroll bar, meaning that I sometimes not even can get a hold of the bottom right corner of the form.

When you look at the dots on the edges of the form – you’ll see that top and left are filled (blocked), while right and bottom are hollow (resizable).
But since I can’t get hold of the hollow ones due to the missing horizontal scroll bar, this knowledge isn’t of much use.

….and as earlier mentioned I’ve got a nasty feeling that this is triggered by the regEdit and some odd key
(I’ll give Jan KP’s latest answer a go in just a sec.)

;o)) Henrik

Thanks for the advice/wild guess.

Unfortunately it didn’t change anything…
Just thought the XY co-ordinates of the window would be stored somewhere in the registry…( maybe on the .frm key – but I cannot “decode” that key)

;o)) Henrik

it’s already maximized, but I like to use the debugging and navigation tools as well, so they are all visible and docked (props, Explorer, immediate, watches)

Normally when working with the code, this suits me just fine as I got enough room to navigate within the code (approx. 10x15cm on a “17” screen).
But when I add a form, I get a lot of white space in the top left and can only see the top of the top left corner of the form, which is rather irritating as I don’t have any use for the first whitespace area.

I’ve attached a GIF in which you can see how the editor looks – problem is that the form cannot be moved towards top left – I have to scroll down to get it moving…

;O)) Henrik

Hi, thanks for the reply.

Maybe my first description was a bit unclear or not quite detailed enough.

I have a menupoint with a single “START” item in the standard bar, it is launched from a startup path setting. (Tool-Options)
When the template launches and “.add” a new doc it replaces the “START” with a full menu, where temporary=true
(so… I need to have the bar on an application level – not activedoc. – this means that normal.dot and “MyMaster.dot” will be modified. But I’ve had no problem suppressing and controlling these so far)

What puzzles me is the difference and the consequences of the questions, though I believe they relate to the same template, but must have different origins.

Why does it sometimes use the templates full name (eg. “MyTemplateMaster.dot”) and sometimes only the “document template.dot” name ?
– and why is “document template” only used “onFirstSave” – not subsequent save operations…? (and again – what are the effects of my answers to these questions – where are they stored ??)

Did this make it any clearer ??

BR
;o)) Henrik

Interesting….

Wasn’t aware of the Object module issue, but has never put much code in there myself either always used “clean” modules.
(found unconsciously that they provided a better structure and fewer problems – now I know what can be one of the reasons, thanks)

If I read your previous mail correctly, then the obj. mod. issue can also be the reason why new projects get corrupted ??

;o)) Henrik

Thanks,

Yes I’m aware of the code cleaner and has used it in various situations.
However, it is not a 100% efficient. we did a test using both methods and there was some difference – favouring the manual way.
But for general purposes I do agree – it’s sufficiently efficient.

Thanks again,
;o) Henrik

Hi M-pod

Thanks for the synopsis.

You’re absolutely right, about this getting tedious.
My problem is that it’s a many-to-many (some 20 folders and approx. 140 files)
(I’ve done a select case to map folders appropiately)

What I forgot to mention in my answer to your discussion was that specifically the messagebox bit I had taken out and modified the code accordingly.

My mistake, apologies.

Bests,
Henrik

PS: Any idea or news as to when the disabled search function becomes available again (I’m taking that it will be….??)

Thanks Hans,

….but finding heads and tales of that discussion is a bit confusing – not being a part of it…

Meanwhile I received a really useful tip from a Word MVP

‘By Doug Robbins – to update links in a document
Dim alink As Field, linktype As Range, linkfile As Range
Dim linklocation As Range, i As Integer, j As Integer, linkcode As Range
Dim Message, Title, Default, Newfile
Dim counter As Integer

counter = 0
For Each alink In ActiveDocument.Fields
If alink.Type = wdFieldLink Then
Set linkcode = alink.Code
i = InStr(linkcode, Chr(34))
Set linktype = alink.Code
linktype.End = linktype.Start + i
j = InStr(Mid(linkcode, i + 1), Chr(34))
Set linklocation = alink.Code
linklocation.Start = linklocation.Start + i + j – 1
If counter = 0 Then
Set linkfile = alink.Code
linkfile.End = linkfile.Start + i + j – 1
linkfile.Start = linkfile.Start + i
Message = “Enter the modified path and filename following this
Format ” & linkfile
Title = “Update Link”
Default = linkfile
Newfile = InputBox(Message, Title, Default)
End If
linkcode.Text = linktype & Newfile & linklocation
counter = counter + 1
End If
Next alink

Bests,
Henrik

Thanks a lot for your tips – much appreciated.

I need to specify a little bit here. What I’m adding is a “picture from file…”, but your tips works just as fine – no problem.

Problem turned out to be to get hold of the picture once inserted…
Picture is inserted in header/footer and just looping through ‘activedocument.shapes’ returns nothing…
What I wasn’t aware of initially was, that to be sure to got hold of all shapes when looping through the shapes collection in a document, I need also to loop through eg. ActiveDocument.Headers(wdHeaderFooterPrimary).Shapes or similar footer.

I didn’t find this obvious, but a lot seems now clearer – thanks.

;o) Henrik

Thanks Hans,

So simple and obvious, when explained this way…

;o)) Henrik

Howard, appreciate your comment, thanks.

What API would you use ?
– wouldn’t it block for other dialogs from the same application, or would they run in separate threads ?

;o) Henrik

To some extend – if I following a view change add a .screenupdating=false, then it works (most the time) until the next change in the “View” setting.

Thanks for your answers so far.
Does the snippet below clarify ?
– Textbox is called “txtEventDate”
– currently this one refuses to go around the “if…format(chkDate,”dd/mm/yy)” – it enters the errorhandler every time no matter the format.

Any suggestions for improvent ? (Bet you have/ ;o)))

Thanks,
;o) Henrik
**********************************************************************************************

Private Sub txtEventDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim chkDate

On Error GoTo EventDate_ErrorHandler

If Cancel = True Then Exit Sub

chkDate = txtEventDate.Text
If Not Format(chkDate, “dd/mm/yy”) Then
MsgBox “Incorrect date format – Please try again” & Chr(13) & Chr(13) & “Must be dd/mm/yy”, vbOKOnly, “NDS – Add event”
Cancel = True
End If

txtEventDate.SetFocus

Exit Sub

EventDate_ErrorHandler:
If Err.Number = 13 Then Resume Next

End Sub