|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub text()
- Dim i%, str$, j%
- With ActiveDocument
- For i = 1 To .Tables.Count
- .Tables(i).Select
- For Each c In Selection.Cells
- str = c.Range.text
- If InStr(str, "aaaa:") Then
- j = InStr(str, "aaaa:")
- c.Select
- Selection.HomeKey
- Selection.MoveRight unit:=wdCharacter, Count:=j + 4, Extend:=wdMove
- Selection.MoveDown unit:=wdParagraph, Count:=3, Extend:=wdExtend
- Selection.Font.Size = 9
- End If
- Next
- Next
- End With
- End Sub
复制代码
此乃word宏,请在word当中新建模块运行此代码 |
|