Simple issue: formatting mroe than one text just using one module

syl3786 · #1 10-12-2023, 07:20 AM

Hi all,

I want to use just one module to format more than one text. How to do that?

For instance, I want to italicise the text "et al" and "apple". But i am stupid to use two modules to italicise them separately.

Below please find the code:

Code:

Sub formatting()


  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting

  Selection.Find.Replacement.Font.Italic = True
  With Selection.Find
    .Text = "et al"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll


Call Apple


End Sub


Sub Apple()


  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting

  Selection.Find.Replacement.Font.Italic = True
  With Selection.Find
    .Text = "Apple"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll

End Sub

May I ask how to use just one module to italicise the text "et al" and "apple"?

Thank you.

vivka · #2 10-12-2023, 09:04 AM

Hi, try this:

Code:

Sub formatting()

  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  Selection.Find.Replacement.Font.Italic = True
  With Selection.Find
    .Text = "et al"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
    .Text = "Apple"
    .Execute Replace:=wdReplaceAll
  End With
End Sub

syl3786 · #3 10-13-2023, 03:18 AM

Quote:

Originally Posted by vivka

Hi, try this:

Code:

Sub formatting()

  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  Selection.Find.Replacement.Font.Italic = True
  With Selection.Find
    .Text = "et al"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
    .Text = "Apple"
    .Execute Replace:=wdReplaceAll
  End With
End Sub

It works well! Many thanks for your help!

vivka · #4 10-13-2023, 08:47 AM

I'm glad that you are glad!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Standard Module, Class Module and UserForm	jpl	Word VBA	0	03-14-2022 07:20 AM
So simple, it may be hard to explain... (mouse issue)	Jonesey	Excel	1	07-03-2020 11:30 AM
Restrict Formatting Issue - pasted text changes page size	bclear16	Word	6	08-22-2016 11:31 PM
Word Formatting Issue: Space above text when linked to Excel	JDHeisenberg	Word	3	08-19-2016 05:34 AM
AZWizard Module - ?hidden module	pcaldwell	Word	1	08-22-2012 01:19 PM