Using VB.NET how to set a range to a word document textcolumn 2?

Question

0.00/5 (No votes)

See more:

Im writing a WORD procedure that fills in fields of a Word Template. In the Template document, after the header, there are 2 Textcolumns. Column 1 contains a Table, with a column break after the Table, and Column 2 is plain text. My question is: How do I set a Range variable to the 2nd Textcolumn?

I know I am doing something wrong but do not know what.

(A solution in C# is acceptable but VB.NET is preferred)

What I have tried:

Doing a Insertafter the last row of the Table in Column 1 and trying to get to column 2

Tried

Dim txtCol As Word.TextColumn
txtCol = oDoc.Range.PageSetup.TextColumns(2)

Posted 11-Feb-21 5:44am

fluffy3

Updated 11-Feb-21 7:09am

v3

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2021-02-11T07:09:00

If i understand you well...

I'd refer to range occupied by table, then select range till the end of document range, then loop through the collection of paragraphs. But(!) i have no idea how to get information about column number, which is not in table ;(

VB

Option Explicit

Sub SelectTextDownToTable1()
    Dim rng As Range
    Dim p As Paragraph
    
    Set rng = ThisDocument.Tables(1).Range
    rng.Start = rng.End + 1
    rng.End = ThisDocument.Range.End
    For Each p In rng.Paragraphs
        p.Range.Select
        Debug.Print Selection.Information(wdSelectionMode)
    Next p
End Sub

See:
Range.Tables property (Word) | Microsoft Docs[^]
Range.GoTo method (Word) | Microsoft Docs[^]
WdGoToItem enumeration (Word) | Microsoft Docs[^]
Range.Information property (Word) | Microsoft Docs[^]
WdInformation Enum (Microsoft.Office.Interop.Word) | Microsoft Docs[^]