Capture ruler values?

[caten]

I am trying to write a macro that will copy text and formatting from a
NotesPage text box, delete the text box, replace the NotesPage Body
placeholder, and paste the copied formatted text into the Body placeholder.
(If I could simply *convert* a text box to a Body placeholder, I could avoid
this, but that does not seem to be possible.)

I have accomplished most of it, but I need information that I can see on the
Ruler but can't seem to access. I have some paragraphs that are bullet
items. The Ruler displays the upper marker in position 1 and the lower
marker in position 2 (which makes my bulleted paragraphs slightly indented
with a hanging indent).

I tried getting the Ruler.Levels and various ParagraphFormat properties
including the Bullet properties but no luck. I also tried copy and Paste
Special formatted text, but nothing seems to capture the information I need.

Am I missing something? Is there any way to do what I want to do?

 

[John Wilson]

This would change the indents for level one text placeholder on a title /
text layout.

With ActivePresentation.Slides(1).Shapes _
..Placeholders(2).TextFrame.Ruler.Levels(1)
..FirstMargin = 40
..LeftMargin = 40
End With
--
Did that answer the question / help?
___________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
email john AT technologytrish.co.uk

 

[caten]

No, I know how to set levels but (1) the levels aren't what I'm interested in
and (2) this doesn't tell me what the current ruler values are.

 

[caten]

Is there any way for me to post my file (or at least an image of what I'm
trying to get at)?

 

[caten]

Okay, I have figured out how to capture the ruler values that I want to
reproduce (both tab stops and levels, it turns out). And I found an example
of getting and setting tab stops here: http://www.pptfaq.com/FAQ00794.htm
but I keep getting an error message:
"Run-time error '9': Subscript out of range", which occurs on the line "For
x = 1 To UBound(atabs, 2)".

I thought maybe it was a 0-based vs. 1-based counting issue, but I added 5
more tab stops (so there were a total of 6) and I get the same error.

I checked the Visual Basic Help about arrays and UBound, but I can't figure
out what the problem is. Any ideas?