如何用VBA在Word中取消选中文本并实现Excel数据分行导入

你遇到的问题根源是使用Selection对象赋值文本后，内容会处于选中状态，后续的MoveDown和TypeParagraph操作逻辑有误，导致前两行内容被覆盖或变成空白。以下是两种可行的解决方式：

方案一：使用Range对象（推荐，更稳定） #

直接操作Word文档的Range对象，完全避免依赖光标选中状态，能精准控制内容插入位置：

Sub ExportToWord()
    Dim selectedJournalTab As String
    Dim selectedDocumentNumber As String
    Dim selectedHeader As String
    
    selectedJournalTab = ActiveWorkbook.ActiveSheet.Range("G1").Value
    selectedDocumentNumber = ActiveWorkbook.ActiveSheet.Range("I6").Value
    selectedHeader = ActiveWorkbook.ActiveSheet.Range("D4").Value
    
    Dim wdapp As Word.Application
    Dim wddoc As Word.Document
    Set wdapp = New Word.Application
    wdapp.Visible = True
    Set wddoc = wdapp.Documents.Add ' 新建文档并赋值给变量
    
    ' 直接通过Range插入内容，自动换行
    With wddoc.Content
        .Text = selectedJournalTab & vbCrLf ' vbCrLf代表换行符
        .InsertAfter selectedDocumentNumber & vbCrLf
        .InsertAfter selectedHeader
    End With
    
    Set wddoc = Nothing
    Set wdapp = Nothing
End Sub

• 用wddoc.Content直接操作文档内容，InsertAfter会在现有内容后面追加，不会覆盖原有内容
• vbCrLf是VBA标准换行符，等同于手动按回车，能直接生成新段落

方案二：修正Selection操作逻辑 #

如果习惯使用Selection对象，调整步骤确保每次输入后光标自动移到内容末尾，取消选中状态：

Sub ExportToWordWithSelection()
    Dim selectedJournalTab As String
    Dim selectedDocumentNumber As String
    Dim selectedHeader As String
    
    selectedJournalTab = ActiveWorkbook.ActiveSheet.Range("G1").Value
    selectedDocumentNumber = ActiveWorkbook.ActiveSheet.Range("I6").Value
    selectedHeader = ActiveWorkbook.ActiveSheet.Range("D4").Value
    
    Dim wdapp As Word.Application
    Set wdapp = New Word.Application
    wdapp.Visible = True
    wdapp.Documents.Add
    
    With wdapp.Selection
        .TypeText selectedJournalTab ' 输入文本后光标自动移到末尾，无选中状态
        .TypeParagraph ' 插入新段落（换行）
        
        .TypeText selectedDocumentNumber
        .TypeParagraph
        
        .TypeText selectedHeader
    End With
    
    Set wdapp = Nothing
End Sub

• 用TypeText代替直接赋值Text，输入完成后光标自动停在文本末尾，不会保持选中
• TypeParagraph直接插入新段落，后续内容会自动在新行显示

内容的提问来源于stack exchange，提问作者xsgtangle