多个复选框用于插入文本

时间:2016-05-25 18:50:00

标签: vba word-vba

我正在制作用户表单,将各种信息输入到一封信中。用户表单的一部分是五个复选框。基于复选框的不同组合,我想插入不同的文本行。我可以用很多If语句来做,但我想有一个更好,更有效的方法来检查哪些盒子被检查,哪些盒子不是。也许有阵列?我还在学习,并不完全确定如何完成阵列/稍后使用这些信息。感谢任何帮助,我可以提供可能需要的任何其他信息。

我希望得到像

这样的东西
ifb = true
sop = false
plans = false

将插入"邀请出价小册子。"

ifb = false
sop = true
plans = true

将插入"价格和合同计划表。"

ifb = true
sop = true
plans = true

将插入"招标小册子,价格表和合约计划。"

这是我现在拥有的If语句,在我涵盖每个场景之前必须继续。

If inputIFBSectHeader.Value = True & inputSOPSectHeader.Value = False & _
        inputPlansSectHeader.Value = False & inputPenSectHeader.Value = False & _
        inputCQSectHeader.Value = False Then
    With ActiveDocument.Bookmarks("modifications").Range.InsertBefore "Invitation for Bids booklet."
    End With
End If

我知道我的插入部分有问题,但这也让我觉得必须有一种更容易/更有效的方法。

1 个答案:

答案 0 :(得分:0)

在@CindyMeister的帮助下,我完成了我所需要的。这就是我想出来的。

val people = sc.textFile("examples/src/main/resources/people.txt").map(_.split(",")).map(p => Person(p(0), p(1).trim.toInt)).toDF()