hurtige points

Hvad med denne her?

With Selection.find
    .Forward = True
    .ClearFormatting
    .MatchWholeWord = True
    .MatchCase = False
    .Wrap = wdFindContinue
    .Execute FindText:=\";\"
End With
    Selection.find.Execute Replace:=wdReplaceAll
End Sub

Dim strTekst As String
Dim posi As Long
strTekst = \"nielsen;hansen\"
posi = InStr(strTekst, \";\")
strTekst = Mid(strTekst, 1, Len(strTekst) - posi + 1) & \" hedder \" & _
          Mid(strTekst, posi + 1, Len(strTekst) - 1)
Debug.Print strTekst
End Sub

Super *_*

nåeh der skulle jo stå \"hansen;nielsen\", men det går vel ;-)

hmm. Var det VBA du spurgte om?

mkm har du prøvet piphans\'s kode? der kommer til at stå
hansennielsen - men det var måske det du gerne ville have?

Hmmm, mystisk. Anyone care to comment?

mkm: Jeg har lige set dit nye spm. Jeg trækker mig tilbage - det hele så bare lidt uldent ud fordi piphans lige var oprettet og kun havde svaret på dette spm. Når der så oven i købet var en (lille) fejl i svaret bliver man uvægerligt lidt mistænksom når svaret bliver accepteret inden for 5-10 min.
Anyway - good luck med VBA projektet.

C your point cstern. 

Jeg havde ikke set dit svar da jeg accepterede

Kan duiøvrigt hjælpe mig med mit nye spm

/mkm

OK.
Nej desværre - jeg har (stort set) ingen erfaring med VBA