请问如何将文中表格的数据自动插入到文中下划线位置中

huys · 发表于 2024-11-5 09:18

各位大哥大姐小弟小妹：

请问如何将文中表格的数据自动插入到文中下划线位置中？

本年营业总收入　　万元，同比增收　　万元，增长　　　%。

主要指标情况表
				金额单位：万元
	本年累计	上年同期	增减（±）	增幅（%）
营业总收入	8,223.42	8,094.43	128.99	1.59

结果：

本年营业总收入8,223.42万元，同比增收128.99万元，增长1.59%。

请问如何将文中表格的数据自动插入到文中下划线位置中.rar (13.69 KB, 下载次数: 3)

huys · 发表于 2024-11-5 09:21

或者说如何从文中表格读取数据到指定位置中

huys · 发表于 2024-11-5 15:13

那位大哥大姐小弟小妹指点指点？

huys · 发表于 2024-11-5 15:14

哪位大哥大姐小弟小妹指点指点？

3190496160 · 发表于 2024-11-5 15:40

Sub 批量word()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application") '新建Word对象
Dim wdd
t = Timer
lj = ThisWorkbook.Path
wdApp.Visible = True
f = Dir(lj & "\*.doc*")
Do While f <> ""
Set wdd = wdApp.Documents.Open(lj & "\" & f)
With wdd.tables(1)
      sj1 = Replace(.cell(4, 2), Chr(13) & Chr(7), "")
      sj2 = Replace(.cell(4, 4), Chr(13) & Chr(7), "")
      sj3 = Replace(.cell(4, 5), Chr(13) & Chr(7), "")
End With
For i = 1 To 4
      With wdApp.Selection
         .HomeKey unit:=6 '光标置于文件首
         If .Find.Execute("　　") Then '查找到指定字符串
            .Font.Color = wdColorAutomatic '字符为自动颜色
            .Text = "" '替换字符串
         End If
      End With
Next i
With wdApp.Selection
      .HomeKey unit:=6 '光标置于文件首
      If .Find.Execute("本年营业总收入") Then '查找到指定字符串
         .Font.Color = wdColorAutomatic '字符为自动颜色
         .Text = "本年营业总收入" & sj1 '替换字符串
      End If
End With
With wdApp.Selection
      .HomeKey unit:=6 '光标置于文件首
      If .Find.Execute("同比增收") Then '查找到指定字符串
         .Font.Color = wdColorAutomatic '字符为自动颜色
         .Text = "同比增收" & sj2 '替换字符串
      End If
End With
With wdApp.Selection
      .HomeKey unit:=6 '光标置于文件首
      If .Find.Execute("，增长") Then '查找到指定字符串
         .Font.Color = wdColorAutomatic '字符为自动颜色
         .Text = "，增长" & sj3 '替换字符串
      End If
End With
wdd.Save
wdd.Close True
f = Dir
Loop
wdApp.Quit
Set wdd = Nothing
Set wdApp = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "耗时：" & Format(Timer - t, "0.00") & "秒"
End Sub

3190496160 · 发表于 2024-11-5 15:41

仅供参考

新建文件夹.rar (97.63 KB, 下载次数: 2)

huys · 发表于 2024-11-5 15:55

3190496160 发表于 2024-11-5 15:41
仅供参考

辛苦了！可惜这不是我要的结果。是想要类似域代码或公式之类直接在文档中实现取数，而不是用VBA。

batmanbbs · 发表于 2024-11-5 16:32

huys 发表于 2024-11-5 15:55
辛苦了！可惜这不是我要的结果。是想要类似域代码或公式之类直接在文档中实现取数，而不是用VBA。

一般可以使用引用标签、复制链接、XML等方法，可以到抖音看看一闪流溢老师的教学视频

huys · 发表于 2024-11-5 17:53

本帖最后由 huys 于 2024-11-5 17:55 编辑

或者如何将当前文本中的表格设置为邮件合并的数据源？
（文本和表格在同一文档中）

huys · 发表于 2024-11-5 20:06

已解决，设置书签插入域

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

[求助] 请问如何将文中表格的数据自动插入到文中下划线位置中

评分

评分