Question

我希望我可以直接从excel复制，但是我复制到的程序不允许这样做。

这是我到目前为止所拥有的。

Sub exceltoword()
Dim RangeToCopy As Range
Set RangeToCopy = Range("A2")
Dim WordApp As Word.Application
Set WordApp = New Word.Application
WordApp.Visible = True
Dim WordDoc As Word.Document
Set WordDoc = WordApp.Documents.Add
RangeToCopy.Copy
WordDoc.Words(1).PasteExcelTable False, False, False
ActiveDocument.Paragraphs(1).Range.Copy
Application.Wait (Now + TimeValue("0:00:001"))
WordDoc.Close
    WordApp.Quit
    Set WordDoc = Nothing
    Set WordApp = Nothing

Application.Wait (Now + TimeValue("0:00:005"))

Set RangeToCopy = Range("B2")
Set WordApp = New Word.Application
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
RangeToCopy.Copy
WordDoc.Words(1).PasteExcelTable False, False, False
Application.Wait (Now + TimeValue("0:00:001"))
ActiveDocument.Paragraphs(1).Range.Copy
Application.Wait (Now + TimeValue("0:00:001"))
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges


End Sub

Answer 1

使用Google进行的简单搜索，即如何从excel复制到word，这是我在下面找到的地方，我添加了注释，告诉您在哪里更改变量，您可以将多个表粘贴到您在word中设置的任何书签中，确保您设置参考。

在声明单词申请后，您的代码将类似于以下内容

Option Base 1'强制数组从1而不是0开始

@Override
protected void onCreate(Bundle savedInstanceState) {
    super.onCreate(savedInstanceState);
    setContentView(R.layout.activity_main3);

    if (getIntent() != null) {
        Uri imageUri = getIntent().getParcelableExtra("pickImage");
    }
 }

基本上，您将变量设置为word应用程序，在Excel工作表中定义要粘贴的数组（在实例B5中？），然后循环遍历并将数组粘贴到在word文档中设置的书签，您可以将其设置为Word文档中的任何位置。

VB脚本从Excel复制到Word，然后从Word复制到剪贴板

1 个答案: