Format text based on Tag

Guessed · #1 04-23-2020, 08:36 PM

The most obvious error would be the Paragraph styles not existing. Since you are opening a txt file it will contain only built-in stylenames and the styles you are trying to apply are not built-in names.

So your macro should either create those styles or import them from a template that does contain them. I've added a line to import the styles from the attached template - this will be Normal.dotm unless you have configure the attached template differently.

You don't need wildcards if the styles are Paragraph styles - the entire paragraph will get the style if you apply it this way.

Code:

Sub TextChanger()
  Dim arrFind() As String, i As Long
  
  'Application.ScreenUpdating = False
  ActiveDocument.UpdateStyles     'import styles from attached template
  arrFind = Split("ALB,TRI,QIU,FSF", ",")
  
  With ActiveDocument.Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .Format = True
    .Wrap = wdFindContinue
    .MatchWildcards = False
    For i = LBound(arrFind) To UBound(arrFind)
      .Text = "@" & arrFind(i)
      .Replacement.Style = arrFind(i)
      .Execute Replace:=wdReplaceAll
    Next i
  End With
  'Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Format cell and add a comment based on another tab	Catluvr	Excel Programming	8	08-03-2018 09:54 AM
Format Multiple Textboxes Based On the Contents of One Text Box	dmcgettigan	Word VBA	1	02-27-2017 08:50 PM
Format Text based on use elsewhere	Rtowey	Excel	1	07-21-2015 06:05 AM