微信红包求助各位好心人，帮忙做个vba吧

teng7001 · 发表于 2021-11-26 08:36

会做的老师可以加我微信 teng67001, 发10元的红包表表心意

493861364 · 发表于 2021-11-26 10:19

你是要把word表格里的文字内容读取到excel里吗？

行1A在word里是书签，还是内容的一部分，还是你想要的行号？

teng7001 · 发表于 2021-11-26 10:25

1A是单元格的行号,代表单元格文字

493861364 · 发表于 2021-11-26 18:01

teng7001 发表于 2021-11-26 10:25
1A是单元格的行号,代表单元格文字

没看明白，你看我的理解是不是你想要的

1、word“模板”是空的word文档
2、在word空模板的表格的某一格子中写入地址“行1A”
3、运行代码，名字为“统计表”的excel单元格A1的内容写入该word表格的步骤2所对应格子
4、如果问题已解决，请忽略以上

teng7001 · 发表于 2021-11-27 08:11

还没解决，就是在word模板里面打入单元格地址，就自动生成单元格中的文字，如word打入{A1}自动生成“行1a“”这个文字

约定的童话 · 发表于 2021-11-27 08:14

按照你这要求肯定要掉坑里，哈哈
Sub 填写()
Application.ScreenUpdating = False
Dim myword, myPath$, myfile, mydoc, s, i, n, arr, wdapp
myPath = ThisWorkbook.Path & "\"
Set wdapp = VBA.CreateObject("Word.Application")
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
      FileCopy myPath & "模板.docx", myPath & arr(i, 7) & ".docx"
      With wdapp.Documents.Open(myPath & arr(i, 7) & ".docx")
         .Tables(2).Cell(2, 2).Range = arr(i, 2)
         .Tables(2).Cell(2, 5).Range = arr(i, 3)
         .Tables(2).Cell(2, 6).Range = arr(i, 4)
         .Tables(2).Cell(2, 7).Range = arr(i, 8)
         .Tables(2).Cell(2, 8).Range = arr(i, 9)
         .Tables(2).Cell(2, 9).Range = arr(i, 10)
         .Close True
      End With
Next
wdapp.Quit
Set wdapp = Nothing
MsgBox "填写完毕!", , "报告"
End Sub

zpy2 · 发表于 2021-11-27 08:35

teng7001 发表于 2021-11-27 08:11
还没解决，就是在word模板里面打入单元格地址，就自动生成单元格中的文字，如word打入{A1}自动生成“行1a“ ...

就是在word模板里面打入单元格地址

目测不需要模板打入吧！
https://club.excelhome.net/forum.php?mod=viewthread&tid=1606131&pid=10827870&page=1&extra=&mobile=

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