Question

以下是我添加非带下划线的条目

的功能

（为了简化它，还有一个函数可以执行此操作两次添加1个带下划线的字符串，然后是未加下划线的字符串）

Function Add_Single_Entry(ByVal uEntry As String, ByVal ptime As String, ByVal crntValue As String)

    uEntry = UCase( uEntry )
    Call add_tList( ptime )
    Dim rng1 As Word.Range

    ' Set Selection position however is appropriate
    Set rng1 = Selection.Range
    rng1.End = rng1.Start
    rng1.Text = uEntry
    Selection.Start = rng1.End
End Function

我需要能够将我的起点设置为crntValue的最后一个实例之后的下一行，但我不确定如何。

澄清我希望代码在Word文档中找到说“0000Z”（crntValue）的最后一个实例，然后在下一行输入一个字符串。

Answer 1

在这种情况下，宏录制器是一个很好的帮助 - 只需录制“转到最后，向上找，插入新行”并调整录制的代码。

像

这样的东西

disable()

VBA需要范围援助

1 个答案: