URL formatting + a new question

Guessed · #1 01-29-2019, 06:29 PM

to find out what ASCII code number is required to identify your bullets, select one of them and then run the following code in the VBA Immediate Window

? Asc(Selection.Text)

This will return a number which can then be used in your code Chr(xxx)

Note that your code is looking for a bullet with a space either side of it. Typically, bullets are found with a tab after them and nothing before. Check that if you are still not getting hits with that replacement.

mroatman · #2 01-30-2019, 12:28 AM

Quote:

Originally Posted by Guessed

to find out what ASCII code number is required to identify your bullets, select one of them and then run the following code in the VBA Immediate Window

Thanks Andrew. Most helpful! After spending 10 minutes figuring out how to pull up the "Immediate window" (🤦*♂️), I was able to figure out the ASCII code: 77.

Unfortunately, even with this modification (and deleting the space before and after the bullet - good tip!), my code still doesn't work. Here is the cleaned up code:

Quote:

Sub TopiaFormat()
'
' TopiaFormat Macro
'

ActiveDocument.Select
Selection.ClearFormatting

Dim Para As Paragraph, Rng As Range
For Each Para In ActiveDocument.Range.Paragraphs
With Para.Range
If .Text Like "?" & vbTab & "*" Then
Set Rng = .Duplicate
With Rng
.End = .Start + 2
.Text = vbNullString
.InsertBefore Chr(77) & vbTab
End With
End If
End With
Next

With Selection.Find
.ClearFormatting
.Text = "Chr(77)"
.Replacement.ClearFormatting
.Replacement.Text = "[*] "
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With

Dim HLnk As Hyperlink
For Each HLnk In ActiveDocument.Hyperlinks
HLnk.Range.InsertAfter "]"
Next

For Each HLnk In ActiveDocument.Hyperlinks
HLnk.Range.InsertBefore "[>" & HLnk.Address & "|"
Next

Dim oField As Field
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldHyperlink Then
oField.Unlink
End If
Next
Set oField = Nothing

ActiveDocument.Select
Selection.ClearFormatting

End Sub

The bullets disappear (good!), but there is no replacement (bad!).

In the "Customize Bulleted list" pane, my bullets are set to Indent at 0.63 cm, with a text position indented at 1.34 cm. Could this have something to do with it?

Thanks again for your help.

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
Replacing a comment with underline or other formatting (or adding that formatting to commented text)	paulkaye	Word	4	05-16-2016 05:38 AM
The Logic Behind Apply Formatting of Surrounding Text in Reveal Formatting Pane	Instructor Mark	Word	4	04-06-2016 01:32 PM
How to do a find and replace on formatting for partial word formatting.	BrianSvanvik	Word	2	09-04-2015 01:20 PM
Find and Replace, Formatting, Formatting Formula	kjxavier	Word	1	07-04-2014 09:11 AM
Formatting contents after Tab of continuous lines or formatting specific area of word	pawii	Word	1	05-12-2014 05:24 AM