Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

fout in VBA, waar?

Anoniem
johangel
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 "" 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

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