DreamViews Word Macro

Public Function RemoveSpaces(original) As String

RemoveSpaces = Replace(original, " ", "+")

End Function

Public Function GetProfileName(original) As String

If original = "Dreamer" Then
    GetProfileName = "~+dreamer+~"
Else
    GetProfileName = RemoveSpaces(original)
End If

End Function

Public Function MakeReplacement(original) As String

Dim profileName As String
profileName = GetProfileName(original)

'[b][url=<stuff>]CanisLucidus[/url][/b]
Dim altered As String
altered = "[b][url=http://www.dreamviews.com/members/" & profileName & "]" & original & "[/url][/b]"
MakeReplacement = altered

End Function

Sub FindAndReplaceFirstStoryOfEachType()

Dim replacements As Variant
replacements = Array( _
    "Dreamer", _
    "Original Poster", _
    "Dark_Merlin", _
    "DUMMY" _
)

Dim myStoryRange As Range
Dim currentReplacement As Variant

For Each currentReplacement In replacements
    For Each myStoryRange In ActiveDocument.StoryRanges
        With myStoryRange.Find
            .Text = "$$" & currentReplacement
            .replacement.Text = MakeReplacement(currentReplacement)
            .Wrap = wdFindContinue
            .Execute Replace:=wdReplaceAll
        End With
    Next myStoryRange
Next currentReplacement

For Each myStoryRange In ActiveDocument.StoryRanges
    With myStoryRange.Find
        .Text = "$$(<*>)"
        .replacement.Text = "[b][url=http://www.dreamviews.com/members/\1]\1[/url][/b]"
        .Wrap = wdFindContinue
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
Next myStoryRange

End Sub