Net begonnen met VBA maar dit soort vragen haal je niet uit boeken.
Dit stukje code loopt alle woorden langs en vergroot ze.
Doordat ik elk woord in een Range Object stop en met een teller langs loop komen ze allemaal aan de beurt. De Range(0) = foutcode vang ik af met een helpvar.
Nou komt het als er 600 woorden in een doc staan, heb ik dan na afloop nog steeds 2x600 gevulde range objecten openstaan en geheugenruimte in beslag nemen.
Moet ik die dan zelf nog legen met een "NieuweRange (BT)= Nothing"?
Of het VBA die zelf weer vrij?
Alvast bedankt van een VBA beginner.
Dit is mijn code.
Public Sub test()
Dim T As Integer
Dim BT As Integer
Dim Twrd As Integer
Dim NieuweRange As Object
Dim OudeRange As Object
Twrd = ActiveDocument.Words.Count
For T = 1 To Twrd
Set NieuweRange = ActiveDocument.Words(T)
NieuweRange.Font.Size = 24
BT = T ' bescherming tegen foucode bij waarde 0
If T = 1 Then
BT = 2
End If
Set OudeRange = ActiveDocument.Words(BT - 1)
OudeRange.Font.Size = 12
Next T
End Sub
Dit stukje code loopt alle woorden langs en vergroot ze.
Doordat ik elk woord in een Range Object stop en met een teller langs loop komen ze allemaal aan de beurt. De Range(0) = foutcode vang ik af met een helpvar.
Nou komt het als er 600 woorden in een doc staan, heb ik dan na afloop nog steeds 2x600 gevulde range objecten openstaan en geheugenruimte in beslag nemen.
Moet ik die dan zelf nog legen met een "NieuweRange (BT)= Nothing"?
Of het VBA die zelf weer vrij?
Alvast bedankt van een VBA beginner.
Dit is mijn code.
Public Sub test()
Dim T As Integer
Dim BT As Integer
Dim Twrd As Integer
Dim NieuweRange As Object
Dim OudeRange As Object
Twrd = ActiveDocument.Words.Count
For T = 1 To Twrd
Set NieuweRange = ActiveDocument.Words(T)
NieuweRange.Font.Size = 24
BT = T ' bescherming tegen foucode bij waarde 0
If T = 1 Then
BT = 2
End If
Set OudeRange = ActiveDocument.Words(BT - 1)
OudeRange.Font.Size = 12
Next T
End Sub
"I don't have any solution but I certainly admire the problem." -- Ashleigh Brilliant