Word Macro: Reformat the AO3 "Share" Code

[astrild]

Purpose:

At the Archive of Our Own (AO3) website, users have the option of "Sharing" links with appropriate descriptive metadata by copying code generated by the site. Unfortunately, this code isn't especially pretty. Therefore I have developed a Word Macro to quickly reformat the default "Share" code.

This Macro will:

• Add "Title", "Author", and "Word Count" labels.
• Add line break tags so that you can disable auto-formatting.
• Bold all labels.
• Change the font weight of the "Title" and "Author" from strong to normal.
• Place the "Title", "Author", and "Word Count" on separate lines.
• Place the "Summary" label and summary text on the same line.
• Remove character list.
• Remove warnings statement if no warnings apply.
• Remove the link to the AO3 "Fandom" tag.
• Rename the "Relationship" label to "Ship".

Example

Before

Assure Me That Your Love Is Mine (539 words) by astrild Fandom: Thor (2011) Rating: Teen And Up Audiences Warning: No Archive Warnings Apply Relationships: Loki/Thor Characters: Loki (Marvel), Thor (Marvel) Summary:

Shameless fluff in which Thor is extra cuddly after sex and Loki is not. [prompt]

<a href="http://archiveofourown.org/works/258156"><strong>Assure Me That Your Love Is Mine</strong></a> (539 words) by <a href="http://archiveofourown.org/users/astrild/profile"><img alt="favicon" border="0" src="http://archiveofourown.org/favicon.ico" /></a><a href="http://archiveofourown.org/users/astrild"><strong>astrild</strong></a> Fandom: <a href="http://archiveofourown.org/tags/Thor%20(2011)">Thor (2011)</a> Rating: Teen And Up Audiences Warning: No Archive Warnings Apply Relationships: Loki/Thor Characters: Loki (Marvel), Thor (Marvel) Summary: <p>Shameless fluff in which Thor is extra cuddly after sex and Loki is not. [<a href="http://norsekink.livejournal.com/3231.html?thread=7094687#t7094687">prompt</a>]</p>

After

Title: Assure Me That Your Love Is Mine
Pseud: astrild
Word Count: 539
Fandom: Thor (2011)
Rating: Teen And Up Audiences
Ship: Loki/Thor

Summary: Shameless fluff in which Thor is extra cuddly after sex and Loki is not. [prompt]

Archived: http://archiveofourown.org/works/258156

<p><b>Title:</b> Assure Me That Your Love Is Mine</a> <br /> <b>Pseud:</b> <a href="http://archiveofourown.org/users/astrild/profile"><img alt="favicon" border="0" src="http://archiveofourown.org/favicon.ico" /></a><a href="http://archiveofourown.org/users/astrild">astrild</a><br /> <b>Word Count:</b> 539<br /> <b>Fandom:</b> Thor (2011)<br /> <b>Rating:</b> Teen And Up Audiences<br /> <b>Ship:</b> Loki/Thor</p> <p><b>Summary:</b> Shameless fluff in which Thor is extra cuddly after sex and Loki is not. [<a href="http://norsekink.livejournal.com/3231.html?thread=7094687#t7094687">prompt</a>]</p> <p><b>Archived:</b> <a href="http://archiveofourown.org/works/258156">http://archiveofourown.org/works/258156</a></p>

Word Macro Code:

