macro - indsæt blanke + fjern linieskift

Hvis du fjerner linieskiftet er der ikke længere 80 tegn pr. linie!

Det har du naturligvis ret i, men den skal efterfølgende læses ind i et gammelt dos program som "deler" filen op i linier med 80 tegn.

Er der linier med "omløbende tekst" - d.v.s. uden linieskift?

nej

Indlæg koden i Thisdocument:

Dim kildeDok, redigDok
Sub fyldLinier()
    kildeDok = ActiveDocument.Name
   
Rem opretter et dok. 2 til redigerede linier
    Documents.Add
    redigDok = ActiveDocument.Name
    Documents(kildeDok).Activate
   
    With ActiveDocument
        For f = 1 To .Paragraphs.Count
          afsnit = .Paragraphs(f)
          redigerafsnit (afsnit)
        Next f
    End With
End Sub
Private Sub redigerafsnit(afsnit)
Dim wAf As String
    wAf = Left(afsnit, Len(afsnit) - 1)
   
    While Len(wAf) < 80
        wAf = wAf + " "
    Wend
   
    Documents(redigDok).Activate
    ActiveDocument.Content.InsertAfter Text:=wAf
    Documents(kildeDok).Activate
End Sub

Sådan set rigtig meget godt, men jeg har stadig mit afsnitstegn som jeg ikke kan slippe af med. Jeg kan se den når vis koder er slået til i Word.

Det sidste afsnitstegn kan ikke fjernes i Word
Men gem filen som text-fil i MS-DOS format

Eller VBA-koden skal skrive direkte til en tekst-fil!? - i stedet for til en anden Word-fil.

Tak for det, det kører.

Selv tak!