求助 word VBA 设置粘贴链接及字体

drea0mer

求助下各位我想实现的是在excel中 复制一个 单元格
在 word中 粘贴时，粘贴为 无格式链接，

然后想设置下字体为Georgia。


我通过录制宏，自己加了一个 with 语句，如下
Sub 宏1()
'
' 宏1 宏
'
'
    With Selection
    .PasteSpecial Link:=True, DataType:=wdPasteText, Placement:= _
        wdInLine, DisplayAsIcon:=False
    .Font.Name = "Georgia"
    .Font.NameAscii = "Georgia"
    .Font.NameOther = "Georgia"

    End With
End Sub

【现在的问题是：】这宏实现了 粘贴excel的单元格在 word中 为 无格式链接，但是字体设置失败了，没有改成Georgia。想问下怎么设置字体？
谢谢

ming0018

试一下　先设置字体　再粘贴
顺便说一下，粘贴是最笨的一种办法。

drea0mer

ming0018 发表于 2019-3-29 14:53
试一下　先设置字体　再粘贴
顺便说一下，粘贴是最笨的一种办法。

你好，我试了下先设置字体，再粘贴，还是存在问题。
想实现的是 word中要引用 excel中的不连续的单元格，还有其他好的方法吗？

ming0018

drea0mer 发表于 2019-3-30 10:25
你好，我试了下先设置字体，再粘贴，还是存在问题。
想实现的是 word中要引用 excel中的不连续的单元格 ...

赋值数组后，以文本形式插入word。