读取不连续区域的文本

falleaf1125 · 发表于 2021-1-31 22:25

求教：如何读取正文被选中的不连续区域的文本？

413191246se · 发表于 2021-1-31 22:53

Sub aaaa_GetTextFromContinueslyRange()
Dim s$
With Selection
.Font.Underline = wdUnderlineSingle
.HomeKey 6
With .Find
.ClearFormatting
.Text = ""
.Font.Underline = wdUnderlineSingle
.Replacement.Text = ""
.Forward = True
.MatchWildcards = False
Do While .Execute
With .Parent
.Font.Color = wdColorRed 'Can-delete!
s = s & .Text & vbCr
.Start = .End
End With
Loop
End With
End With
MsgBox s, 0 + 48
End Sub

复制代码

shenjianrong163 · 发表于 2021-2-1 10:19

413191246se 发表于 2021-1-31 22:53

真厉害，好像要先设置下划线才行，查找后应在s = s & .Text & vbCr的后面加一句 .Font.Underline = wdUnderlineNone来取消下划线。

shenjianrong163 · 发表于 2021-2-1 10:24

413191246se 发表于 2021-1-31 22:53

413191246se老师：顺便问一下，vba删除页眉页脚后还剩下回车键，怎样才能彻底删除这个回车键?我只能手动删除，请指教，谢谢！

A1233515 · 发表于 2021-2-1 10:27

我是进来学习的

413191246se · 发表于 2021-2-2 08:42

shenjianrong163 朋友：页眉、页脚和正文一样，是不能完全删除的！因为，这 3 处最后都要保留一个回车符，也就是段落标记，来提供给用户输入的，是不可能完全删除的，只能设置为最小。
根据试验，其实早就知道了，想要使某个段落最小，一是设置字体大小，二是设置段落大小。字号最小可到 1 磅，段落行距最小可设置到 0.06 倍行距，这是 Word 本身的限制了。
* 请试用下面的宏：

Sub test_Headers_Format()
Documents.Add
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit
With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
.Text = "China-Daily"
With .Font
.Size = 42
.Bold = True
.ColorIndex = wdRed
.Kerning = 0
.DisableCharacterSpaceGrid = True
End With
With .ParagraphFormat
.Alignment = wdAlignParagraphLeft
MsgBox "Pause!"
.AutoAdjustRightIndent = False
.DisableLineHeightGrid = True
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
End With
.Delete
ActiveWindow.ActivePane.View.ShowAll = True
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.Expand 4
Selection.Font.Size = 1
Selection.ParagraphFormat.LineSpacing = LinesToPoints(0.06)
ActiveWindow.ActivePane.View.Zoom.Percentage = 200
End With
End Sub

复制代码

shenjianrong163 · 发表于 2021-2-2 11:07

谢谢413191246se老师！

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

[求助] 读取不连续区域的文本

评分