find/replace from excel list to word doc not keeping original sentence case from excel list

gmaxey · #2 07-19-2024, 02:40 AM

Hello,

When you post code, it is helpful to simply post a snippet of the part that doesn't work. That way we don't have to try to recreate your entire situation (create and excel file etc.).

Try:

Code:

Sub format_scientific_names()
Dim oRng As Range
Dim strFind As String
  strFind = "Hyla cinerea"
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = strFind
    .Forward = True
    .Wrap = wdFindStop
    .MatchCase = False
    While .Execute
      oRng.Font.Italic = True
      oRng.Font.Bold = True
      oRng.Font.Color = RGB(200, 187, 0)
      oRng.Font.Name = "Times New Roman"
      oRng.Case = wdLowerCase
      oRng.Words(1).Characters(1).Case = wdUpperCase
      oRng.Collapse wdCollapseEnd
    Wend
  End With
  End Sub

Or you could simply use your Excel file "Find" phrase as the replacement text:

Code:

Sub format_scientific_names()
Dim oRng As Range
Dim strFind As String
  strFind = "Hyla cinerea"
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = strFind
    .Forward = True
    .Wrap = wdFindStop
    .MatchCase = False
    While .Execute
      oRng.Text = strFind
      oRng.Font.Italic = True
      oRng.Font.Bold = True
      oRng.Font.Color = RGB(200, 187, 0)
      oRng.Font.Name = "Times New Roman"
      oRng.Collapse wdCollapseEnd
    Wend
  End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find, Replace using Excel List	pushpi004	Word VBA	16	02-20-2024 06:50 AM
Find and Replace from Predetermined list of Text for Both Find and Replace	dminor	Word VBA	1	08-16-2022 03:40 PM
How to import list from Excel into drop-down list into word	ahw	Word VBA	43	02-28-2020 08:11 PM
Advantages of List in Excel vs List in Word?	Peace Freak	Excel	3	04-08-2017 06:15 PM
Having a Drop-down list in Word referring to an Excel list	celias	Word VBA	3	07-11-2016 11:40 PM