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

Macro Word

Anoniem
None
2 antwoorden
  • Ik ben op zoek naar een Word macro waarmee alle vetgedrukte woorden in een document geindexeerd worden. Het betreft vrijwilligerswerk voor een archief waarbij oude boeken met oud hanschrift zijn overgetypt. Alle namen staan vetgedrukt in het document. Hoe kun je een alfabetische index (incl. pagina nr) maken van deze woorden?
  • Plak onderstaande code in een module[code:1:d11f6db968]
    Option Explicit

    Private mbFindDone As Boolean

    Public Sub CreateIndex()

    Dim rIdx As Range
    Dim bSuccess As Boolean

    Selection.HomeKey wdStory

    Do
    With Selection.Find
    .Font.Bold = True
    If .Execute(FindText:="", Forward:=True, Format:=True) Then
    Set rIdx = Selection.Range
    Else
    Exit Do
    End If
    End With
    If Not rIdx Is Nothing Then
    Call ActiveDocument.Indexes.MarkEntry(rIdx, rIdx.Text, rIdx.Text)
    bSuccess = True
    End If
    Loop

    If bSuccess Then
    Selection.EndKey wdStory
    Selection.InsertBreak wdPageBreak
    With ActiveDocument
    .Indexes.Add Range:=Selection.Range, HeadingSeparator:= _
    wdHeadingSeparatorLetter, Type:=wdIndexIndent, RightAlignPageNumbers:= _
    True, NumberOfColumns:=1, IndexLanguage:=wdDutch
    .Indexes(1).TabLeader = wdTabLeaderSpaces
    End With
    Else
    MsgBox "Fout, geen indexgegevens gevonden!", vbCritical, "CreateIndex"
    End If

    End Sub
    [/code:1:d11f6db968]Je kan dan de macro CreateIndex aanroepen, en deze zal vanaf het begin van het document alle vetgedrukte tekst voorzien van een indexmarkering, en aan het einde de index ook daadwerkelijk aan het document toevoegen. Dat kan eruit, je kan ook zelf bepalen waar en hoe je de index wilt toevoegen. Haal dan alles vanaf "If bSuccess then" weg.

    Succes

    Ed

Beantwoord deze vraag

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