Checkboxprobleem

Question

Ik heb een reeks legacy-documenten met de formcheckbox-stijl van checkbox.

Deze checkboxes dienen veranderd te worden naar de checkbox zoals die in de developer tab staat.

Weet er iemand de code die gebruikt moet worden om dit te doen dmv zoeken en vervangen?

Answer 1

Dit antwoord is automatisch vertaald. Als gevolg hiervan kunnen er grammaticale fouten of vreemde formuleringen zijn.

Hoi NOYBNOYB5,

Begroetingen!

Bedankt voor het posten in Microsoft Community. Wij helpen u graag verder.

Voor uw vraag welke code kan worden gebruikt om deze selectievakjes te zoeken en te vervangen, zullen we eerst onderzoeken, zodat we u van concrete antwoorden kunnen voorzien.

Op basis van de beschrijving die u hebt geplaatst, lijkt het erop dat u een probleem hebt met Word 365 waarbij u wilt weten welke code wordt gebruikt om selectievakjes in Word te zoeken en te vervangen.

Tot nu toe kunt u op basis van de door u verstrekte gegevens de onderstaande bron (en) proberen en ons laten weten of het probleem is opgelost.

Trouwens, ik struikelde net over deze link die een specifieke code biedt die bij uw zorg past. Laat het me weten als dit verkeerd is.

De onderstaande code was afkomstig van deze link.>>vba - Hoe een symbool te vinden / vervangen door een selectievakje besturingselement in Word - Stack Overflow

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Do
  With Selection.Find
    .Text = ChrW(9744) ' ChrW(9746)
    .Forward = True
    .Wrap = wdFindStop 'wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  If Selection.Find.Execute = False Then Exit Do
  ' This adds the checkbox at the selected position
  Set f = ActiveDocument.FormFields.Add(Range:=Selection.Range, _
                                        Type:=wdFieldFormCheckBox)      
  'f.CheckBox.Value = True ' Add this for checked checkboxes
Loop

Note: The link provided is a non Microsoft Website so please be vigilant on ADS that may pop-up

Hope this helps,

Sincerely,
Sun Khou
Consumer M365 Forum Moderator
Microsoft Community

Answer 2

Dit antwoord is automatisch vertaald. Als gevolg hiervan kunnen er grammaticale fouten of vreemde formuleringen zijn.

Hoi NOYBNOYB5,

We hebben gemerkt dat u niet heeft gereageerd op ons laatste bericht. We willen graag weten of de kwestie die u bij ons hebt aangekaart nog steeds aan de gang is? Zo ja, laat het ons dan weten zodat we ons gesprek kunnen voortzetten.  

Oprecht

Zon Khou

Consument M365 Forum Moderator

Microsoft-community

Answer 3

Dit antwoord is automatisch vertaald. Als gevolg hiervan kunnen er grammaticale fouten of vreemde formuleringen zijn.

Hoi NOYBNOYB5,

We hebben de afgelopen 72 uur niets van u gehoord. Aarzel niet om een nieuwe thread te maken als u zich zorgen maakt. We hopen dat het probleem dat u ons hebt gemeld, is opgelost. We begrijpen persoonlijk dat het vinden van tijd om aan deze kwestie te werken een beetje moeilijk te beheren kan zijn.  Daarom willen we u laten weten hoeveel we uw geduld waarderen en vooral de tijd die u hebt besteed aan het krijgen van een oplossing voor dit probleem van u.

Oprecht

Zon Khou

Consument M365 Forum Moderator

Microsoft-community