Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Recente berichten

Pagina's: [1] 2 3 4 ... 10
1
Programmeren en Scripting / Re: Tekstkleur of tekstopmaak wijzigen na ' teken in VBA
« Laatste bericht door Georgyboy Gepost op Gisteren om 15:42:49 »
Dankjewel MollyHV,

Test ik morgen uit in 2016 ipv nu 2019,
wat belangrijkst is dat het werkt  :)

Groetjes
Georgyboy
2
Excel / Re: 2 excel documenten laten overeenkomen
« Laatste bericht door MollyVH Gepost op Gisteren om 14:53:00 »
Hallo Daisy en SoftAid,

Ik wou ook net reageren maar zag dat SoftAid sneller was.
Citaat
Kan het iets te maken hebben met het feit dat het survey-rapport in de cloud stond?
Dat is precies wat ik me ook zat af te vragen, en de kans is volgens mij veel groter dat het daaraan ligt dan aan de naam van de bestanden waar in een eerdere post aan gedacht werd. Het enige wat daarmee fout kan gaan is dat je tikfouten maakt, denk ik zo.

Anderzijds, en dat is iets waar ik in dit onderwerp van in het begin al op gewezen heb, is het noodzakelijk dat in het basisrapport alles precies op dezelfde plaats staat. Als je de 2 xlsx-documenten uit post 76 bekijkt valt op dat het daar niet het geval is. Plak bv. de 2 werkbladen 'Mini report' eens naast elkaar, dan zie je het meteen.
Je zou dan nog een testje kunnen doen door beide bestanden op OneDrive te zetten om ook daarover uitsluitsel te krijgen.
M.a.w. of OneDrive al dan niet de boosdoener is, mij lijkt het dat het met het ene bestand met afwijkende structuur altijd (ongeacht de naam of locatie) mis zal gaan, en dan wordt de belangrijkste vraag of dat zich in de toekomst nog voor kan doen, dan wel of er daar eenmalig een manuele ingreep is gebeurd (die dan niet voor herhaling vatbaar mag zijn).

Mvg,
Molly
3
Excel / Re: 2 excel documenten laten overeenkomen
« Laatste bericht door SoftAid Gepost op Gisteren om 14:35:53 »
Hallo Daisy,

fijn dat alles in orde is.

Ik zat nog te denken aan een mogelijke oorzaak van het niet werken van jou eerste test.
Kan het iets te maken hebben met het feit dat het survey-rapport in de cloud stond?
Zelf zet ik niets in de cloud, kan het dus niet testen.

Groeten,

:) SoftAid :)             
4
Programmeren en Scripting / Re: Tekstkleur of tekstopmaak wijzigen na ' teken in VBA
« Laatste bericht door MollyVH Gepost op Gisteren om 14:35:14 »
Hallo Georgyboy,

Dan blijft er tussen jouw en mijn werkwijze en/of Office-versie toch nog ergens een verschilletje.
Die ^13 staat voor een harde return en zoals ik een aantal posts geleden al aangaf zitten die er bij mij blijkbaar niet in, want dan wordt de integrale tekst vanaf de eerste ' groen. Met ^11 (laten we dat dan een zachte return noemen, volgens Microsoft een verticale tab) doet hij het hier altijd goed, om het even hoe ik de tekst plak.
Of het al dan niet een raadsel zal blijven doet er niet veel toe, als het bij jou gaat met ^13 is ons doel in elk geval bereikt  ;)

Groetjes,
Molly
5
Excel / Re: 2 excel documenten laten overeenkomen
« Laatste bericht door DDS Gepost op Gisteren om 13:58:49 »
Hoi SoftAid & Molly,

Het document werkt weer 100%. Ik heb vandaag nog enkele keren de survey ingevuld en heb nu 7 'deelnemers' en jahoor gewoon het document op de c schijft gezet en daisy4 genoemt en hup daar kwamen de cijfers. Dus voortaan zet ik alle rapporten van Netigate op mijn c schijf onder de naam daisy(telkens een ander cijfer) zodat ik alleen maar het cijfer in het rapport van Molly moet aanpassen.

Heel erg dank voor de hulp.

Groetjes en nog een hele fijne dag,
Daisy
6
Programmeren en Scripting / Re: Tekstkleur of tekstopmaak wijzigen na ' teken in VBA
« Laatste bericht door Georgyboy Gepost op Gisteren om 09:31:18 »
Gevonden  :) :) :)

.Text = "'*[^11]" gewijzigd naar .Text = "'*[^13]"
Dank dat ik weer een klein stapje verder sta door het mogen leren van je code en uitleg erbij  :thumbsup:
7
Programmeren en Scripting / Re: Tekstkleur of tekstopmaak wijzigen na ' teken in VBA
« Laatste bericht door Georgyboy Gepost op Gisteren om 09:22:51 »
Hallo MollyHV,

Hartelijk dank voor je code en toelichting  _/-\o_
Je bent ook dit (Word CVA) machtig \o/

Bij test via F8 zie ik de tekst via de code wijzigen in een volledig rode kleur komende van .Font.Color = wdColorRed
Echter de kleur van de commentaar na het ' teken blijft ook rood  ;)

Probeer het ook even uit te zoeken, maar weet dat het voor jouw ook weer een uitdaging is.

Groetjes,
Georgyboy
8
Programmeren en Scripting / Re: Tekstkleur of tekstopmaak wijzigen na ' teken in VBA
« Laatste bericht door MollyVH Gepost op 24 september 2022, 12:54:56 »
Hallo Georgyboy,

Ik wou er voor mezelf nog wat mee experimenteren, en merkte meteen dat ik in de code van gisteren iets te gretig (stomweg per ongeluk een lijn te veel gepakt om te deleten, en daarna niet meer opnieuw gekeken :-[) zogenaamd overbodige instructies had opgeruimd, m.a.w. deze zal beter zijn:
Sub Color_VBA_Comments()

With Selection
    .WholeStory                         'alles selecteren
    .ClearFormatting                    'bestaande opmaak verwijderen
    .Font.Color = wdColorRed            'alles rood (zoals in je foto-bijlage)
    With .Find
        .MatchWildcards = True          'wildcards accepteren
        .Text = "'*[^11]"               'zoektekst definiŽren
        With .Replacement
            .ClearFormatting            'eventueel bestaande opmaak van vervanging verwijderen
            .Font.Color = wdColorGreen  'kleur van gevonden tekstdelen
        End With
        .Execute Replace:=wdReplaceAll  'alle gevonden tekstdelen aanpassen
    End With
    .HomeKey Unit:=wdStory              'selectie opheffen en naar begin van document
End With

End Sub

Groetjes,
Molly

Aangepast: de 'speel/experimenteer' tijd was nog niet voorbij, dus om het helemaal (denk ik toch) af te maken de code, nu ook inclusief commentaar ;), nog wat opgeschoond.
9
Programmeren en Scripting / Re: Tekstkleur of tekstopmaak wijzigen na ' teken in VBA
« Laatste bericht door MollyVH Gepost op 23 september 2022, 21:05:31 »
Hallo Georgyboy,

Ja hoor, mijn interesse gaat wel een beetje verder dan enkel Excel  ;)
Om mijn eigen uitspraken even te checken heb ik het effectief geprobeerd en het deed wat ik verwachtte. Ik heb ondertussen (eindelijk!) ook een nieuwere Office (Professional Plus 2019), dus niet direct duidelijk waar het verschil zit. Misschien gebeurt er een kleinigheid anders bij het plakken.
Ik heb toch maar de code eens aangepast waarbij ik eerst de ganse inhoud selecteer, vervolgens een nieuwe lijn gebruik i.p.v. een harde return om het einde van de zoektekst aan te geven, en meteen wat ballast verwijderde.
Dan ziet de code er zo uit:
Sub Color_VBA_Comments()

Selection.WholeStory
With Selection.Find
    .Text = "'*[^11]"
    .Replacement.Font.Color = wdColorGreen
    .Execute Replace:=wdReplaceAll
End With
Selection.HomeKey Unit:=wdStory

End Sub

Nu maar hopen dat het niet omgekeerd is en deze bij jou niet werkt  ;D. Test je misschien eens?

Groetjes,
Molly
10
Programmeren en Scripting / Re: Tekstkleur of tekstopmaak wijzigen na ' teken in VBA
« Laatste bericht door Georgyboy Gepost op 23 september 2022, 20:19:25 »
Hallo MollyVH,

Fijn dat dit je ook interesseert  :)


Als ik zo van ver naar je 'gevonden werkende code' kijk, dan krijg ik nochtans het gevoel dat dit fout zal gaan. Vermoedelijk doe jij het dus op een andere manier dan hoe ik het zou doen.
Laat dus vooral weten waar ik het verkeerd zie!
Bij mij werkt het op 2 verschillende plaatsen en zowel in Word 2016 of word 2019 met ingeschakelde macroīs

Je wil volgens mij vba-code (in dit geval uit Excel) in een Word-document plakken, ik veronderstel als documentatie (?), en daarin ter optimalisering van de leesbaarheid de commentaren in het groen zetten?Klopt en ook als interesse voor wat er ook mogelijk is in "Word VBA", zo ook voor andere toepassingen en tekens, de Excel macro (opmerking) is daar een mooi voorbeeld van.

Voor mezelf zou ik dan enkel de Excel-code kopiŽren en plakken, en vervolgens Word-code uitvoeren. Ik vraag me dus af welke stappen jij nog meer doet, want met de code die jij hebt toegevoegd verwacht ik dat alles na de eerste ' groen gaat kleuren.Hier kleurt alles mooi na ieder ' teken.

Denk dat ik hier geluk heb dat alles mooi werkt  ;), maar denk ook dat deze code veel korter kan.

Er staan 2 codes, ook eentje om de tekst kleur te wijzigen in de gehele tekst.

Sub Color_VBA_Comments()

'Purpose: Looks for a Quote and changes the rest of that line's font color to Green

  With Selection.Find
    .ClearFormatting
    '.Text = "'*[^13]"
    .Text = "'[!^13""""]@[^13]"
    .Replacement.ClearFormatting
    .Replacement.Text = ""
    .Replacement.Font.Color = wdColorGreen
    .Format = True
    .Forward = True
    .Wrap = wdFindStop
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Sub VerwijderOpmaak()

ActiveDocument.Range.Font.Color = vbRed
'VBBlack, VBBlue, VBCyan, VBGreen, VBMagenta, VBRed, VBWhite, and VBYellow

End Sub

Bij voorbaat dank!
Groeten,
Georgyboy


Pagina's: [1] 2 3 4 ... 10


www.combell.com