vba操作word时如何定位复制插入？

sblisb · 发表于 2020-1-13 08:58

蓝桥玄霜发表于 2020-1-12 11:16
Set d = CreateObject("Scripting. Dictionary")
中的.是不是用了汉字的. 还是多了一个空格" "？
用了这 ...

谢谢，是我输入时多输了一个空格
改后运行到
Set doc = .Documents.Open(ThisWorkbook.Path & "模本.docx")
这一句时，怎么打开了word程序，但没打开模本.docx文件，出现一个提示框

蓝桥玄霜 · 发表于 2020-1-13 09:33

Set doc = .Documents.Open(ThisWorkbook.Path & "模本.docx")
少了“\"
Set doc = .Documents.Open(ThisWorkbook.Path & "\模本.docx")

sblisb · 发表于 2020-1-13 16:19

本帖最后由 sblisb 于 2020-1-13 16:38 编辑

蓝桥玄霜发表于 2020-1-13 09:33
Set doc = .Documents.Open(ThisWorkbook.Path & "模本.docx")
少了“\"
Set doc = .Documents.Open(This ...

谢谢，由于我的粗心，辛苦了
最后一段，如果是三行数据

代码替换后是

在4号仓库，在3号仓库，在5号仓库，发出如下货物：

有笔已发出，有3号已发出，有铅笔已发出

结果怎么不对呀，
要不干脆分成三行输出，这样会不会更简单点？
在4号仓库，发出如下货物：笔
在3号仓库，发出如下货物：夹子
在5号仓库，发出如下货物：铅笔

蓝桥玄霜 · 发表于 2020-1-14 09:26

还是有抄错的地方：
s4 = s4 & "有" & Brr(aa(jj), 2) & "已发出，"
改为：
s4 = s4 & "有" & Brr(aa(jj), 3) & "已发出，"

蔡明江 · 发表于 2022-1-2 23:27

学习了谢谢分享感谢！

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

[求助] vba操作word时如何定位复制插入？