Deleting the first word of a second paragraph

		Microsoft Office Forums > Microsoft Word > Word VBA
Deleting the first word of a second paragraph

FAQ

Thread Tools

Display Modes

03-12-2024, 06:00 AM

vivka

Windows 7 64bit Deleting the first word of a second paragraph

Office 2016

Competent Performer

Join Date: Jul 2023

Posts: 228

This is better. Since cset recognizes characters, not strings, "Example" is useless:

Code:

Sub Del_Test()
Dim oRng As range
    Set oRng = selection.Paragraphs(2).range
    If InStr(oRng, "Example") Then
        oRng.Collapse
        oRng.MoveEndUntil cset:="E"
    Else
        oRng.Collapse
        oRng.MoveEnd unit:=wdCharacter, count:=8
    End If
    oRng.Delete
Set oRng = Nothing
End Sub

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Deleting all text from a slide pack without deleting the formatting	redordead2389	PowerPoint	0	05-31-2023 06:50 AM
Word macro for deleting a line that starts with a specific character + deleting the line before	eduardb	Word	1	08-10-2022 03:17 AM
Inserting text from a Userform into a Field in a paragraph in a paragraph in a word document	storemaz	Word VBA	1	03-13-2020 08:11 AM
Deleting paragraph commands	afndst	Word VBA	2	12-30-2015 02:07 AM
Deleting a script in an equation without deleting the whole term	allankey	Word	1	02-15-2014 07:09 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 10:42 PM.