Позиция курсора word vba

I am trying to write a program in VBA which writes some text to a Word document, what I want to happen is when the text gets to a certain distance from the left side of the document it prints out the remaining characters up to the next full stop and then starts a new line and a tab for every character in the string. This is an example of what should happen:

The code I have below works correctly on the first page of word but on additional pages it starts to print out randomly and the value given from objSelection.range.Information(WdInformation.wdHorizontalPositionRelativeToPage) seems to be the cause the issue.

An example of the incorrect output printed to word:

A few things I have noticed while trying to work out this issue:

If I set a break point and step through the code one line at a time everything works fine and the correct output is printed every time.

If I have the word app set to not be visible from the start it fails every time after the first page

If I have the word app set as visible it runs correctly on every page until I click somewhere on the screen outside of the word application.

This is the code I have:

Sub print_to_word()
        '**** SETTING UP WORD *****
        Dim wordApp As Word.Application
        On Error Resume Next
        Set wordApp = GetObject(, "Word.Application")
        If wordApp Is Nothing Then   'if word is not open then open it
            Set wordApp = CreateObject("Word.Application")
        End If
        On Error GoTo 0 'reset error warnings
        Dim objdoc As Document
        Set objdoc = wordApp.Documents.Add 'Create a new word document
        Dim objSelection As Selection
        Set objSelection = wordApp.Selection 'Selection used to write text
        wordApp.Visible = True

        Dim wirecodes As String
        wirecodes = "114.114*.98.98*.99.99*.123.123*.92*.92**.92.114.114*.98.98*.99.99*.123.123*.92*.92**.92.114.114*.98.98*.99.99*.123.123*.92*.92**.92.114.114*.98.98*.99.99*.123.123*.92*.92**.92.114.114*.98.98*.99.99*.123.123*.92*.92**.92.114.114*.98.98*.99.99*.123.123*.92*.92**.92.114.114*.98.98*.99.99*.123.123*.92*.92**.92.114.114*.98.98*.99.99*.123.123*.92*.92**.92"   

        For x = 1 To 5 'print 5 lots of wirecodes
            Dim pos As Integer
            objSelection.TypeText (Chr(9)) 'tab
            For i = 1 To Len(wirecodes) 'loop through each character
                pos = objSelection.range.Information(WdInformation.wdHorizontalPositionRelativeToPage)

                If i <> 1 And pos > 215 Then 'if the cursor is past 215 then
                    Do While Mid(wirecodes, i - 1, 1) <> "." And i <> Len(wirecodes) + 1 'print out the remaining wirecode before starting a new line
                        objSelection.TypeText (Mid(wirecodes, i, 1))
                        i = i + 1
                    Loop
                    If i < Len(wirecodes) Then 'if its not the last wirecode print a newline and tab
                        objSelection.TypeText (Chr(11) + Chr(9))
                    End If
                End If
                objSelection.TypeText (Mid(wirecodes, i, 1)) 'just print the character
            Next
            objSelection.TypeText (Chr(10)) 'new line
        Next
        'close word
        objdoc.Close
        Set objdoc = Nothing
        wordApp.Quit 'close word
        Set wordApp = Nothing
End Sub

I’m using Microsoft office 2010 on Windows 10 any help would be greatly appreciated.

I have a Word table in which I want to hide or reveal text in specific columns. I have written a macro linked to a check box in the header row. Ticking the box is supposed to hide the text in a column on the row where the cursor sits. The macro works fine when I test the VBA, but when I run it using the tick box, the code «thinks» the relevant row is the header row where the tick box resides.

How can I relay the correct row index (i.e. the row selected, where the text cursor sits, before the tick box is ticked) to the macro?

Maybe the correct question is: How does one differentiate between the cursor position in text (in a Word table) and the mouse cursor position?

Here is the macro code…

Private Sub CheckBox1_Click()
Call HideOrRevealAnswer
End Sub

Sub HideOrRevealAnswer()

Dim iCellRange As Range
Dim iColStart, iColEnd As Integer
Dim iRow As Integer

iColStart = 4 'column for Answers
iColEnd = 5 'column for Explanation

With ActiveDocument
    iRow = Selection.Cells(1).RowIndex
    Set iCellRange = .Range(Start:=.Tables(1).Cell(iRow,iColStart).Range.Start, _
        End:=.Tables(1).Cell(iRow, iColEnd).Range.End)
    iCellRange.Select
End With

With iCellRange
    Select Case .Font.Color
        Case wdColorAutomatic
            .Font.Color = wdColorWhite
        Case wdColorWhite
            .Font.Color = wdColorAutomatic
    End Select
End With

End Sub

Join Tek-Tips^® Today!

Join your peers on the Internet’s largest technical computer professional community.
It’s easy to join and it’s free.

Here’s Why Members Love Tek-Tips Forums:

• Talk To Other Members
• Notification Of Responses To Questions
• Favorite Forums One Click Access
• Keyword Search Of All Posts, And More…

Register now while it’s still free!

Already a member? Close this window and log in.

Join Us             Close