如何用VBA合并名单

ww0000 · 发表于 2017-12-14 16:04

名单合并.rar (2.43 KB, 下载次数: 13)

要求在文件中

duquancai · 发表于 2017-12-14 23:42

附件，打开，点击按钮》》》》》》》》》》》》》》》》》》》》》》

kflqs · 发表于 2017-12-15 09:45

真的可以也……。好想学习一下，没有代码吗？

ww0000 · 发表于 2017-12-15 09:55

duquancai 发表于 2017-12-14 23:42
附件，打开，点击按钮》》》》》》》》》》》》》》》》》》》》》》

代码加密了？？能否供大家学习？谢谢

ww0000 · 发表于 2017-12-15 12:14

duquancai 发表于 2017-12-14 23:42
附件，打开，点击按钮》》》》》》》》》》》》》》》》》》》》》》

谢谢，附件可以达到要求，但我实际工作中，”：“前面的字数是不确定的，有的3字，有的4字，有的5字，这样会乱

duquancai · 发表于 2017-12-15 12:35

ww0000 发表于 2017-12-15 12:14
谢谢，附件可以达到要求，但我实际工作中，”：“前面的字数是不确定的，有的3字，有的4字，有的5字，这 ...

开始你有没说，自以为是的模拟的附件就能取代实际文档的数据结构！！！

ww0000 · 发表于 2017-12-15 16:51

duquancai 发表于 2017-12-15 12:35
开始你有没说，自以为是的模拟的附件就能取代实际文档的数据结构！！！

老师，能否改一下，可以满足多个条件的，比如“：”前面可以是2字，也可以是3字4字等

ww0000 · 发表于 2017-12-21 12:29

duquancai 发表于 2017-12-14 23:42
附件，打开，点击按钮》》》》》》》》》》》》》》》》》》》》》》

老师？能否将代码中固定的数字用 InStr(p.Range.Text, ":"）代替？根据“：”的位置变化决定截取的内容？

duquancai · 发表于 2017-12-21 13:04

ww0000 发表于 2017-12-21 12:29
老师？能否将代码中固定的数字用 InStr(p.Range.Text, ":"）代替？根据“：”的位置变化决定截取的内容 ...

可以啊！又不难，自己改一改嘛！

duquancai · 发表于 2017-12-22 00:26

ww0000 发表于 2017-12-21 12:29
老师？能否将代码中固定的数字用 InStr(p.Range.Text, ":"）代替？根据“：”的位置变化决定截取的内容 ...

Private Sub CommandButton1_Click()
Dim p As Paragraph, Q As Range, d As Object, sr$, tr$
Set d = CreateObject("Scripting.Dictionary")
For Each p In ActiveDocument.Paragraphs
      With p.Range
         If InStr(.Text, "：") Then
            x = InStr(.Text, "：")
            .Start = .Start + x: .End = .End - 1
            sr = .Text
            If Not d.Exists(Left(p.Range.Text, x)) Then
                  d(Left(p.Range.Text, x)) = sr
            Else
                  d(Left(p.Range.Text, x)) = d(Left(p.Range.Text, x)) & "；" & sr
            End If
         End If
      End With
Next
k = d.keys: t = d.items
For i = 0 To d.Count - 1
      tr = tr & k(i) & t(i) & vbCr
Next
ActiveDocument.Content.InsertAfter tr
MsgBox "完成,OK!"
End Sub

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

[求助] 如何用VBA合并名单

评分