The macro should very simple I think.
If Check1 is checked then string = string + Check1. I get the name Check1 from the Check1.bmp at the bottom of my thread and I think that this is the variable name.
When I have added all the checkboxes to the string then I would like the string to be inserted into my open form document. Since I have now knowledge of what or how I will get this done if you have a better way then please enlighten me.
This is just an example that I have put together and it does not seem to work this way.
Example:
Sub Try()
Dim InText As String
Dim OutText As String
Do While Not EOF
If Check1 = True Then Replace(InText, InText, + Check1)
If Check1 = True Then Replace(InText, InText, + Check2)
If Check2 = True Then Replace(InText, InText, + Check3)
If Check3 = True Then Replace(InText, InText, + Check4)
If Check4 = True Then Replace(InText, InText, + Check5)
OutText.InTex.ActiveDocument
End If
Loop
End Sub
If Check1 is checked then string = string + Check1. I get the name Check1 from the Check1.bmp at the bottom of my thread and I think that this is the variable name.
When I have added all the checkboxes to the string then I would like the string to be inserted into my open form document. Since I have now knowledge of what or how I will get this done if you have a better way then please enlighten me.
This is just an example that I have put together and it does not seem to work this way.
Example:
Sub Try()
Dim InText As String
Dim OutText As String
Do While Not EOF
If Check1 = True Then Replace(InText, InText, + Check1)
If Check1 = True Then Replace(InText, InText, + Check2)
If Check2 = True Then Replace(InText, InText, + Check3)
If Check3 = True Then Replace(InText, InText, + Check4)
If Check4 = True Then Replace(InText, InText, + Check5)
OutText.InTex.ActiveDocument
End If
Loop
End Sub
Attachments
Last edited: