Reply to thread

Message

<blockquote data-quote="RedAnt84" data-source="post: 5107846" data-attributes="member: 88446">I wouldn't say I have &quot;working knowledge&quot; of VBA, but I've coded a couple of personal projects in it. Currently I'm working on a parsing/printing Java program that involves 4e statblocks.The main function you're looking for is StrComp(string1, string2). You have to match the strings exactly. It returns 0 if they equal, or -1/1 if they're not (depends on if one comes after/before the other)Basically, you'll want to grab the powers, split them by the newline character (vbCrLf), run through each power, and check to see if it starts with a power type. Then you'll bold that line in the comments. This is my first time working with comments, so hope it works.References:<a href="http://www.freevbcode.com/ShowCode.Asp?ID=2856" target="_blank">Check if a String Starts or Ends With a Given Set of Characters</a><a href="http://www.contextures.com/xlcomments03.html" target="_blank">Excel Comments VBA</a> (for the comments and bolding part)Here's my test code. Enter 'a', 'r', or 'm' to get a bold line:&nbsp; &nbsp; [code]Dim cmt As Comment&nbsp; &nbsp; Dim startsWith As Boolean&nbsp; &nbsp; Dim toCompare As String&nbsp; &nbsp; Dim originalString As String&nbsp; &nbsp; &nbsp; &nbsp; originalString = &quot;a Power&quot; &amp; vbCrLf &amp; &quot;r Power&quot; &amp; vbCrLf &amp; &quot;m Power&quot;&nbsp; &nbsp; toCompare = InputBox(&quot;Compare your text to: &quot; &amp; vbCrLf &amp; originalString)&nbsp; &nbsp; Dim powerSplit() As String&nbsp; &nbsp; powerSplit = Split(originalString, vbCrLf)&nbsp; &nbsp; Dim power As Variant&nbsp; &nbsp; &nbsp; &nbsp; Set cmt = ActiveCell.Comment&nbsp; &nbsp; &nbsp; &nbsp; If cmt Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ActiveCell.AddComment _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Text:=originalString&nbsp; &nbsp; &nbsp; &nbsp; Set cmt = ActiveCell.Comment&nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; For Each power In powerSplit&nbsp; &nbsp; &nbsp; &nbsp; startsWith = False&nbsp; &nbsp; &nbsp; &nbsp; If (Len(toCompare) &lt;= Len(power)) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; startsWith = StrComp(toCompare, Left(power, Len(toCompare))) = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; 'format the lines of text&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; If (startsWith) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cmt.Shape.TextFrame.Characters(InStr(1, originalString, power), Len(power)).Font.Bold = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next power[/code]Instead of the InputBox, you'll check to see if each power starts with an a, c, m, or r, followed by a spaceI don't have Monster Tools available, but the things I've had to watch out for concerning powers (from pdfs) are: capital/lower cases, power names not getting correctly copied over (&quot;aPower&quot; instead of &quot;a Power&quot;), and when power types equal &quot;none&quot; (e.g. Goblin Tactics)Hope this helps. First comment, ho! <img src="https://cdn.jsdelivr.net/joypixels/assets/8.0/png/unicode/64/1f642.png" class="smilie smilie--emoji" loading="lazy" width="64" height="64" alt=":)" title="Smile&nbsp; &nbsp; :)"&nbsp; data-smilie="1"data-shortname=":)" /></blockquote>

[QUOTE="RedAnt84, post: 5107846, member: 88446"] I wouldn't say I have "working knowledge" of VBA, but I've coded a couple of personal projects in it. Currently I'm working on a parsing/printing Java program that involves 4e statblocks. The main function you're looking for is StrComp(string1, string2). You have to match the strings exactly. It returns 0 if they equal, or -1/1 if they're not (depends on if one comes after/before the other) Basically, you'll want to grab the powers, split them by the newline character (vbCrLf), run through each power, and check to see if it starts with a power type. Then you'll bold that line in the comments. This is my first time working with comments, so hope it works. References: [URL="http://www.freevbcode.com/ShowCode.Asp?ID=2856"]Check if a String Starts or Ends With a Given Set of Characters[/URL] [URL="http://www.contextures.com/xlcomments03.html"]Excel Comments VBA[/URL] (for the comments and bolding part) Here's my test code. Enter 'a', 'r', or 'm' to get a bold line: [code]Dim cmt As Comment Dim startsWith As Boolean Dim toCompare As String Dim originalString As String originalString = "a Power" & vbCrLf & "r Power" & vbCrLf & "m Power" toCompare = InputBox("Compare your text to: " & vbCrLf & originalString) Dim powerSplit() As String powerSplit = Split(originalString, vbCrLf) Dim power As Variant Set cmt = ActiveCell.Comment If cmt Is Nothing Then ActiveCell.AddComment _ Text:=originalString Set cmt = ActiveCell.Comment End If For Each power In powerSplit startsWith = False If (Len(toCompare) <= Len(power)) Then startsWith = StrComp(toCompare, Left(power, Len(toCompare))) = 0 'format the lines of text If (startsWith) Then cmt.Shape.TextFrame.Characters(InStr(1, originalString, power), Len(power)).Font.Bold = True End If End If Next power[/code]Instead of the InputBox, you'll check to see if each power starts with an a, c, m, or r, followed by a space I don't have Monster Tools available, but the things I've had to watch out for concerning powers (from pdfs) are: capital/lower cases, power names not getting correctly copied over ("aPower" instead of "a Power"), and when power types equal "none" (e.g. Goblin Tactics) Hope this helps. First comment, ho! :) [/QUOTE]

Verification