作者：绿色风
分类：
时间：2022-08-17
浏览：187
楼主
0Mouse |
Q：如何在整篇文档的句与句之间随机插入指定个数的版权信息文本呢？
问题描述：在整篇文档的完整句子（仅考虑以句号结尾）之间（不包括各段的结尾处）随机插入3个“ExcelTip”文本，同一个位置不得重复插入，并为插入的文本设置格式“字号12，字体红色”。
初始效果：
预期效果举例：
A：操作步骤：双击打开目标文档，按<Alt+F11>组合键打开代码编辑窗口，双击左侧“工程资源管理器”窗口的“ThisDocument”，在显示的空白窗口内粘贴以下代码，再按<F5>键，完毕。
- Sub 在整篇文档的句与句之间随机插入指定个数的版权信息文本()
- Dim iNum%, sInfo$, sText$, Ara() As String, Arb(), i%, j%
- iNum = 3
- sInfo = "ExcelTip"
- sText = Replace(ActiveDocument.Content, "。" & vbCr, " ")
- Ara = Split(sText, "。")
- If UBound(Ara) < 1 Then Exit Sub
- ReDim Arb(UBound(Ara) - 1, 1)
- If UBound(Arb) < iNum Then Exit Sub
- For i = 0 To UBound(Arb)
- j = j + Len(Ara(i)) + 1
- Arb(i, 0) = j
- Next i
- Randomize
- i = 0
- Do While i < iNum
- j = Int(Rnd() * UBound(Ara))
- If IsEmpty(Arb(j, 1)) Then
- Arb(j, 1) = j
- i = i + 1
- End If
- Loop
- j = 0
- With ActiveDocument
- For i = UBound(Arb) To 0 Step -1
- If Len(Arb(i, 1)) Then
- j = Arb(i, 0)
- .Range(j, j).Text = sInfo
- With .Range(j, j + Len(sInfo)).Font
- .Size = 12
- .ColorIndex = wdRed
- End With
- End If
- Next i
- End With
- MsgBox "Over!", vbInformation, "xqoa"
- End Sub
附件：
 在整篇文档的句与句之间随机插入指定个数的版权信息.rar
|
2楼
嘉昆2011 |
附件和效果图遗漏了
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一