macro for in-text comments in student assignments

gmayor · #1 08-20-2023, 10:42 PM

The following will enter your comment text at the cursor, formatted as required.

Code:

Sub MyComment()
Dim oRng As Range
Dim sComment As String
    sComment = InputBox("Type Comment", "Inline Comment")
    If sComment = "" Then Exit Sub
    Set oRng = Selection.Range
    With oRng
        .Collapse 0
        .Text = sComment
        .Font.Color = RGB(0, 153, 255)
        .Font.Name = "Universe Condensed Light"
        .Font.Size = 11
        .Collapse 0
        .Select
    End With
    Set oRng = Nothing
End Sub

Ulrike · #2 08-21-2023, 04:57 AM

Thank you so much, gmayor! It actually works, having survived my part of the action. I would never have been able to do it - my colleague was too optimistic.

May I be greedy and ask you to change
'.Font.Color = RGB(0, 153, 255)'
to a darker blue and without bold? I tried but am no good even for that small change.

I'd like my interjections to look less reproachful.

And, would you allow me to post your message, including your reference to your website, in our Commons Room Forum? Other tutors work with the Style1 option, preferring interjections and writing teaching comments in a separate feedback file.

With lots of thanks,
Ulrike

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Counting the amount of comments 'done' and 'not done' with a macro	caspy	Word VBA	2	10-23-2022 12:27 AM
Acronym Macro - Ms Word comments	Davereynolds1946	Word VBA	0	12-11-2021 04:45 AM
Macro to maintain formatting OR to delete all text (excluding comments)	jimmy12	Word VBA	6	05-15-2021 02:48 AM
Macro to highlight and bolden specific text in Word Comments	PCUSER	Word VBA	1	09-22-2020 03:08 PM
How to insert comments thro' macro	AlexandarR	Word VBA	4	06-05-2015 10:38 PM