Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.tables
|
|||
|
|||
Form rows with CheckBoxes
We have a template that contains a table of rows (single column). At the
beginning of each row is a checkbox. When a new contract is entered, the form template is opened, client name and file # entered an then saved under the clients name. As the contract is worked this form is re-opened and the various applicable table rows are checked. When done, the user runs a macro to close up all unchecked rows. This works, but results in multiple unchecked rows looking like thin or not so thin gray lines. Any suggestions?? TIA -- Gus Evans |
#2
Posted to microsoft.public.word.tables
|
|||
|
|||
Form rows with CheckBoxes
Delete the unwanted rows?
"GusEvans" wrote in message ... We have a template that contains a table of rows (single column). At the beginning of each row is a checkbox. When a new contract is entered, the form template is opened, client name and file # entered an then saved under the clients name. As the contract is worked this form is re-opened and the various applicable table rows are checked. When done, the user runs a macro to close up all unchecked rows. This works, but results in multiple unchecked rows looking like thin or not so thin gray lines. Any suggestions?? TIA -- Gus Evans |
#3
Posted to microsoft.public.word.tables
|
|||
|
|||
Form rows with CheckBoxes
Jezebel-
The user wants to check various comments and save them, but to, in the future, open all rows and re-set the checkmarks to modify the amendment to the contract. Then compress unused rows and re-save it. I have written the code to do both. Forgot to mention - their are 2 columns in the table - 1 narrow one for just Checkboxes and 1 wide one for the comments, fields and other checkboxes. -- Gus Evans "Jezebel" wrote: Delete the unwanted rows? |
#4
Posted to microsoft.public.word.tables
|
|||
|
|||
Form rows with CheckBoxes
Use plain text instead of a table, then format the unwanted lines as hidden.
Use a hanging indent for the comment 'column'. "GusEvans" wrote in message ... Jezebel- The user wants to check various comments and save them, but to, in the future, open all rows and re-set the checkmarks to modify the amendment to the contract. Then compress unused rows and re-save it. I have written the code to do both. Forgot to mention - their are 2 columns in the table - 1 narrow one for just Checkboxes and 1 wide one for the comments, fields and other checkboxes. -- Gus Evans "Jezebel" wrote: Delete the unwanted rows? |
#5
Posted to microsoft.public.word.tables
|
|||
|
|||
Form rows with CheckBoxes
Jezebel-
The user already has a couple of hundred already done - all I need to know is if there is anyway to effectively compress the unchecked ones with little or no indication. So far I am using the following code to do it - Sub CloseUnChecked() Dim intX As Integer Dim strRow As String Dim vCB As CheckBox Application.ScreenUpdating = False If ActiveDocument.ProtectionType wdNoProtection Then ActiveDocument.Unprotect Password:=strPassword End If For intX = 1 To 26 strRow = "chkRow" & intX Set vCB = ActiveDocument.FormFields(strRow).CheckBox If vCB.Value = False Then With vCB .AutoSize = True .Size = 1 End With ActiveDocument.Tables(1).Rows(intX).Select With ActiveDocument.Tables(1).Rows(intX) .HeightRule = wdRowHeightExactly .Height = 1 End With End If Next ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:=strPassword End Sub -- Gus Evans "Jezebel" wrote: Use plain text instead of a table, then format the unwanted lines as hidden. Use a hanging indent for the comment 'column'. |
#6
Posted to microsoft.public.word.tables
|
|||
|
|||
Form rows with CheckBoxes
Gus,
As Jezebel has suggested. Why don't you just delete the rows instead of trying to squish them up. Try: Sub DeleteUnChecked() Dim pRowIndex As Long Dim pRows As Word.Rows Application.ScreenUpdating = False If ActiveDocument.ProtectionType wdNoProtection Then ActiveDocument.Unprotect End If Set pRows = ActiveDocument.Tables(1).Rows For pRowIndex = pRows.Count To 1 Step -1 If pRows(pRowIndex).Range.FormFields(1).CheckBox.Valu e = False Then pRows(pRowIndex).Delete End If Next ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True End Sub |
#7
Posted to microsoft.public.word.tables
|
|||
|
|||
Form rows with CheckBoxes
Gus,
I'm ready. Go ahead and say it: "Read the whole question stupid." Sorry All I can suggest is maybe continuing your current process to squish the rows even more and set the borders to nothing. Here is a bit of code that I sometimes use to show/hide text in a table: Dim bGrid As Boolean Application.ScreenUpdating = False With ActiveDocument.Tables(1) With .Rows(1) If .HeightRule = wdRowHeightExactly Then .HeightRule = wdRowHeightAuto CommandButton1.Caption = "Hide details" .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle .Borders(wdBorderRight).LineStyle = wdLineStyleSingle .Borders(wdBorderTop).LineStyle = wdLineStyleSingle Else .HeightRule = wdRowHeightExactly .Height = ".05" CommandButton1.Caption = "Show details" .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone End If End With End With Application.ScreenUpdating = True |
#8
Posted to microsoft.public.word.tables
|
|||
|
|||
Form rows with CheckBoxes
You've already established that your method doesn't work acceptably. So your
choices are live with it, or do something else. Unless you are particularly in love with the dead horse? "GusEvans" wrote in message ... Jezebel- The user already has a couple of hundred already done - all I need to know is if there is anyway to effectively compress the unchecked ones with little or no indication. So far I am using the following code to do it - Sub CloseUnChecked() Dim intX As Integer Dim strRow As String Dim vCB As CheckBox Application.ScreenUpdating = False If ActiveDocument.ProtectionType wdNoProtection Then ActiveDocument.Unprotect Password:=strPassword End If For intX = 1 To 26 strRow = "chkRow" & intX Set vCB = ActiveDocument.FormFields(strRow).CheckBox If vCB.Value = False Then With vCB .AutoSize = True .Size = 1 End With ActiveDocument.Tables(1).Rows(intX).Select With ActiveDocument.Tables(1).Rows(intX) .HeightRule = wdRowHeightExactly .Height = 1 End With End If Next ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:=strPassword End Sub -- Gus Evans "Jezebel" wrote: Use plain text instead of a table, then format the unwanted lines as hidden. Use a hanging indent for the comment 'column'. |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can Hyperlinks and checkboxes work in the same form template? | Microsoft Word Help | |||
Add checkboxes with macro in Merge document? | Tables | |||
If..then..else not showing form checkboxes | Microsoft Word Help | |||
Creating a form with fill-ins can you use checkboxes? | Microsoft Word Help | |||
How to use checkboxes in an unprotected form? | Microsoft Word Help |