Játék a bekezdésekkel Word 2007-ben

Szóközök eltávolítása a kijelölt bekezdések elejéről:
 
Sub RemoveFirstSpaces()
    Dim P As Paragraph
    For Each P In Selection.Paragraphs
        Do While P.Range.Characters(1) = " "
            P.Range.Characters(1) = ""
        Loop
    Next
End Sub
 
Kijelölt bekezdések egyesítése:
 
Sub MergeParagraphs()
    Dim P As Paragraph
    Dim S As String
    For Each P In Selection.Paragraphs
        S = S + Left(P.Range.Text, Len(P.Range.Text) – 1) + " "
    Next
    Selection.Delete
    Selection.InsertAfter (S)
End Sub
 
 
Reklámok

Vélemény, hozzászólás?

Adatok megadása vagy bejelentkezés valamelyik ikonnal:

WordPress.com Logo

Hozzászólhat a WordPress.com felhasználói fiók használatával. Kilépés / Módosítás )

Twitter kép

Hozzászólhat a Twitter felhasználói fiók használatával. Kilépés / Módosítás )

Facebook kép

Hozzászólhat a Facebook felhasználói fiók használatával. Kilépés / Módosítás )

Google+ kép

Hozzászólhat a Google+ felhasználói fiók használatával. Kilépés / Módosítás )

Kapcsolódás: %s