Trouble converting a sub to function, incl. passing argument and nixing Selection

Guessed · #2 08-18-2021, 01:16 AM

Range and String are two different data types. There is no point in passing a string to the function since the .Case won't work on a string but it does work on a range.

Functions differ from Subs in that they usually return a value - that isn't necessary in this case as we are passing a range and the function is changing the value of the text in the range.

Code:

Sub Test_PassToFunction()
  Dim rngTitle As Range
  
  Set rngTitle = ActiveDocument.Words(1)
  rngTitle.Text = "SECTION 00 00 00 - THIS IS THE TITLE OF THE SECTION"    ' (The string actually a variable coming from another macro.)
  MakeTitleCase rngTitle
End Sub

Sub MakeTitleCase (rng As Range)
  ' Modified from Allen Wyatt  https://word.tips.net/T000215_Intelligent_Title_Case.html
  Dim lclist As String, iWord As Integer, sTest As String

  lclist = " of the by to this is from a "    ' List of lowercase words, surrounded by spaces
  rng.Case = wdTitleWord                      ' Make Camel Case

  For iWord = 2 To rng.Words.Count
    sTest = " " & LCase(Trim(rng.Words(iWord))) & " "
    If InStr(lclist, sTest) Then
      rng.Words(iWord).Case = wdLowerCase
    End If
  Next iWord
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Having trouble creating a multiple selection drop down list, even after checking other threads	sbelinski	Word VBA	1	12-14-2020 03:33 PM
Help wanted passing data to Form	kirkm	Word VBA	4	09-19-2016 07:03 PM
trouble with pdf doc after converting to word..	tom356	Word	3	09-11-2016 08:23 AM
passing variable from one sub to another	gbrew584	Excel Programming	10	03-21-2016 12:06 AM
userform help (having trouble passing info from form to macro)	cyraxote	Word VBA	16	09-08-2015 04:16 AM