Servant Posted April 14, 2014 Posted April 14, 2014 Is there a way to get the style of a set range on a Microsoft Word document? If there is, then how? http://developingsites.blogspot.com
water Posted April 14, 2014 Posted April 14, 2014 $sStyle = $oRange.Style should do what you want. My UDFs and Tutorials: Spoiler UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki
Servant Posted April 14, 2014 Author Posted April 14, 2014 (edited) Sorry, I forgot to mentioned that these code lines: $sStyle = $oRange.Find.Style $sStyle = $oRange.Style Just returned nothing.. >Exit code: 0 Edited April 14, 2014 by Servant http://developingsites.blogspot.com
Solution water Posted April 14, 2014 Solution Posted April 14, 2014 In this case the Style property returns an object. Try this to get the style of the text you selected: #include <Word.au3> Local $oWord = _Word_Create() If @error <> 0 Then Exit MsgBox(16, "Word UDF: _Word_DocOpen Example", "Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended) Local $sDocument = "Test_Format.doc" Local $oDoc = _Word_DocOpen($oWord, $sDocument, Default, Default, True) If @error <> 0 Then Exit MsgBox(16, "Word UDF: _Word_DocOpen Example 1", "Error opening 'Test.doc'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) MsgBox(64, "Word UDF: _Word_DocOpen Example 1", "Select range!") Local $oRange = _Word_DocRangeSet($oDoc, 0) ConsoleWrite("Selected Text: " & $oRange.Text & @LF) ConsoleWrite("Style of Selected Text: " & $oRange.Style.NameLocal & @LF) Servant and rjf7r 2 My UDFs and Tutorials: Spoiler UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki
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