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...