Ik kan wel uitleggen wat er gebeurt, als dat helpt?
De code maakt gebruik van een zogenaamde
Matrix variabele. En die werkt net iets anders als een gewone variabele. Bij een gewone variabele sla je één gegeven op, maar een Matrix kan de gegevens a.h.w.
stapelen.
Dit kun je vergelijken met een Excel tabel, waarbij een normale variabele de waarde uit één cel opslaat, bijvoorbeeld A1, en een matrix waarden uit een rij, een kolom of een combinatie daarvan kan opslaan. Een matrix zou dan bijvoorbeeld de cellen uit A1:A20 opslaan, in 20 'records' of uit A1:C20, waarbij je dan 60 gegevens tegelijk hebt opgeslagen (3 kolommen x 20 rijen = 60 cellen)
Bij een Matrix variabele moet je specifiek aangeven uit welke 'rij' of 'kolom' je iets terug wilt hebben, vandaar dat je vaak een Loop routine ziet, die door de verschillende opties heenloopt.
Hiermee wordt de matrix variabele gedeclareerd. Een gewone variabele declareer je met: Dim strTekst As String. Wil je hem als matrix gebruiken, dan wordt dat: Dim strTekst() As String.
Eigenlijk moet je daarna nog specifiek opgeven uit hoeveel rijen en kolommen de matrix bestaat, maar je kunt dat ook op een hele lepe manier doen, die dan ook vaak gebruikt wordt, namelijk met het SPLIT commando.
Code:
sq = Split(ActiveDocument.Content, vbCr)
Hiermee wordt een bepaald gegeven gesplitst op een zelf aan te geven scheidingsteken. In het voorbeeld wordt de volledige tekst van het document ingelezen (
ActiveDocument.Content) en gesplitst op basis van de Harde returns (vbCR). Kortom: er wordt een variabele gemaakt van elke zelfstandige alinea. Als je dus 56 keer op <Enter> drukt in je document, dan maakt de SPLIT functie 56 rijen aan in de matrix variabele.
Code:
For j = 0 To UBound(sq)
For i = 1 To 5
sKop = "<" & i & ">"
If InStr(sq(j), sKop) > 0 Then
ActiveDocument.Paragraphs(j + 1).Style = ActiveDocument.Styles("Kop " & i)
End If
Next i
Next j
Vervolgens wordt in een FOR...NEXT loop door alle variabelen gelopen, en wordt een actie uitgevoerd (of niet natuurlijk). Dat begint met de regel
For j = 0 To UBound(sq). Een matrixvariabele telt standaard vanaf het getal Nul; voor het aantal keer dat de lus moet worden uitgevoerd, zoeken we met Ubound(sq) eerst de hoogste waarde van de matrix op. Dit geeft je het aantal regels in de matrix.
Er zit nog een tweede lus in, zoals je ziet, en die lus kijkt of de tekst <1> t/m <5> voorkomt in de tekst. Dat zijn namelijk je kopwaarden. Als je het getal verlaagt naar 3, dan worden dus 3 koppen ingesteld, verhoog je het getal dan kun je meer koppen maken. De lus
sKop = "<" & i & ">" zet dus elke keer een nieuw cijfer tussen de haken.
Vervolgens wordt met de functie
InStr(sq(j), sKop) > 0 gekeken of de tekst voorkomt in de ainea's. Als dat zo is, dan heb je een kop te pakken. De functie Instr geeft een getal dat groter is als Nul als de tekst gevonden wordt, vandaar dat je op deze manier checkt.
In de regel
ActiveDocument.Paragraphs(j + 1).Style = ActiveDocument.Styles("Kop " & i) wordt de betreffende stijl vervolgens op de tekst toegepast.
Code:
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
With myRange.Find
.ClearFormatting
.Text = "<^#>"
With .Replacement
.ClearFormatting
.Text = ""
End With
.Execute Replace:=wdReplaceAll
End With
End Sub
Het laatste blokje gebruik je vervolgens om in één keer alle tekst <1> t/m <9> te vervangen door niks, zodat je alleen de koptekst overhoudt.
Duidelijk genoeg zo, of wil je meer informatie?
zo gevorderd hebben we het op school nog niet gezien haha!
