Wij hebben een huisstijl in Word 2003 SP2 met vba die bij sommige gebruikers eruit klapt met een error:
5234 The window is too small.
Resolutie wijzigen mocht niet baten. Gebruiker heeft wel een AABS scherm (resolutie 1200x800)
Wie kan helpen?
op de laatste regel klapt hij eruit.
_Heretic_ heeft al gereageerd met:
bizarre foutmelding. je kan eens proberen vergroting eerst in te stellen op 20% of zo.
of anders de tabel aanpassen zonder te selecteren.
myRange.Tables(1).Cell(1, 2).range.text="cell12tekst"
Dit gaat echter niet op omdat er later ook nog een stijl op toegepast moet worden.
Heeft niemand deze melding ooit gehad? Wel vreemd dat er geen documentatie is van Microsoft, terwijl ze er toch een nummer aan hebben gekoppeld...
5234 The window is too small.
Resolutie wijzigen mocht niet baten. Gebruiker heeft wel een AABS scherm (resolutie 1200x800)
Wie kan helpen?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Dim lngViewType As Long
Dim mySec As Section
Dim myRange As Range
Dim strHdrFtr As String
lngViewType = ActiveWindow.ActivePane.View.Type
With oPGData
'******************************************************************************
'** Organisatienaam en adressering in FirstPageHeader.
'******************************************************************************
strHdrFtr = "Header"
On Error GoTo Error_OrganisatieEnDisclaimer
Set mySec = ActiveDocument.Sections(lngSecIndex)
Set myRange = mySec.Headers(wdHeaderFooterFirstPage).Range
myRange.Tables(1).Cell(1, 2).Select |
op de laatste regel klapt hij eruit.
_Heretic_ heeft al gereageerd met:
bizarre foutmelding. je kan eens proberen vergroting eerst in te stellen op 20% of zo.
of anders de tabel aanpassen zonder te selecteren.
myRange.Tables(1).Cell(1, 2).range.text="cell12tekst"
Dit gaat echter niet op omdat er later ook nog een stijl op toegepast moet worden.
Heeft niemand deze melding ooit gehad? Wel vreemd dat er geen documentatie is van Microsoft, terwijl ze er toch een nummer aan hebben gekoppeld...