|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub 提取答案到末尾咯()
- Dim doc As Document, p As Paragraph
- Dim r As Range, area As Range
- Dim pCount As Long
-
-
- Set doc = ThisDocument
-
- Set area = doc.Range(doc.Range.Start, doc.Range.End)
- pCount = area.Paragraphs.Count
- n = 0
- Index = 0
- For Each p In area.Paragraphs
- n = n + 1
- If p.Range.Text Like "【答案】*" Then
- Index = Index + 1
- Set r = doc.Range(p.Range.Start, p.Range.End) '先获取【答案那行】
- For i = n + 1 To pCount
- If Not (area.Paragraphs(i).Range.Text Like "#.*" Or area.Paragraphs(i).Range.Text Like "##.*") Then
- Set r = doc.Range(r.Start, area.Paragraphs(i).Range.End) '获取详解部分
- Else
-
- Selection.EndKey 6
- Selection.TypeText Chr(13) & Index
-
- '加个简单延时 避免粘贴出错
- st = Timer
- Do While st + 0.5 < Timer
- DoEvents
- Loop
-
- r.Copy
- Selection.Paste
- Exit For
- End If
- Next i
- End If
- DoEvents
- Next p
-
-
- End Sub
复制代码
|
评分
-
1
查看全部评分
-
|