Question

有人可以帮我解决以下问题吗？我尝试自己创建它，但我所能做的就是打开一个txt并用静态字替换一个静态字。

VBA脚本：

打开并阅读ThisVbaPath.WordsToUse.txt的第一行

在ThisVbaPath.BaseDoc.docx（或txt）中打开并查找USER_INPUT

将所有出现的USER_INPUT替换为WordsToUse.txt

中的第一行

将BaseDoc.docx保存为BaseDoc＆amp; First_Line.docx

关闭所有

转到下一行并执行相同操作，但不要求用户输入，请使用上一行

如果出现错误

完成后显示是否有任何错误（我猜不太可能）

我会每周使用150左右的线。

谢谢！

Answer 1

我认为这样的事情应该有用吗？

Sub test()

  Dim text, textReplace, findMe As String

  findMe = InputBox("What Text To Find?")
  Open "C:\Excel Scripts\test.txt" For Input As #1
  Open "C:\Excel Scripts\test2.txt" For Input As #2
  Open "C:\Excel Scripts\output.txt" For Output As #3

  While Not EOF(1)
    Line Input #1, text
      While Not EOF(2)
        Line Input #2, textReplace
        Write #3, Replace(text, findMe, textReplace)
      Wend
  Wend

  Close #1
  Close #2
  Close #3


End Sub

Answer 2

var request = require('request');
var Q = require('q');

methods.testcall = function (url) {
  return request(url, function (error, response, body) {
    // 
  });
};

Q.allSettled([
  method.testcall('http://'),
  method.testcall('http://')
]).done(function (results) {
  results.forEach(function (result) {
    //
  });
});

VBA：替换每行的txt文本并另存为

2 个答案: