复制关键字之间内容

naitian1029 · 发表于 2018-3-1 22:29

1. B.ROB:IFO=1318.98/MOD=80.40/FW=519mt
2. 18-26.4N/118-32.3E
3. Air Pressure/Air Temp:1003/28
问题1：如何复制FW=和mt之间的519，或者MOD=和/FW之间的80.40到某个地方
问题2：如何复制2.之后的经纬度到某个地方
问题3：如何复制1003/28到某个地方？主要是查找和范围之间复制的vba，感谢大家

413191246se · 发表于 2018-3-1 23:20

什么地方？楼主还是没说明白，请明确目的要求，做个完整附件。

naitian1029 · 发表于 2018-3-2 08:34

本帖最后由 naitian1029 于 2018-3-2 09:17 编辑

，附件在下一楼

naitian1029 · 发表于 2018-3-2 09:16

这是附件，谢谢了

naitian1029 · 发表于 2018-3-2 09:19

413191246se 发表于 2018-3-1 23:20
什么地方？楼主还是没说明白，请明确目的要求，做个完整附件。

附件在4楼，谢谢了

duquancai · 发表于 2018-3-2 09:20

本帖最后由 duquancai 于 2018-3-2 17:40 编辑

数据太简单，看不出规律，这种问题简单的数据根本是瞎扯淡！

naitian1029 · 发表于 2018-3-2 09:22

duquancai 发表于 2018-3-2 09:20
数据太简单，看不出规律，这种问题简单的数据根本是瞎扯淡！

4楼有附件，谢谢了

413191246se · 发表于 2018-3-2 09:42

楼主，我没看附件，请——将光标定位于要处理的段落，试试下面的宏：（仅处理了第1个小题，可以按F8键逐一观察代码）

Sub test()
Dim r As Range, s As Range
With Selection
.Expand 4
Set s = .Range
.Find.ClearFormatting
Do While .Find.Execute("/", , , 1, , , 1)
If .Find.Found = True Then
Do
.MoveEnd unit:=wdCharacter, Count:=1
If .Characters.First Like "[0-9.]" Then Exit Do
If .Characters.First Like "[!0-9.]" Then .MoveStart unit:=wdCharacter, Count:=1
Loop
Do
If .Characters.Last Like "[!0-9.]" Then
.MoveEnd unit:=wdCharacter, Count:=-1
Exit Do
Else
.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
End If
Loop
Set r = .Range
.Copy
.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2" '光标定位于第2页页首
.EndKey unit:=wdLine
.Paste
.TypeText Text:=" "
r.SetRange Start:=r.End, End:=s.End
r.Select
End If
Loop
End With
End Sub

复制代码

naitian1029 · 发表于 2018-3-2 10:23

413191246se 发表于 2018-3-2 09:42
楼主，我没看附件，请——将光标定位于要处理的段落，试试下面的宏：（仅处理了第1个小题，可以按F8键逐一 ...

谢谢了，如果有时间看看附件，同样感激不尽

duquancai · 发表于 2018-3-2 14:22

naitian1029 发表于 2018-3-2 09:22
4楼有附件，谢谢了

哦哦哦！有附件了，但是比较忙，所以没打主意写代码！

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

[求助] 复制关键字之间内容