Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Automating word

Posted on 2004-08-30
5
Medium Priority
?
1,430 Views
Last Modified: 2012-08-14
I have a problem when i'm trying to automate Word.

I have a code like that:

    Do
        'Incrementing the number of processed lines
        iProcLines = iProcLines + 1
       
        ' Select a line.
        oWordApp.Selection.MoveDown unit:=wdLine, Count:=1
       
        'This is an alternative way to mark the line
        'oWordApp.ActiveDocument.Bookmarks("\LINE").Select
       
        If iProcLines = 216 Then Stop
       
        If ((iProcLines > 0) And ((iProcLines Mod 24) = 0) And ((iTotalLines - (iBreaks - 1)) - (iBreaks - 1) * 24) > 24) Then
            'Add a line break
           
            'ActiveDocument.StoryRanges(0).InsertBreak WdBreakType.wdPageBreak
            'ActiveDocument.StoryRanges(wdMainTextStory).InsertBreak WdBreakType.wdSectionBreakNextPage
            oWordApp.Selection.InsertBreak wdSectionBreakNextPage
            iBreaks = iBreaks + 1


I have copy this code from a macro I have made in Word to move down through the lines of a document, however because of the Selection object, this code only works if the document is visible, if it's not the code runs but does the things in a completely differente way.

Is there a way to change Selection for another instruction?

Thanks in advance

0
Comment
Question by:GustavoValdes
3 Comments
 
LVL 7

Expert Comment

by:_agj_
ID: 11939416
instead of selecting and moving on...u cud navigate through lines using the object.

i think it is document.Sentences or document.Lines
0
 
LVL 77

Expert Comment

by:GrahamSkan
ID: 11940177
Just to check that we’re all looking at the same thing: - when I run the code below, which is based on your snippet, the difference is that all the new section breaks are inserted at the beginning of the document if the application is invisible, instead of at 24-line separation if it is shown.

You probably understand that the root of the problem is that what constitutes a line is volatile, because it depends so much on formatting, which is done dynamically. That is why there is no Line object. The MoveDown, etc,  methods depend on the display.

Are your ‘lines’ limited by anything other than the fold-point, e.g. paragraph mark, full-stop, newline, or a table row? If so we could work on that.

If not , perhaps you need to re-appraise your approach. What is your objective?

Private Sub Command1_Click()
Dim oWordApp As Word.Application
Dim iProcLines As Integer
Dim iBreaks As Integer
Dim Doc As Word.Document
Dim rng As Word.Range
Dim i As Integer
Const strFile = "C:\Documents and Settings\Graham Skan\My Documents\Allwork\Experts\Selection_MoveDown\quick brown fox.doc"
Set oWordApp = New Word.Application
For i = 0 To 1
    iProcLines = 0
    iBreaks = 0
    oWordApp.Visible = -1 * i
    Set Doc = oWordApp.Documents.Add(strFile)
    Set rng = Doc.Content
    rng.Collapse wdCollapseStart
    rng.Select
      Do
            'Incrementing the number of processed lines
            iProcLines = iProcLines + 1
           
            ' Select a line.
            oWordApp.Selection.MoveDown unit:=wdLine, Count:=1
           
           
            If iProcLines = 216 Then
                Exit Do
            End If
            If (iProcLines Mod 24) = 0 Then
                'Add a Section break
               
                oWordApp.Selection.InsertBreak wdSectionBreakNextPage
                iBreaks = iBreaks + 1
            End If
        Loop
    Doc.SaveAs strFile & i
    Doc.Close
Next i
oWordApp.Quit
End Sub
0
 
LVL 1

Accepted Solution

by:
Computer101 earned 0 total points
ID: 12561045
PAQed with no points refunded (of 125) %%STAMP%%

Computer101
EE Admin
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Suggested Courses

581 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question