Avatar billede Jolles Professor
19. januar 2014 - 19:59 Der er 4 kommentarer og
1 løsning

[18-01-2014 22:55:20] fjern alle parenteser med indhold word7

Jeg bruger skypes chat meget, og kopierer det ud i word 7
Har forgæves forsøgt at fjerne alle skarpe parenteser via søg og erstat's finurlige funktioner. Kan nogen vise mig vejen?
Avatar billede HKW Nybegynder
19. januar 2014 - 21:26 #1
Brug jokertegn ved søgning
og søg efter: \[*\]
Avatar billede HKW Nybegynder
19. januar 2014 - 21:34 #2
Eller:

[^#^#-^#^#-^#^#^#^# ^#^#:^#^#:^#^#]

uden jokertegn. Den finder kun dem, som har sådan en dato.
Avatar billede claes57 Ekspert
19. januar 2014 - 21:39 #3
Hvis det er først på en linje - og KUN der, så optag en makro og tildel den en genvejstast, fx Ctrl+Y
stop så makrooptagelse, rediger makro og kør disse linjer ind

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "["
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "]"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1


gem, og du kan nu bare Ctrl+Y og slette næste forekomst.

Det kan også laves, så den bare tæller x tegn frem efter [ og sletter tekst. Så skal du bruge dette i stedet:

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "["
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=20, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
Avatar billede Jolles Professor
26. februar 2014 - 11:07 #4
HKW: læg et svar
Avatar billede Jolles Professor
12. marts 2014 - 10:16 #5
HKW har ikke svaret, så jeg tillader mig at gemme points.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester