求助：Word表格中如何一次输入内容谢！

byhyxb · 发表于 2014-5-1 17:32

本帖最后由 byhyxb 于 2014-5-3 19:21 编辑

如何一次输入内容.rar (9.65 KB, 下载次数: 33)
所选区域是随机的。

byhyxb · 发表于 2014-5-3 19:24

这个问题想了很久没想出，请各位看代码如何写......

loquat · 发表于 2014-5-3 20:44

操作剪贴板。直接Selection.Paste?

banjinjiu · 发表于 2014-8-5 12:39

Sub test()
ActiveDocument.Tables(1).Cell(2, 1).Range.Text = "名称"
ActiveDocument.Tables(1).Cell(2, 1).Select
Selection.Copy
Selection.MoveDown Unit:=wdLine, Count:=5, Extend:=wdExtend
Selection.Paste
End Sub

复制代码

loquat · 发表于 2014-8-5 23:45

我觉得直接粘贴成链接的表格就可以了。
aRange.PasteSpecial LINK:=True, DateType:=wdPasteHTML
或者用直接书写域的方式实现以上代码，效率更高，脱离剪贴板
aStr = "LINK Excel.Sheet.8 " & Chr(34) & "C:\\Users\\Administrator\\Desktop\\1.xlsx" & Chr(34) & " " & Chr(34) & "Sheet1!R2C1:R4C11" & Chr(34) & " \f 4 \h"
aRange.Fields.Add(aRange, wdFieldEmpty, aStr, True).Update

banjinjiu · 发表于 2014-8-6 09:44

loquat 发表于 2014-8-5 23:45
我觉得直接粘贴成链接的表格就可以了。
aRange.PasteSpecial LINK:=True, DateType:=wdPasteHTML
或者用直 ...

你的方法比较新颖，没有见过，想学习下。我做了个附件，请大侠使用书写域的方法来实现这个excel到word的数据粘贴，谢谢。见附件。

loquat · 发表于 2014-8-6 12:21

上述方法是针对整个Excel表格直接加入到Word里面的，加入进来之后还需要排版。
其中第一段代码需要实现在Excel选定区域制定Copy，然后才能执行
第二段代码不需要Copy，完全脱离剪贴板

像你附件中的这种要求，最好通过第二种方案来实施：
不是楼主要的结果。

banjinjiu · 发表于 2014-8-6 13:23

loquat 发表于 2014-8-6 12:21
上述方法是针对整个Excel表格直接加入到Word里面的，加入进来之后还需要排版。
其中第一段代码需要实现在E ...

谢谢，word上下各多了一个回车空行，且在word中域不能编辑修改，只能链接。

loquat · 发表于 2014-8-6 15:42

本帖最后由 loquat 于 2014-8-6 16:23 编辑

可以用代码修改我一直是这样应用的，回车的问题，我在应用中是没有这样的问题的，这里找不到原因

loquat · 发表于 2014-8-6 15:42

你可以Alt+F9就发现它是个域

		自动登录	找回密码
密码			免费注册

[求助] 求助：Word表格中如何一次输入内容 谢！

[求助] 求助：Word表格中如何一次输入内容谢！