Markeren van gebruikte stijlen Bold binnen Alinea's

Status
Niet open voor verdere reacties.
L

Luccl

Gebruiker
Lid geworden
27 mei 2021
Berichten
13
Geachte forum leden,

ik ben bezig met de opmaak van een boek, deze is aangeleverd in Word.
ik wil in het word bestand overal aanduiden waar er tekstopmaak is (zoals in html, maar dan met mijn eigen code)
deze vervang ik in indesign met de juiste opmaak.

ik heb reeds een poging ondernomen maar ik merk dat de markering over de alinea's loopt (zie voorbeeld)

hierbij de gebruikte code
Code: 
Sub markeerOpmaak()
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
     'zoek Bold
        .ClearFormatting
          .Font.Italic = False
        .Font.Bold = True
      .Replacement.Text = "X€Xbo1^&X€Xbo2"
      .Execute Replace:=wdReplaceAll
Application.ScreenUpdating = True
    End With
End Sub
 

Bijlagen

  • Schermafbeelding 2021-08-04 om 13.24.28.png
    Schermafbeelding 2021-08-04 om 13.24.28.png
    55,5 KB · Weergaven: 20
Bedankt Octafish voor je tijd

Dit is maar één pagina van het document
De code heb ik ook ingekort daar ik italic, onderlijn ... ook moet aanduiden, maar dat is voor later
 

Bijlagen

  • Koop test .docx
    17,4 KB · Weergaven: 8
Ik zie dat je macro het perfect doet. Wat is je probleem?
 
De markering loopt over meerdere alinea's.
Met GREP kan ik in indesign niet over meerdere alinea's zoeken

ik heb het wat duidelijker gemaakt in een voorbeeld

Schermafbeelding 2021-08-04 om 13.24.28.png
 
't Is niet dat ik je probleem niet snap :). Maar de macro doet het prima. Ik vermoed dat je de macro hier in HelpMij hebt gevonden, want ik heb dezelfde macro ook in mijn macro's zitten, maar dan de uitgebreide variant. Het probleem is niet zozeer dát er opmaakcodes gebruikt zijn, alswel dat ze niet correct gebruikt zijn. Althans: de gebruikte opmaak is m.b.v. selecties aangebracht en niet met stijlen. Het resultaat is dan, dat de tekst
De verkoop in volle eigendom onderscheidt zich van de toekenning van een zakelijk gebruiksrecht op een onroerend goed.

Zo bestaat de verkoop in volle eigendom uit een eeuwigdurende eigendomsoverdracht van het betrokken goed. Een hoofdzakelijke tijdelijke eigendomsoverdracht van een onroerend goed maakt een superficiaire eigendomsoverdracht uit en kan maar het voorwerp zijn van een opstalrecht. Dat betekent niet dat dat opstalrecht niet als een verkoop gekwalificeerd kan worden, met gevolgen voor de registratierechten (proportioneel recht van 10% i.p.v. 2%).
Klik om te vergroten...

gemarkeerd wordt als één blok, maar ook een lege regel als
) .

§3
Klik om te vergroten...

Dat schiet natuurlijk niet op. Je moet dus per alinea gaan bekijken welke opmaak er is toegepast. En daar dan de code op zetten. Dan is het de vraag: wat doe je dan met delen van de zin die zijn opgemaakt? Want daar zul je neem ik aan ook de opmaak van willen aanpassen met code. Idem dito met complete zinnen.
 
Inderdaad Octafish je hebt me in het verleden reeds met deze code geholpen.
Waarvoor mijn dank :thumb:
Alles werkt perfect ook de italic, kleinkapitalen enz worden perfect aangeduid.

Het zoeken en vervangen moet inderdaad gebeuren per Alinea.
Ik heb wat zitten zoeken op het web, maar vind niet direct de juiste code
en zelf weet ik niet voldoende van VBA om dit te schrijven.

De delen van een zin waren geen probleem hij markeerde deze ook
ik moet wel alle stijlen opzoeken, dus Bold italic is een aparte code
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan