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

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

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