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.

macropod · #2 09-19-2016, 06:16 PM

Why would you want to pass these data to a userform instead of to the Find/Replace dialogue? Editing the data in a userform won't of itself update the document.

kirkm · #3 09-19-2016, 06:45 PM

That's most unhelpful Paul. I didn't ask the question to be queried on WHY. This is something I want to know, for a variety of reasons.

macropod · #4 09-19-2016, 06:51 PM

It seems to me you're wedded to a process, which you've told us about in a piecemeal fashion, without providing a meaningful context. You may regard the reply as unhelpful; from the bits you've deigned to share in a variety of disparate posts, I regard your approach as inefficient...

kirkm · #5 09-19-2016, 07:03 PM

No worries, but if someone else could help out, it'd be appreciated

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