从excel VBA转到word doc中的特定行

Posted 2021-05-01

我正在编写一个宏，它将excel文件中的图形粘贴到word中。

Worksheets(worksheetname).Activate
ActiveSheet.ChartObjects(chartname).Activate
Selection.Cut
mydoc.Activate

与工作表名称等正确声明和定义。

我不知道如何从excel VBA中引用word文档中的一行。我在文档中引用了一行，我可以粘贴它。

编辑：为了澄清，我可以粘贴到单词中的段落。我希望指定比段落开头更好的位置：在特定行中，或指定段落的结尾。 /编辑

我唯一的想法是：

Rng = mydoc.Range(doc.Paragraphs(1).Start, mydoc.Paragraphs(1).End - 1).paste

但我认为这是单词式VBA，似乎不起作用。

干杯!

答案

这有用吗？

Dim r As Range
Set r = d.Paragraphs(i).Range
r.Start = r.End
r.Paste

另一答案

我发现了我自己的解决方案，我觉得它很有效。

它实际上是在文档中查找第一个单词，然后查找您想要的行数。

Sub LineSelection()

    Dim WordApp As Object

    Set WordApp = GetObject(, "Word.Application")
    WordApp.Visible = True

    ActiveDocument.Content.Select

    With Word.Selection.Find
        .ClearFormatting
        .Text = "[Type very first word of the Word Document here]"
    End With

    If Word.Selection.Find.Execute Then
        Word.Selection.Select
        Word.Selection.Goto What:=wdGoToLine, Which:=wdGoToNext, Count:=3
        ''instead of [3] type the line you want to go to       >>>     ^^^
    End If

End Sub

希望您觉得这个解决方案很有用

对不起，我可能会迟到2。5年;）