Vraag & Antwoord

Programmeren

fout in VBA, waar?

4 antwoorden
  • 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
  • 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
  • Gebruik ook ff de "[code]" tags, dan ziet het er een stuk overzichtelijker uit :)
  • 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

Beantwoord deze vraag

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.