Vraag & Antwoord

Programmeren

Macro Word

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

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

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