如何创建允许上方插入的 MS-Word-Form-Region?
How to create a MS-Word-Form-Region which allows above-insertion?
我想在 Microsoft Word 中创建一个非常动态的表单,使用户能够添加多个区域。相关数据包含按后代排序的特定于日期的事件。如果您插入一个新事件,它必须出现在区域列表的顶部。
据我所知,您只能在上一个区域下插入新区域。是否有可能更改此设置,或者我是否必须使用 Word-Macros 实现一个片段才能启用它?
编辑(简历 - 示例):
- Primary School - 19xx - 19xx(我会称这条线为 'region')
- 大学 - 19xx - 19xx
- '__' - 日期 1 - 日期 2 (+)
所以这是按升序排列的。错误的!如果我按下 + 按钮,一个新区域将插入下方。我想实现这样的目标:
- '__' - 日期 1 - 日期 2 (+)
- 大学 - 19xx - 19xx
- 小学 - 19xx - 19xx
上面自动插入了一个新区域。
您是否需要在 MS Word 中的 word 文档中插入文本,例如,
要在旧区域上方插入新区域,只需在现有区域上单击鼠标右键,然后 "Insert element above"。
https://msdn.microsoft.com/EN-US/library/office/jj889465.aspx
VBA 使用书签的方法:
定义要添加新文本的书签,例如在 header 之后但在其他区域之前。
添加一个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
将行 Selection.TypeText psText
替换为您要添加的任何内容 - 我的示例只是从子参数输入 text-string。
我想在 Microsoft Word 中创建一个非常动态的表单,使用户能够添加多个区域。相关数据包含按后代排序的特定于日期的事件。如果您插入一个新事件,它必须出现在区域列表的顶部。
据我所知,您只能在上一个区域下插入新区域。是否有可能更改此设置,或者我是否必须使用 Word-Macros 实现一个片段才能启用它?
编辑(简历 - 示例):
- Primary School - 19xx - 19xx(我会称这条线为 'region')
- 大学 - 19xx - 19xx
- '__' - 日期 1 - 日期 2 (+)
所以这是按升序排列的。错误的!如果我按下 + 按钮,一个新区域将插入下方。我想实现这样的目标:
- '__' - 日期 1 - 日期 2 (+)
- 大学 - 19xx - 19xx
- 小学 - 19xx - 19xx
上面自动插入了一个新区域。
您是否需要在 MS Word 中的 word 文档中插入文本,例如,
要在旧区域上方插入新区域,只需在现有区域上单击鼠标右键,然后 "Insert element above"。
https://msdn.microsoft.com/EN-US/library/office/jj889465.aspx
VBA 使用书签的方法:
定义要添加新文本的书签,例如在 header 之后但在其他区域之前。
添加一个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
将行
Selection.TypeText psText
替换为您要添加的任何内容 - 我的示例只是从子参数输入 text-string。