Saving Changes in form...

[Guus van Waardenburg]

Hi,

I've made a form where collegues can select clauses for a certain document.

In this form I have a listbox where they can select a Clause and two
textboxes where in one apears the title of the clause and in the other
appears the text of the clause.
My Colleagues can modify the text.

Now sometimes there are changes in the text wich are permanent, it would be
nice for them when they can save te changes in the text to the code I
produced. Is this posible in any way? Here is some code wich I used:

Private Sub ListBox1_Change()
Dim sClause As String
sClause = ListBox1.Value
Select Case sClause
Case "Clause1"
TextBox1.Value = "Title Clause"
TextBox2.Value = "Text Clause"

 

[Ulf Nilsson]

Hi,
Try using Document Properties:
http://word.mvps.org/faqs/macrosvba/MixedDocProps.htm

You can also search for: "variables" in this forum.

/ Ulf

 

[Guus van Waardenburg]

Thanks for your reply. But I'm not sure if this is what I mean.

What I want is that the user can change te contents of my code with a button

 

[Cindy M -WordMVP-]

Hi Guusvan,

What I want is that the user can change te contents of my code with a button
on the form they use.....

In this case, it would be better to store this information outside your code,
in a separate file. Your code would load the information from the file, rather
than it being part of the code.

This could be an Excel file, a delimited text file, a Word table, an Access
database...

I've made a form where collegues can select clauses for a certain document.

In this form I have a listbox where they can select a Clause and two
textboxes where in one apears the title of the clause and in the other
appears the text of the clause.
My Colleagues can modify the text.

Now sometimes there are changes in the text wich are permanent, it would be
nice for them when they can save te changes in the text to the code I
produced. Is this posible in any way? Here is some code wich I used:

Private Sub ListBox1_Change()
Dim sClause As String
sClause = ListBox1.Value
Select Case sClause
Case "Clause1"
TextBox1.Value = "Title Clause"
TextBox2.Value = "Text Clause"

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail