VBA-回车

Question

这里是新的，通常在 VBA 中。我创建了一个宏，它可以复制 excel 中单元格的内容并粘贴到 word 文档中的特定位置。仅供引用，我使用 word 中的书签来选择粘贴的确切位置。问题是复制的所有内容都会插入一行和/或段落/回车符。我找到了很多可能的解决方案，但没有一个可行，因为我在 VBA 方面缺乏经验。请帮忙!

Sub OpenWord()

    Dim WordApp As Object
    Dim WordDoc As Object
    Dim R1 As Object
    Dim R2 As Object

    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open(Filename:="C:\Users\KG\Desktop\VBA WIP\FAfile.docx")
    Set R1 = WordDoc.Bookmarks("b1")
    Set R2 = WordDoc.Bookmarks("b2")

        WordApp.Visible = True
        WordApp.Activate

            Sheets("Details INPUT").Range("H4").copy
            R1.Select
            WordApp.Selection.PasteAndFormat Type:=wdFormatSurroundingFormattingWithEmphasis
            Application.CutCopyMode = True

            Sheets("Details INPUT").Range("H7").copy
            R2.Select
            WordApp.Selection.PasteAndFormat Type:=wdFormatSurroundingFormattingWithEmphasis
            Application.CutCopyMode = True


    Set WordDoc = Nothing
    Set WordApp = Nothing
    Set R1 = Nothing
    Set R2 = Nothing
End Sub

Answer 1

请尝试以下方法。对于 Excel，在使用 Word 的对象模型时，最好使用底层对象，而不是选择。除非绝对需要，否则最好避免使用剪贴板。 Word 也有一个 Range对象，这是一个有用的“目标”。

请注意，此方法将丢失 Excel 工作表中的任何格式。

如果您想使用问题中的代码进行格式设置，那么您将同时引入工作表结构:您将粘贴一个表格单元格。这可能是您认为的新行/段落。我包含的变体(参见三个“”)仅粘贴字体格式，没有 Excel 结构(相当于 UI 中的 PasteSpecial 作为 RTF)。

Sub OpenWord()

    Dim WordApp As Object
    Dim WordDoc As Object
    Dim R1 As Object
    Dim R2 As Object

    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open(Filename:="C:\Users\KG\Desktop\VBA WIP\FAfile.docx")
    Set R1 = WordDoc.Bookmarks("b1").Range
    Set R2 = WordDoc.Bookmarks("b2").Range

        WordApp.Visible = True
        'Put it at the end, before "clean up" if you want to do this
        'WordApp.Activate

    R1.Text = Sheets("Details INPUT").Range("H4").Text
    R2.Text = Sheets("Details INPUT").Range("H7").Text

    '''Sheets("Details INPUT").Range("H7").copy
    '''R2.PasteExcelTable False, False, True
    'CutCopyMode is NOT boolean, pass it either 1 or 0 or the xl-constant value!
    '''Application.CutCopyMode = xlCopy

    Set R1 = Nothing
    Set R2 = Nothing
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub