如何创建允许上面插入的MS-Word-Form-Region?

时间:2015-05-28 07:30:54

标签: forms vba ms-word ms-office word-vba

我想在Microsoft Word中创建一个非常动态的表单,并允许用户添加多个区域。相关数据包含按日期排序的事件。如果插入新事件,则必须显示在区域列表的顶部。

据我所知,您只能在最后一个区域下插入新区域。是否有可能更改此问题,或者我是否必须使用Word-Macros实现一个片段才能启用它?

编辑(履历 - 示例):

  • 小学 - 19xx - 19xx(我将此行称为'地区')
  • 学院 - 19xx - 19xx
  • '__' - 日期1 - 日期2(+)

所以这是按升序排序的。错误!如果我按下+ -Button,则在下面插入一个新区域。我希望实现这样的目标:

  • '__' - 日期1 - 日期2(+)
  • 学院 - 19xx - 19xx
  • 小学 - 19xx - 19xx

自动在上方插入新区域。

3 个答案:

答案 0 :(得分:0)

您是否需要在MS Word的word文档中插入文本,如下所示

https://support.microsoft.com/en-us/kb/212682?wa=wsignin1.0

答案 1 :(得分:0)

要在旧区域上方插入新区域,只需在现有区域上单击右键即可,并且"在"上方插入元素。

https://msdn.microsoft.com/EN-US/library/office/jj889465.aspx

答案 2 :(得分:0)

使用书签的VBA方法:

  1. 定义要添加新文本的书签,例如在标题之后但在其他地区之前。

  2. 添加VBA代码模块并输入以下宏:

    Option Explicit
    
    Sub AddNewLine(psText As String)
        '***** Go to bookmark
        Selection.GoTo What:=wdGoToBookmark, Name:="[NAMEOFBOOKMARK]"
        '***** Place cursor at end of bookmark
        Selection.Collapse Direction:=WdCollapseDirection.wdCollapseEnd
        '***** Add new line
        Selection.TypeParagraph
        '***** Add text or whatever
        Selection.TypeText psText
    End Sub
    
  3. 用你想要添加的whaterver替换行Selection.TypeText psText - 我的例子只是从子参数输入文本字符串。