Sub AO3_Share_Fic() ' ' AO3_Share_Fic Macro ' Macro created by astrild ' http://astrild.dreamwidth.org ' ' Turn off Smart Quotes. With Options .AutoFormatAsYouTypeReplaceQuotes = False End With With Options .AutoFormatReplaceQuotes = True End With Options.LabelSmartTags = True ' Add paragraph tag to first line. ' Add bold "Title" label. With Selection.Find .Text = "<a href=""http://archiveofourown.org/works" .Replacement.Text = _ "<p><b>Title:</b> <a href=""http://archiveofourown.org/works" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Replace "by" statement with a bold "Pseud" label. ' Add line break tag between "Title" line and "Pseud" line. With Selection.Find .Text = " by " .Replacement.Text = "<br />^p<b>Pseud:</b> " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Add line break tag between "Pseud" line and "Fandom" line. ' Make "Fandom" label bold. With Selection.Find .Text = "^pFandom:" .Replacement.Text = "<br />^p<b>Fandom:</b>" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Add line break tag between "Fandom" line and "Rating" line. ' Make "Rating" label bold. With Selection.Find .Text = "</a>^pRating:" .Replacement.Text = "<br />^p<b>Rating:</b>" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Add line break tag between "Rating" line and "Warning" line. ' Make "Warning" label bold. With Selection.Find .Text = "^pWarning:" .Replacement.Text = "<br />^p<b>Warning:</b>" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Rename "Relationship" to "Ship". ' Add line break tag between "Warning" line and "Ship" line. ' Make "Ship" label bold. With Selection.Find .Text = "^pRelationships:" .Replacement.Text = "<br />^p<b>Ship:</b>" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Add closing and opening paragraph tags. ' between "Characters" line and "Summary" line. ' Make "Summary" label bold. ' Remove opening paragraph tag after "Summary" label. With Selection.Find .Text = "^pSummary: <p>" .Replacement.Text = "</p>^p<p><b>Summary:</b> " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Remove "Warning" line if no archive warnings apply. With Selection.Find .Text = "<b>Warning:</b> No Archive Warnings Apply<br />^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Remove strong opening and closing tags. ' We want to make the story title a normal weight. With Selection.Find .Text = "<strong>" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "</strong>" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Remove link to AO3 fandom tag. With Selection.Find .Text = "\<a href=""http://archiveofourown.org/tags/*""\>" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ' Delete "Characters" line. With Selection.Find .Text = "Characters:*\</p\>" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ' Add paragraph closing tag to the end of the "Ship" line. With Selection.Find .Text = "^p^p<p><b>Summary:" .Replacement.Text = "</p>^p^p<p><b>Summary:" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Move the "Word Count" after the "Pseud" With Selection.Find .Text = "(\(<[1-9]*[0-9]> words\))(\<br /\>^13\<b\>[P]*\<br /\>)" .Replacement.Text = "\2\1" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ' Add bold "Word Count" label. With Selection.Find .Text = "</a><br />(" .Replacement.Text = "</a><br />^p<b>Word Count:</b> " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Remove text following the numerical word count. ' Add line break to the end of the "Word Count" line. With Selection.Find .Text = " words)" .Replacement.Text = "<br />" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Add line with "Archived" label after "Summary". With Selection.Find .Text = "(\<p\>*\<p\>\<b\>*\</p\>)" .Replacement.Text = "\1^p^p<p><b>Archived:</b>" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ' Move link to AO3 page from "Title" line to "Archived" line. With Selection.Find .Text = "(\<a href="")(*works/*)(""\>)([A-Z]*Archived:\</b\>)" .Replacement.Text = "\4 \1\2\3\2</a></p>" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll ' Turn on Smart Quotes. With Options .AutoFormatAsYouTypeReplaceQuotes = True End With With Options .AutoFormatReplaceQuotes = False End With Options.LabelSmartTags = False End Sub

Installing the Macro:

Unfortunately, I'm only familiar with Word 2007, so if you are using a different version of Word you'll need to look elsewhere for installation tips.

There's probably a faster way of installing a Macro, but I can't think of it at the moment. Sorry!

1. Open Word 2007.
2. Record a new (placeholder) Macro.
1. Select the "View" tab.
2. Find the "Macros" panel.
3. Click the arrow under the Macros icon.
4. Select "Record Macro".
5. Name your Macro "AO3_Share_Fic".
6. If you want to assign a Keyboard Shortcut to the Macro, click the keyboard icon and do so. Otherwise click "Okay".
7. Click the arrow under the Macros icon.
8. Select "Stop Recording".
3. Replace the new Macro with the code I've provided.
1. Click the arrow under the Macros icon.
2. Select "View Macros".
3. Highlight the Macro that you just created.
4. Click "Edit".
5. Copy the Macro code that I've provided in the textarea above.
6. Highlight from "Sub AO3_Share_Fic()" to "End Sub" in your Macro editing window.
7. Replace the highlighted code with the code I've provided. In other words: Paste!
8. Save your Macro.
9. Close out of the Macro editing window.
4. Try out the Macro!

Using the Macro:

1. Copy-Paste the "Share" code from the AO3 work page into Word.
2. Run the Macro.
3. You're done!