Help wanted passing data to Form

kirkm · #1 09-19-2016, 05:58 PM

Code:

Sub ShowPara()
Dim oPara As Paragraph, sText As String, oRng As Range
    For Each oPara In ActiveDocument.Paragraphs
        If oPara.Range.Bold = True Then
            If Not oPara.Range.End = ActiveDocument.Range.End Then
                Set oRng = oPara.Range.Next.Paragraphs(1).Range
                If oRng.Bold = False Then
                    sText = oRng.Text
                    oRng.Select
                    XXXX
                End If
            End If
        End If
    Next oPara
lbl_Exit:
    Exit Sub
End Sub

Using the above code at point XXXX I want
Userform1.Show

and need to pass oRng.text and Opara.Range.Text to the Form (so I can edit them at the Form).

Thanks for any help.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
passing variable from one sub to another	gbrew584	Excel Programming	10	03-21-2016 12:06 AM
userform help (having trouble passing info from form to macro)	cyraxote	Word VBA	16	09-08-2015 04:16 AM
designing a custom outlook form - this form is for only sending mails nt collect data	balamuralibm	Outlook	0	05-21-2014 08:08 AM
Wanted: Printable List of Built-in Word styles	sbianco	Word	4	07-21-2012 02:29 PM
New Page - When Not Wanted	pgrant	Word	2	06-07-2012 02:42 PM