Microsoft Office Forums - View Single Post - [Solved] How to save Word file by field name as filename using VBA button?

dwirony · 01-23-2017, 02:19 PM

Could you provide a sample document? I need to see where the variables generate so we can create a range. For example, lets just say this is a line in your document:

"Dear customer: Your constumer number is 21523. Please refer to your request number which is 02915. These numbers will assist you in..."

Then we would use a range function like this to give a value to those:

Code:

Dim rng1 As Range, rng2 As Range, ConstumerNumber As String, RequestNumber As String
    Set rng1 = ActiveDocument.Range
    If rng1.Find.Execute(FindText:="Your constumer number is ") Then
            Set rng2 = ActiveDocument.Range(rng1.End, ActiveDocument.Range.End)
            If rng2.Find.Execute(FindText:=". Please refer to your") Then
                ConstumerNumber = ActiveDocument.Range(rng1.End, rng2.Start).Text
            End If
    End If
    Set rng1 = ActiveDocument.Range
    If rng1.Find.Execute(FindText:="request number which is ") Then
            Set rng2 = ActiveDocument.Range(rng1.End, ActiveDocument.Range.End)
            If rng2.Find.Execute(FindText:=". These numbers will assist") Then
                RequestNumber = ActiveDocument.Range(rng1.End, rng2.Start).Text
            End If
    End If