Makro som skal stoppe paa nederste linie i dokument

Du skulde tilfeldig vis ikke kalde dig selv \"vagman\" eller noget der omkring på nettet?

er det nemmeste ikk bare at bruge
replace(text,chr(13),chr(13)&chr(9))

-magneren-

måske skal der et mere chr på kan jeg ikk huske =)

Desværre...jeg er rimelig ny til det her...så hvis du kan sætte det ind i et exempel, så vil det være fint..

Prøv men denne lille makro, og skift OrdDerSkalFindes ud med dit eget ord.

Sub SetTabInFront()
Dim sMitOrd As String
    sMitOrd = \"OrdDerSkalFindes\"

    With Selection.Find
        .Text = sMitOrd
        .Replacement.Text = \"^t\" & sMitOrd
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Tak skal du have.... ha\' det godt

Godt du kan bruge det :-)