Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 07-18-2019, 04:52 AM
sts023 sts023 is offline Identify current column on a page Windows 7 64bit Identify current column on a page Office 2010
Hopeless Idiot
Identify current column on a page
 
Join Date: Apr 2019
Location: God's Own County
Posts: 26
sts023 is on a distinguished road
Default Identify current column on a page

In Word 2010 I have a landscape document which has three equal width columns on page 1, and 2 columns on page 2, the firsty being 1/3 of the width, the second being 2/3 of the width.
I have a variable (in terms of number of lines) amount of text in the first column of page 2, and I wish to insert three lines of text at the bottom of the first column on page 2, in a formatted box.
My plan was to identify how many lines are left in column 1 by inserting blank lines (vbLf) until the column number changes.
My problem is that the only references I can find to columns all seem to relate to tables, not to the current page.
Does anyone know how I can access the current page's current column number (if such a thing exists).
I've tried various "promising" methods, e.g.


Code:
'
' Code snippet
'
Dim grng                        As Word.Range
Dim intColNo                  As Integer
'

  Set grng = ActiveDocument.Content
  grng.Collapse Direction:=wdCollapseEnd
'The next line fails, telling me I'm not in a Table.
  intColNo = grng.Columns.Count
'The next line always returns -1.
  intColNo = grng.Information(wdEndOfRangeColumnNumber)
but I can't find one that works.
Can any kind soul help?
Reply With Quote
 

Tags
columns, count, information



Similar Threads
Thread Thread Starter Forum Replies Last Post
Identify current column on a page Return nameof Left column in current view trevorc Excel Programming 7 09-19-2018 08:38 PM
Identify current column on a page Table adding cells to previous page with room still on current page. gedet Word 1 01-03-2018 10:35 AM
Identify last blank cell in column mbesspiata Excel 0 02-27-2015 11:29 AM
How to save the current page in a new file with all the page settings (header, footer Jamal NUMAN Word 6 03-15-2012 03:27 PM
Is there a way to automatically highlight the column and the row that of the current Jamal NUMAN Excel 8 02-14-2012 02:58 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 03:07 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft