devi Posted February 28, 2012 Share Posted February 28, 2012 When i tried this below code ,iam unable to get changecase. pls help me to change the text from upper to lower or lower to upper.Similarly for Bold and Italic also.Dim Const $PPUPPER = "UPPERCASE" - Variable Declaration_PPT_SlideChangeCase($objSlide2, 2,$PPUPPER) - Calling functionFunc _PPT_SlideChangeCase(ByRef $obj, $intTextFrame, $case) - Called function If IsObj($obj) <> 1 Then SetError(1) Return 0 Else Local $objTextRng = $obj.Shapes.Item($intTextFrame).TextFrame.TextRange $objTextRng.Font.ChangeCase= $case EndifEndFunc Link to comment Share on other sites More sharing options...
Moderators JLogan3o13 Posted February 28, 2012 Moderators Share Posted February 28, 2012 Hi, devi. Have a look in the helpfile at StringUpper. You should be able to call your $objTextRng and then parse it with StringUpper to provide all upper case. "Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball How to get your question answered on this forum! Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now