位置一和位置二中间内容复制，vba运行说数值超出范围

naitian1029

Sub 宏1()
    Dim wdapp As Object
    Dim wddocument, range2
    Dim mypath$, myname$
    Dim wdRng As Object, wd As Object
    Dim pos1%, pos2%, pos3%, pos4% '定义找字段首位位置
    Set wddocument = ActiveDocument
    Set wdRng = wddocument.Range
    wdRng.Find.Execute ("/ MDO")
    pos1 = wdRng.End
    Set wdRng = wddocument.Range
    wdRng.Find.Execute ("B.ROB: IFO=")
    pos2 = wdRng.Start
    wddocument.Range(pos1, pos2).Copy '选找两字段间内容
    Set wdRng = wddocument.Range
    wdRng.Find.Execute ("/ Consumed:")
    pos3 = wdRng.End
    Set wdRng = wddocument.Range
    wdRng.Find.Execute ("mt")
    pos4 = wdRng.Start
    wddocument.Range(pos3, pos4).Copy '选找两字段间内容
    Application.DisplayAlerts = False
    Set range2 = Documents.Open(ActiveDocument.Path & "\管理公司午报.docx")
    Set wd = range2.Range
    wd.Find.Execute ("HSFO")
    pos1 = wd.End
    Set wd = range2.Range
    wd.Find.Execute ("/LSFO")
    pos2 = wd.Start
    range2.Range(pos1, pos2).PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)
    Set wd = range2.Range
    wd.Find.Execute ("FW Daily Consumed")
    pos3 = wd.End
    Set wd = range2.Range
    wd.Find.Execute ("/LSFO")
    pos4 = wd.Start
    range2.Range(pos3, pos4).PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)
    range2.Close True





End Sub

duquancai

Dim pos1%, pos2%, pos3%, pos4% '定义找字段首位位置
改为：
Dim pos1#, pos2#, pos3#, pos4# '定义找字段首位位置
试试吧？如果还不行，那就思考一下编程思路及算法！！！！！！！！！！！！！！！

daibao88

pos3=598 pos4=224
range起点大于终点，数值超出范围
range(pos4, pos3)试试

413191246se

楼主，要想解决问题，最好是提供清晰目标的附件（怎么从A到B说清楚）。

naitian1029

413191246se 发表于 2018-3-10 23:19
楼主，要想解决问题，最好是提供清晰目标的附件（怎么从A到B说清楚）。

附件有呀？ 就是搜索两个关键词，复制中间内容？

naitian1029

daibao88 发表于 2018-3-10 20:45
pos3=598 pos4=224
range起点大于终点，数值超出范围
range(pos4, pos3)试试

对呀为什么会这样？如果再加上pos5  pos6,就又不一样了

413191246se

楼主，假设A、B是两个关键词，下面一小段程序可以复制AB之间的内容（到文尾），你可以用 F8 一步一步地验证一下：

1. Sub test()
   
2.     With Selection
   
3.         .HomeKey unit:=wdStory
   
4.         .Find.ClearFormatting
   
5.         .Find.Execute "A*B", , , 1, , , 1
   
6.         If .Find.Found = True Then
   
7.             .MoveStart unit:=wdCharacter, Count:=1
   
8.             .MoveEnd unit:=wdCharacter, Count:=-1
   
9.             .Copy
   
10.             .EndKey unit:=wdStory
    
11.             .TypeParagraph
    
12.             .Paste
    
13.         End If
    
14.     End With
    
15. End Sub

复制代码