Doorlopen alle velden in een word document

Status
Niet open voor verdere reacties.
Octafish,

Ik denk wel dat steeds op dezelfde volgorde door het document gelopen wordt. Wat zeker is dat ieder control een unieke ID heeft en dat die niet wijzigt als je het doc bewaart en terug opent.
 
Klopt. De identifiers worden bijgehouden en een collectie en die is constant en veilig te gebruiken. Ze staan op volgorde van de tijd van toevoeging inderdaad.
 
Allemaal bedankt voor de reacties.

Het is me gelukt wat ik wou doen (tot nu toe)
 
Hallo,

Ik wil alle checkboxes in mijn word doc controleren in een loopje en wou hiervoor de code van octafish gebruiken
Code:
    For Each shp In ActiveDocument.InlineShapes
        On Error Resume Next
        If TypeName(shp.OLEFormat.Object) = "CheckBox" Then
            MsgBox shp.OLEFormat.Object.Name & vbLf & shp.OLEFormat.Object.Caption & vbLf & shp.OLEFormat.Object.Value
        End If
    Next
Deze code toont mij nooit een msgbox dus weet ik ook geen naam en waarde van de checkbox.

Nu heb ik wel deze code nog gevonden maar die loopt ook niet echt goed:
Code:
    For Each oCtl In ActiveDocument.InlineShapes
        If oCtl.OLEFormat.ClassType = "Forms.CheckBox.1" Then
            MsgBox oCtl.OLEFormat.ClassType
            MsgBox oCtl.OLEFormat.Name
            If oCtl.OLEFormat.Object.Value = True Then
                MsgBox "Checkbox " & oCtl.OLEFormat.Object.Name & _
                "is checked"
            Else
                MsgBox "Checkbox " & oCtl.OLEFormat.Object.Name & _
                "is NOT checked"
            End If
        End If
    Next
Hier krijg ik dan een foutmelding op oCtl.OLEFormat.Name en oCtl.OLEFormat.Object.Value.

Iemand een oplossing?
 
Zoals je inmiddels weet, bestaan er verschillende soorten objecten. Kun je het document mee posten?
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan