anoniem Geplaatst: 22 juli 2003 Delen Geplaatst: 22 juli 2003 Ik heb volgend script in VBA, met een fout in de Else regel (Fout 52, syntax error), en weet bij God niet waar de fout zit. Zijn er specialisten op het forum die de fout zien, Mvg.Johan Private Sub Document_AfterRefresh() Dim locdoc As Document For j = 1 To Application.Documents.Count If StrConv(Application.Documents.Item(j).Name, vbLowerCase) = "paginanummering" Then Set locdoc = Application.Documents.Item(j) End If Next If StrConv(locdoc.Name, vbLowerCase) = "paginanummering" Then pagenum = 0 For i = 1 To ActiveDocument.Reports.Count If i <> 1 Then DocumentVariables.Item(ActiveDocument.Reports.Item(i).Name).Formula = "=" & Chr(34) & "page" & Chr(34) & "& formatnumber(page()+" & pagenum & ",""#"")" Else [u:e90b5b24a3]DocumentVariables.Item(ActiveDocument.Reports.Item(i).Name).Formula = "=" & Chr(34) & "page" & Chr(34) & "& formatnumber(page(),""#"")"[/u:e90b5b24a3] End If ActiveReport.ForceCompute pagenum = pagenum + ActiveDocument.Reports(i).NumberOfPages Next i Quote Link naar reactie
anoniem Geplaatst: 22 juli 2003 Auteur Delen Geplaatst: 22 juli 2003 zie ik het nu verkeerd of hoort er nog een end if in het verhaal (onderaan?) en zowiezo die eerste end if na het onderstreepte gedeelte moet nog een enter achter succes Quote Link naar reactie
anoniem Geplaatst: 23 juli 2003 Auteur Delen Geplaatst: 23 juli 2003 Gebruik ook ff de "[code]" tags, dan ziet het er een stuk overzichtelijker uit :) Quote Link naar reactie
anoniem Geplaatst: 23 juli 2003 Auteur Delen Geplaatst: 23 juli 2003 Private Sub Document_AfterRefresh() Sub PageNumberTabs() PageNum = 0 For i = 1 To ActiveDocument.Reports.Count If i <> 1 Then DocumentVariables.Item(ActiveDocument.Reports.Item(i).Name).Formula = "= " & Chr(34) & "Page " & Chr(34) & " & FormatNumber (Page() + " & PageNum & ", ""#"")" Else DocumentVariables.Item(ActiveDocument.Reports.Item(i).Name).Formula = "= " & Chr(34) & "Page " & Chr(34) & " & FormatNumber (Page() , ""#"")" End If ActiveReport.ForceCompute PageNum = PageNum + ActiveDocument.Reports(i).NumberOfPages Next i End Sub Dit is het vereenvoudigde script.De foutopsporing blijft hangen op de Else regel.Johan Quote Link naar reactie
anoniem Geplaatst: 30 juli 2003 Auteur Delen Geplaatst: 30 juli 2003 Zeer raar, in het script heb ik 'formatnumber' vervangen door 'naargetal' en 'page 'door 'pagina' en het werkt wel. Kan er een taalconflict zijn indien men een VBA-script maakt in het engels en het dan runt in een nederlandstalige applicatie( in dit geval Business Objects)? Johan Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen