将字符串插入文本文件中的特定行

Question

我有一个在行中带有字符串的Excel工作表。 我有一个txt文件。 我已经有想要插入字符串的特定行数。

但是当我使用“ write”时，它将全部删除，然后插入字符串。

如何在文本文件的特定行中插入字符串？我将使用循环来打开和关闭所有txt文件。

该代码有效。只需将字符串放在txt文件中。 注释是希伯来语。

Content

Answer 1

不确定您尝试了什么代码。如果包含您的代码，将会更容易。

您可以尝试使用：

If Application.Options.Overtype Then
        Application.Options.Overtype = False
    End If

如果您尝试在文档末尾添加一行，则可以使用以下代码：

Function WordAddEnd()
   Dim objWord As Object, objDoc As Object, objSelection As Object
   Dim endpoint As Integer, moveit As Integer
   Dim FileString As String


endpoint = 6
moveit = 0
FileString = "C:\location\folder\document.docx"
Set objWord = CreateObject("Word.Application")
Onerror resumenext   
'change error handling

Set objDoc = objWord.documents.Open(FileString)

Set objSelection = objWord.Selection

With objSelection
    .EndKey endpoint, moveit
'finds end point of document

    .typeparagraph     
'goes to next line (like pressing the enter key)

    .TypeText ("It's some text you wanted")
'your text here

End With
objWord.documents.Close

End Function

如果相关文档已打开，将出现错误，因此您需要在此处进行一些错误处理。