Rune
Hvis du kan leve med, at overstregningen går lidt
ud over ordet/ordene i begge sider, kan denne lille
rutine klare "ærterne". Den indsætter et felt af
typen EQ.
Indsæt den i et modul i Normal.dot, så du kan
bruge den fra alle dokumenter. Opret evt. en
knap til at kalde rutinen.
Den virker således:
Stå lige efter det ord, der skal overstreges.
eller
Stå lige efter mellemrummet efter det ord, der
skal overstreges.
eller
Marker det ord/de ord, der skal overstreges.
og
Kør makroen.
Sub Overstreg()
'leo.heuser@get2net.dk, november 2000
Dim Tekst As String
If Len(Selection) = 1 Then
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
End If
Tekst = Trim(Selection)
Selection.Delete
ActiveDocument.Fields.Add Range:=Selection.Range, _
Type:=wdFieldFormula, Text:="\x \to (" & Tekst & ")", _
preserveformatting:=False
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False
End Sub
Med venlig hilsen
LeoH
"Rune Pilgaard" <philehof@ANTISPAMrhk.dk> skrev i en meddelelse
news:8vj0g7$lsa$1@news.net.uni-c.dk...
> kan det lade sig gøre at overstrege i PP og word? (det modsatte af
> understregning).
>
> MVH
> Pilgaard
>
>
|