Find and replace underlined words for a blank.
Closed
silkysmooth
Posts
1
Registration date
Thursday December 20, 2012
Status
Member
Last seen
December 20, 2012
-
Dec 20, 2012 at 01:06 PM
rizvisa1 Posts 4479 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Dec 20, 2012 at 08:15 PM
rizvisa1 Posts 4479 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Dec 20, 2012 at 08:15 PM
Related:
- Which is the best replacement for the underlined word?
- Word free for u - Guide
- Vim search for word - Guide
- Pdf extension for word - Download - Other
- Word viewer - Download - Office suites
- Number to text in word - Guide
2 replies
Ambucias
Posts
47357
Registration date
Monday February 1, 2010
Status
Moderator
Last seen
February 15, 2023
11,202
Dec 20, 2012 at 04:56 PM
Dec 20, 2012 at 04:56 PM
Greetings,
Sorry but Power Point does not have a text editor.
You could however copy the slide with just the underline and make a new slide with for instance, just the first word and so on.
In your presentation, you would see this
Slide one:
Find the missing words
A true ____ sticks with you thru good and ____ times.
Slide two
A true friend sticks with you thru good and ____ times.
Slide three
A true friend sticks with you thru good and bad times.
There are all kinds of effects you can add.
Good luck and God bless.
P.S. What is the pastor pastoring ? (What church ?)
Sorry but Power Point does not have a text editor.
You could however copy the slide with just the underline and make a new slide with for instance, just the first word and so on.
In your presentation, you would see this
Slide one:
Find the missing words
A true ____ sticks with you thru good and ____ times.
Slide two
A true friend sticks with you thru good and ____ times.
Slide three
A true friend sticks with you thru good and bad times.
There are all kinds of effects you can add.
Good luck and God bless.
P.S. What is the pastor pastoring ? (What church ?)
rizvisa1
Posts
4479
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
767
Dec 20, 2012 at 08:15 PM
Dec 20, 2012 at 08:15 PM
Try this.
Option Explicit Sub replaceUnderLineWithSpace() Dim sld As Slide Dim sh As Shape Dim startPos As Long Dim shapeText As String For Each sld In ActivePresentation.Slides For Each sh In sld.Shapes If sh.HasTextFrame Then If sh.TextFrame.HasText Then startPos = 1 shapeText = sh.TextFrame.TextRange.Text Do With sh.TextFrame.TextRange.Characters(Start:=startPos, Length:=1) If (.Font.Underline = msoTrue) Then .Text = " " End If End With startPos = 1 + startPos Loop While (startPos < Len(shapeText)) End If End If Next Next End Sub