MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Course Of The Month
9 days, 11 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
MS Word - populate fixed field
Posted on 2013-01-03
Hi,
We have a lot of different contract documents that we use for templates.
The documents contains much repeating text such as company name, contacts and so on.
Is it possible to make a fill in form that are like a sidebar sitting on the right of the main document, where a user fills in his information.
When the user fills in the fields in the form, the filled in text will auto populate the contract document.
Hope you understand.
Thanks!
We have a lot of different contract documents that we use for templates.
The documents contains much repeating text such as company name, contacts and so on.
Is it possible to make a fill in form that are like a sidebar sitting on the right of the main document, where a user fills in his information.
When the user fills in the fields in the form, the filled in text will auto populate the contract document.
Hope you understand.
Thanks!
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
6
5
11 Comments
Active today
There are several techniques that you could use.
For instance you could bookmark any text to be repeated and place Ref fields at the places that it is to be redisplayed.
You could use Form Fields or Content Controls, perhaps with the 'sub' form as a building block. It would be part of the document and not a sidebar.
The nearest that you could get to that would be as a VBA UserForm which could load text on to the document at locations defined by, say, pre-existing bookmarks.
For instance you could bookmark any text to be repeated and place Ref fields at the places that it is to be redisplayed.
You could use Form Fields or Content Controls, perhaps with the 'sub' form as a building block. It would be part of the document and not a sidebar.
The nearest that you could get to that would be as a VBA UserForm which could load text on to the document at locations defined by, say, pre-existing bookmarks.
Great thanks:)
I think it would be more user efficient to use a userform to populate the document.
Do you know of any example docs with a VBA userform that I could build it from?
Thanks!
I think it would be more user efficient to use a userform to populate the document.
Do you know of any example docs with a VBA userform that I could build it from?
Thanks!
Active today
The best approach will depend on your exact circumstance. In this one, you need to set Bookmarks in the template. Because Bookmark names must be unique, you will need to group all those expecting the same data, but differentiate between each instance. You can do this by appending a sequential number to each set of names.
E.g. CompanyName_01, CompanyName_02, CompanyName_03
The code in the Userform would then be like this:
E.g. CompanyName_01, CompanyName_02, CompanyName_03
The code in the Userform would then be like this:
Option Explicit
Private Sub CommandButton1_Click()
Dim bmk As Bookmark
For Each bmk In ActiveDocument.Bookmarks
Select Case Split(bmk.Name, "_")(0)
Case "CompanyName"
InsertTextInBookmark bmk, txtCompanyName.Text
Case "Contact"
InsertTextInBookmark bmk, txtContact.Text
Case "Address"
'...
'Case ...
End Select
Next bmk
End Sub
Sub InsertTextInBookmark(bmk As Bookmark, strText As String)
Dim rng As Range
Set rng = bmk.Range
rng.Text = strText
're-add bookmark in case it was overwritten and
'to ensure that it contains the text
rng.Document.Bookmarks.Add bmk.Name, rng
End Sub
Hi,
Thanks, I have made a userform now in my template. I arranged the textfield as I wanted it in the form. I added a 'OK' button where I added the script above with modifications on my field names.
But I have some questions, does the Case "CompanyName" reflect the field name in the userform or the bookmark name?
Here is my code so far, but it don't work, nothing happends when I push "OK" button.
Thanks, I have made a userform now in my template. I arranged the textfield as I wanted it in the form. I added a 'OK' button where I added the script above with modifications on my field names.
But I have some questions, does the Case "CompanyName" reflect the field name in the userform or the bookmark name?
Here is my code so far, but it don't work, nothing happends when I push "OK" button.
Option Explicit
Private Sub OK_Click()
Dim bmk As Bookmark
For Each bmk In ActiveDocument.Bookmarks
Select Case Split(bmk.Name, "_")(0)
Case "Radgiver10"
'Case "Radgiver10" is the name of the field in the Userform.
InsertTextInBookmark bmk, txtRådgiver.Text
'"txtRådgiver.Text" is the bookmark name.
Case "Radgiver10"
InsertTextInBookmark bmk, txtRådgiver01.Text
Case "Radgiver10"
InsertTextInBookmark bmk, txtRådgiver02.Text
Case "Oppdragsgiver10"
InsertTextInBookmark bmk, txtOppdragsgiver.Text
Case "Oppdragsgiver10"
InsertTextInBookmark bmk, txtOppdragsgiver02.Text
Case "Oppdragsgiver10"
InsertTextInBookmark bmk, txtOppdragsgiver03.Text
Case "Oppdragsgiver10"
InsertTextInBookmark bmk, txtOppdragsgiver04.Text
Case "Oppdragsgiver10"
InsertTextInBookmark bmk, txtOppdragsgiver05.Text
Case "Oppdragsgiver10"
InsertTextInBookmark bmk, txtOppdragsgiver06.Text
Case "LederFast"
InsertTextInBookmark bmk, txtStyrelederFast.Text
Case "LederTime"
InsertTextInBookmark bmk, txtStyrelederTime.Text
Case "MedlemFast"
InsertTextInBookmark bmk, txtStyremedlemFast.Text
Case "MedlemTime"
InsertTextInBookmark bmk, txtStyremedlemTime.Text
Case "RadgiverTime"
InsertTextInBookmark bmk, txtRadgiverTime.Text
End Select
Next bmk
End Sub
Sub InsertTextInBookmark(bmk As Bookmark, strText As String)
Dim rng As Range
Set rng = bmk.Range
rng.Text = strText
're-add bookmark in case it was overwritten and
'to ensure that it contains the text
rng.Document.Bookmarks.Add bmk.Name, rng
End Sub
Active today
If you have the same text to be inserted in several places, you will need to bookmark each place. You cannot use exactly the same name for more than one bookmark, but you can fill more than one bookmark from the same text box.
When a match is found in a Select Case block , the action will be done in the Case part, and the block is edited, so line 16 in you code will never be actioned. The same applies to lines 20 to 28, etc.
My suggestion is that you have bookmarks with names like "Radgiver_01", "Radgiver_02",
"Oppdragsgiver_01", "Oppdragsgiver_02", "Oppdragsgiver_03". It doesn't matter what comes after the underscore, provided that the first parts are all the same and the last parts are all different, for any given first part.
When a match is found in a Select Case block , the action will be done in the Case part, and the block is edited, so line 16 in you code will never be actioned. The same applies to lines 20 to 28, etc.
My suggestion is that you have bookmarks with names like "Radgiver_01", "Radgiver_02",
"Oppdragsgiver_01", "Oppdragsgiver_02", "Oppdragsgiver_03". It doesn't matter what comes after the underscore, provided that the first parts are all the same and the last parts are all different, for any given first part.
Private Sub OK_Click()
Dim bmk As Bookmark
For Each bmk In ActiveDocument.Bookmarks
Select Case Split(bmk.Name, "_")(0)
Case "Radgiver"
'"Radgiver" is the first part of the bookmark name on the document.
InsertTextInBookmark bmk, txtRådgiver.Text
'"txtRådgiver.Text" is the text from the text box on the user form
Case "Oppdragsgiver"
InsertTextInBookmark bmk, txtOppdragsgiver.Text
Case "LederFast" 'if there is no "_" in the bookmark name, Split(bmk.Name, "_")(0) will return the whole name
InsertTextInBookmark bmk, txtStyrelederFast.Text
Case "LederTime"
InsertTextInBookmark bmk, txtStyrelederTime.Text
Case "MedlemFast"
InsertTextInBookmark bmk, txtStyremedlemFast.Text
Case "MedlemTime"
InsertTextInBookmark bmk, txtStyremedlemTime.Text
Case "RadgiverTime"
InsertTextInBookmark bmk, txtRadgiverTime.Text
End Select
Next bmk
End Sub
Thank you very much, almost there I think, but get a error on the last line:
What does the Next bmk do?
My code is now:
Sorry for my slow learning curv. Hope we can get it working.
rng.Document.Bookmarks.Add bmk.Name, rng
What does the Next bmk do?
My code is now:
Private Sub OK_Click()
Dim bmk As Bookmark
For Each bmk In ActiveDocument.Bookmarks
Select Case Split(bmk.Name, "_")(0)
Case "Rådgiver"
'"Radgiver" is the first part of the bookmark name on the document.
InsertTextInBookmark bmk, txtRadgiver.Text
'"txtRadgiver.Text" is the text from the text box on the user form
Case "Oppdragsgiver"
InsertTextInBookmark bmk, txtOppdragsgiver.Text
'if there is no "_" in the bookmark name, Split(bmk.Name, "_")(0) will return the whole name
Case "Kontaktperson"
InsertTextInBookmark bmk, txtKontaktperson
Case "StyrelederFast"
InsertTextInBookmark bmk, txtLederFast.Text
Case "StyrelederTime"
InsertTextInBookmark bmk, txtLederTime.Text
Case "StyremedlemFast"
InsertTextInBookmark bmk, txtMedlemFast.Text
Case "StyremedlemTime"
InsertTextInBookmark bmk, txtMedlemTime.Text
Case "RådgiverTime"
InsertTextInBookmark bmk, txtRadgiverTime.Text
End Select
Next bmk
End Sub
Sub InsertTextInBookmark(bmk As Bookmark, strText As String)
Dim rng As Range
Set rng = bmk.Range
rng.Text = strText
're-add bookmark in case it was overwritten and
'to ensure that it contains the text
rng.Document.Bookmarks.Add bmk.Name, rng
End Sub
Sorry for my slow learning curv. Hope we can get it working.
Active today
What is the error message and number please?
The 'Next bmk' line matches this one:
That is an instruction to walk through each member of the 'ActiveDocument.Bookmarks'
The 'Next bmk' line matches this one:
For Each bmk In ActiveDocument.Bookmarks
That is an instruction to walk through each member of the 'ActiveDocument.Bookmarks'
Ok, I see!
I get "Run time error 5825 - object deleted" on line 37. I'll attach the document.
Mal---exchange.doc
I get "Run time error 5825 - object deleted" on line 37. I'll attach the document.
Mal---exchange.doc
Active today
There were some errors in the code, two of them were mine
Firstly, if the bookmark object has been deleted in the line
Secondly, re-adding the bookmark disturbs the bookmarks collection. The For Each depends on the collection being stable, and we have disturbed it, so that the Next bmk doesn't always work properly. The new code uses the index in the collection. This is re-calculated each time, so is more reliable.
Lastly, the text box name 'txtRådgiverTime.Text' was 'txtRadgiverTime.Text' in the code. The little circle was missing above the 'a' - I don't know the name in English, let alone Norwegian. I am sure that you will have found that error if the code had run that far.
Firstly, if the bookmark object has been deleted in the line
rng.Text = strText
Secondly, re-adding the bookmark disturbs the bookmarks collection. The For Each depends on the collection being stable, and we have disturbed it, so that the Next bmk doesn't always work properly. The new code uses the index in the collection. This is re-calculated each time, so is more reliable.
Lastly, the text box name 'txtRådgiverTime.Text' was 'txtRadgiverTime.Text' in the code. The little circle was missing above the 'a' - I don't know the name in English, let alone Norwegian. I am sure that you will have found that error if the code had run that far.
Sub OK_Click()
Dim bmk As Bookmark
Dim b As Integer
For b = 1 To ActiveDocument.Bookmarks.Count
Set bmk = ActiveDocument.Bookmarks(b)
Select Case Split(bmk.Name, "_")(0)
Case "Rådgiver"
'"Radgiver" is the first part of the bookmark name on the document.
InsertTextInBookmark bmk, txtRadgiver.Text
'"txtRadgiver.Text" is the text from the text box on the user form
Case "Oppdragsgiver"
InsertTextInBookmark bmk, txtOppdragsgiver.Text
'if there is no "_" in the bookmark name, Split(bmk.Name, "_")(0) will return the whole name
Case "Kontaktperson"
InsertTextInBookmark bmk, txtKontaktperson
Case "StyrelederFast"
InsertTextInBookmark bmk, txtLederFast.Text
Case "StyrelederTime"
InsertTextInBookmark bmk, txtLederTime.Text
Case "StyremedlemFast"
InsertTextInBookmark bmk, txtMedlemFast.Text
Case "StyremedlemTime"
InsertTextInBookmark bmk, txtMedlemTime.Text
Case "RådgiverTime"
InsertTextInBookmark bmk, txtRådgiverTime.Text ' was txtRadgiverTime.Text
End Select
Next b
End Sub
Sub InsertTextInBookmark(bmk As Bookmark, strText As String)
Dim rng As Range
Dim strName As String
strName = bmk.Name
Set rng = bmk.Range
rng.Text = strText
rng.Document.Bookmarks.Add strName, rng
End Sub
Featured Post
Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Suggested Solutions
Introduction
Authors who set out to write any sort of lengthy piece for online submission—be it a long question or comment on a technical form, an article, or a substantial blog entry—often find it useful to work up a draft in an editor other t…
I'm writing to share my clumsy experience in using this elegant tool so you can avoid every stupid mistake I made. (I leave it to the authorities to decide if this deserves a place in the Knowledge archives.) Now that I am on the other side of my l…
This Micro Tutorial well show you how to find and replace special characters in Microsoft Word. This is similar to carriage returns to convert columns of values from Microsoft Excel into comma separated lists.
In a previous video Micro Tutorial here at Experts Exchange (http://www.experts-exchange.com/videos/1358/How-to-get-a-free-trial-of-Office-365-with-the-Office-2016-desktop-applications.html), I explained how to get a free, one-month trial of Office …
- Microsoft Office
- Office 365
- Office / Productivity
- Microsoft Excel
- Microsoft Word
- *microsoft publisher, Outlook, Microsoft Access, Microsoft PowerPoint, *Office 2016
Suggested Courses
Course of the Month9 days, 11 hours left to enroll
740 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.