单元格格式有许多部分，但以下几个部分可帮助您入门：

Dim rng As Excel.Range
Set rng = oWB.Worksheets(strSelectedSheet).Range(strStemLocation)
With Selection
    .Text = rng.Text
    .Font.Bold = rng.Font.Bold
    .Font.Color = rng.Font.Color
End With

注意：使用range对象的Text属性获取格式化版本;使用Value来获取未格式化的版本。还要注意范围对象（rng）应该是单个单元格。

此示例过程创建一个新的Word文档，并添加活动Excel工作表中每个单元格的内容，同时保留（部分）格式：

Sub ExportToWord_Example2()
    Dim WordApp As Word.Application
    Dim doc As Word.Document
    Dim rng As Range

    Set WordApp = CreateObject("Word.Application")
    With WordApp
        .Visible = True
        Set doc = .Documents.Add
    End With
    For Each rng In ActiveSheet.UsedRange
        With doc.Paragraphs(doc.Paragraphs.Count).Range
            .Text = rng.Text
            .Font.Bold = rng.Font.Bold
            .Font.Color = rng.Font.Color
        End With
        doc.Range.InsertParagraphAfter
    Next rng
End Sub

所以你有一个单元格，你想把它的内容复制到一个单词中，医生？
我会做：

Cells(currentRow, currentCol).Copy
.Cell(2,1).Range.PasteAndFormat (wdFormatOriginalFormatting)

这将完全复制文本，因为它是原来的..字体，粗体，颜色等。
提醒：
单元格= Excel电子表格中的单元格
.Cell = Word文档中要粘贴到的单元格
但是，如果您想将字体修改为Arial，以更好地匹配WordDoc的其余部分，但仍保留原始颜色和粗体等（如果存在），只需添加：

.Cell(2,1)Range.Font.Name ("Arial")

你可以做同样的任何其他字体属性，如大小等关键是使这些变化后，它的复制到Word文档。
希望这能帮上忙-S