Looking for Macro

Guessed · #1 02-01-2024, 07:22 PM

Here is a quick and dirty method to add the TC fields. It is somewhat flawed in using Selection objects because I can't immediately see why range won't work and couldn't be bothered figuring it out. You will have problems if there are instances of MyStyle spanning multiple paragraphs.

Code:

Sub aaa()
  Dim aFN As Footnote, aRng As Range, aRngRef As Range, sCode As String, aFld As Field
  Set aRng = Selection.Range.Sections(1).Range
  With aRng.Find
    .ClearFormatting
    .Text = ""
    .Style = "MyStyle"
    Do While .Execute
      sCode = "TC """ & aRng.Text & """ \l 1 "
      aRng.Collapse wdCollapseEnd
      Set aFld = ActiveDocument.Fields.Add(Range:=aRng, Text:=sCode)
      aFld.Select
      Selection.Font.Reset
      aRng.Start = Selection.Range.End
      aRng.End = aRng.Sections(1).Range.End
    Loop
  End With
End Sub

RRB · #2 02-01-2024, 08:12 PM

Works great!
Forever thankful!

RRB · #3 02-06-2024, 08:17 AM

I feel guilty for bothering you so much...
Could we get a macro that does simply two things:
1. format selected text with the style "MyStyle" ''I am gonna need this for later
2. Takes that text and inserts it into a TC field as level 3 ad {tc (text of selection) l 3} formatted with my myStyle and the original text is erased.

Thank you so much

Susan

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Perfect macro not working when its code is inserted in larger macro	RobiNew	Word VBA	3	10-18-2023 03:19 AM
Macro to Remove Paras with Line Spac 6; Macro to Convert Paragraphs to Outline Numbered	venganewt	Word VBA	0	01-25-2022 06:28 PM
Footnote extraction macro [Why is this macro so slow? / anyway to make it faster?]	Le_Blanc	Word VBA	10	03-22-2021 11:38 AM
Spell check macro within macro button field doesn't work in one document	samuelle	Word VBA	0	07-20-2016 02:27 AM
Macro Question: Need help making a macro to highlight the first word in every sentence	LadyAna	Word	1	12-06-2014 10:39 PM