Makro i Word 2000

Til illustration:

RFP02 SRI00604339
STP01          K                       
DTP02 ISR200203201204                      203       
S04P1 04   

Her vil jeg gerne have hevet SRI00604339 ud i en ny tekstfil

Her er lidt at bygge videre på - jeg skal desværre til møde, så jeg er her føst igen senere *S*

Sub FindOrd()
' Makro indspillet 05-02-2002 af Richardt Veje Madsen

'Gå til toppen af dokumentet
Selection.HomeKey Unit:=wdStory

'tæler antal ord i dokumentet
AntalOrd = ActiveDocument.Words.Count

'Marker første ord
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Flag = 0
   
'løkke
For n = 1 To AntalOrd
    ' Indsætter ordet i en variabel
    var = Selection
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdMove
   
    MyNewString = Mid(var, 1, 5)
    MyNewString1 = Mid(var, 6)
    Mylen = Len(MyNewString1)
    MyCheck = VarType(Mylen) ' skal være 2
   
    'Hvis ordet er længere en et bogstav
    If (MyNewString = "sri00") And (Mylen = 6) And (MyCheck = 2) Then
       
        Open "c:\tekst.txt" For Append Shared As #1
        Print #1, var
        Close #1
       
    End If
   
Next n
   
End Sub

Her er en testet version *S*

Sub FindOrd()
' Makro indspillet 05-02-2002 af Richardt Veje Madsen

'Gå til toppen af dokumentet
Selection.HomeKey Unit:=wdStory

'tæler antal ord i dokumentet
AntalOrd = ActiveDocument.Words.Count

'Marker første ord
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
var = Selection
flag = True

'løkke
For n = 1 To AntalOrd
    If flag = True Then
        flag = False
        Else
        Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdMove
        Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
        var = Selection
    End If
    MyNewString = Mid(var, 1, 5)
    MyNewString1 = Mid(var, 6)
    Mylen = Len(MyNewString1)
    Mycheck = IsNumeric(Mylen)
    'Hvis ordet er længere en et bogstav
    If (MyNewString = "sri00") And (Mylen = 6) And (Mycheck = True) Then
        Open "c:\tekst.txt" For Append Shared As #1
        Print #1, var
        Close #1
    End If
Next n
   
End Sub

1000 tak, rvm, der skulle lidt tilrettelser til, men det virker nu.

Er det muligt at checke dokumentet igennem, uden at scrolle?
Sagen er nemlig den, at hvis det givent dokument tager f.eks. 15 sekunder ved Udskriftslayout(100%), tager det kun ca. 7-8 sekunder ved Udskriftslayout(10%)!
Det er jo en betragtelig forskel.

Du kunne optage at du laver Udskriftslayout(10%)som det føste i makroen.