macro in Word 2013 om zin in het vet te zetten

[andreavdg]

Hallo,

 

De laatste keer ben ik hier prima geholpen door Alpha ivm macro in Word.

Nu zou ik terug graag een beroep doen op Alpha (of iemand anders) voor het volgende:

 

Ik heb een document van +/- 400 pagina's met dialect woorden van onze streek en de Nederlandse verklaring.

De zin in het dialect die voor een : (dubbel punt) staat zou nu in het vet moeten gezet worden.

Na het dubbel punt volgt er de verklaring die niet in het vet moet en dus normaal mag blijven staan.

 

Voorbeeld:

A es goet oiëtgeslaupen: hij is zeer leep en slim

 

Alvast erg bedankt

Groetjes,

Andrea

 

[alpha]

Heb je in het document dat op je vorige vraag betrekking had, de vette tekst per ongeluk verwijderd (omdat je nu vraagt die weer vet te maken)?

Onderstaande macro doet wat je wenst en er is rekening gehouden met blanco regels en ook met alinea's waarin geen dubbele punt voorkomt (moest dat niet het geval zijn, zou de macro worden onderbroken en er een foutmelding volgen). Voor 400 pagina's kan de uitvoering natuurlijk wel even duren, dus heb geduld.

Option Explicit
Sub macro1()
Dim c, Sent As Sentences, p As Paragraph, x As Long
Application.ScreenUpdating = False
For Each p In ActiveDocument.Range.Paragraphs
Set Sent = p.Range.Sentences
Set c = Sent(1)
With c.Find
.Text = ":"
.Execute
If .Found Then
x = 1
With Sent(1)
Do While Sent(1).Characters(x) <> ":"
Sent(1).Characters(x).Font.Bold = True
x = x + 1
Loop
End With
End If
End With
Next p
Application.ScreenUpdating = False
Set Sent = Nothing
End Sub

 

11 december 2017 aangepast door alpha

[andreavdg]

Beste Alpha,

 

Chapeau!!! De macro werkt perfect!

Even een woordje uitleg.
We zijn een groep van vrijwilligers in dienst van onze Heemkundige Kring.
Er werken dus verschillende personen aan het boek.
De fout is dat er niet eerst overlegd werd hoe te werk te gaan.
Elke persoon heeft zijn deel dus op eigen manier opgesteld met alle gevolgen vandien.
Geen uniforme werkwijze.
Alle documenten komen bij mij omdat ik gelast ben het boek samen te stellen en de lay-out te verzorgen.

In het eerste document dat ik kreeg waren de dialect woorden in het vet gezet maar er stond geen dubbel punt achter.
Dat was dan ook mijn eerst vraag om hulp.

Nu heb ik een volgend document gekregen waar de dialect woorden in gewone tekst staan maar wel met dubbel punt.
Dus hier ging mijn tweede vraag over.

En nu is, dankzij jou, het ganse document uniform.

 

Hopelijk kom ik niet meer voor andere problemen te staan.

In ieder geval heb ik er op gedrukt dat er eerst overleg moet komen vooraleer nog aan zoiets te beginnen.

A propos, het waren 489 blz...

 

Ik ben je ontzettend erg dankbaar Alpha!

Dit forum mag trots op je zijn!

 

Beste groetjes,

Andrea

 

 

 

 

 

[alpha]

Dank voor de respons.

Interessant en belangrijk werk, het vastleggen van dialect.

Om het dialect van welke streek gaat het ?

 

[andreavdg]

Onze streek is het "Pajottenland" (Vlaams-Brabant)

Behalve het "Dialect Woordenboek" zijn er ook nog de "Dialect Gezegden", het "Franskiljons" en tal van andere onderwerpen.

Zoals verdwenen handelszaken, café's, cinema's, bijnamen, families, oude recepten van onze grootmoeders, enz...

Een héél lijvig boek! 

En ja, heel interessant... en leuk om te maken

 

Groetjes,

Andrea

 

[alpha]

Succes met al dat werk, het lijkt me een hels karwei.

 

 

[alpha]

In de derde regel van onder staat: Application.ScreenUpdating = False .

False moet je vervangen door True .

Bovenaan staat het ook, maar daar moet blijven staan wat er staat.

 

[alpha]

Nog enkele kleine wijzigingen aangebracht, die niet fout waren, maar overbodig.

Daarom hierbij de volledige macro opnieuw:

Sub macro1()
Dim c, Sent As Sentences, p As Paragraph, x As Long
Application.ScreenUpdating = False
For Each p In ActiveDocument.Range.Paragraphs
Set Sent = p.Range.Sentences
With Sent(1).Find
.Text = ":"
.Execute
If .Found Then
x = 1
With Sent(1)
Do While .Characters(x) <> ":"
.Characters(x).Font.Bold = True
x = x + 1
Loop
End With
End If
End With
Next p
Application.ScreenUpdating = True
Set Sent = Nothing
End Sub

 

 

12 december 2017 aangepast door alpha