将文本从 Word 复制到 Excel，同时保持格式（使用 .typetext）

Question

我正在尝试将 excel 电子表格中的问题和响应数据复制到 Word 文档中。我有一个宏可以通过使用 .typetext 指令来显示所有文本，但是这会导致上标和下标文本作为标准文本显示。

这是我正在使用的示例电子表格：

下面可以看到复制到Word文档时，上标文字已经转为普通文字：

这是我的 VBA 宏：

Sub CopyFromExcelToWord()

    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim myIndex As Integer
    Dim questionNumber As Integer
    Dim lastRow As Long

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' this figures out the last used row by counting backwards (up) from the bottom until it finds some data
    questionNumber = 1
   
     ' create a new word application and word document
    On Error Resume Next
    Set wrdApp = GetObject(, "Word.Application")
    On Error GoTo 0
    If wrdApp Is Nothing Then
        Set wrdApp = CreateObject("Word.Application")
    End If
    wrdApp.Visible = True
    
    Set wrdDoc = wrdApp.Documents.Add ' create a new document
        
    ' insert the question and response data
    For myIndex = 2 To lastRow
        With wrdDoc.ActiveWindow.Selection
            .TypeText questionNumber & ". " & Range("A" & myIndex).Value    ' insert the question number and question text
            .TypeParagraph  ' insert a new paragraph ready for the responses
            
            .TypeText "a) " & Range("B" & myIndex).Value & Chr(11)  ' insert the first response data and goto a new line
            .TypeText "b) " & Range("C" & myIndex).Value & Chr(11)  ' insert the second response data and goto a new line
            .TypeText "c) " & Range("D" & myIndex).Value & Chr(11)  ' insert the third response data and goto a new line
            .TypeParagraph
            questionNumber = questionNumber + 1
        End With
    Next
    
    ' Save the word document into the WordExport Folder
    wrdDoc.SaveAs "c:\Data\testDocument.docx", FileFormat:=12 'wdFormatXMLDocument
    wrdDoc.Close ' close the document
    
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub

有人可以提供一些提示，告诉我如何让这个宏正确显示上标和下标文本吗？

Answer 1

您不能在使用 .TypeText 时保留字符格式；你需要为此雇用 copy/paste。

将文本从 Word 复制到 Excel，同时保持格式（使用 .typetext）

Copying text from Word to Excel while keeping the formatting (using .typetext)

excel

vba

ms-word