This week's message at the neighborhood ELCA clearinghouse for tacky church sign slogans:REAL HEROES DON'T SAVE THE WORLD -- THEY SERVE IT
All right... So when are you going to come right out and say that Jesus isn't real?
a long-running blog about books, music, theology, hymnody, and more
It's the kind of music-to-your-mouth that every Mom has to learn to play by ear.If ActiveWindow.View.SplitSpecial <> wdPaneNone ThenROUGH: To add the effect of a rubber stamp saying "ROUGH #1" to the top of the page (which can be edited after being inserted to show whatever Rough Number you want):
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Application.DisplayAutoCompleteTips = True
NormalTemplate.AutoTextEntries("Filename and path").Insert Where:= _
Selection.Range, RichText:=True
Selection.TypeParagraph
Selection.TypeText Text:="Page "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
Selection.TypeParagraph
Selection.WholeStory
With Selection.Borders(wdBorderTop)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderLeft)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderBottom)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderRight)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveDocument.Shapes.AddTextEffect(msoTextEffect2, "ROUGH #1" & Chr(13) & "" & Chr(10) & "__ Approved by KS", _PASTE NO FORMAT: To paste from the clipboard without keeping the format of the document it was copied from (i.e., without changing the format of the insertion point):
"Arial Black", 24#, msoFalse, msoFalse, 232.1, 107.25).Select
Selection.ShapeRange.TextEffect.PresetShape = msoTextEffectShapeSlantDown
Selection.ShapeRange.WrapFormat.Type = wdWrapTight
Selection.ShapeRange.ScaleWidth 0.62, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:=wdInLine, DisplayAsIcon:=FalseFLIP QUOTE MARKS: When, after pasting a section of text copied from another document, you need to change all the double-quotes into single and all the single-quotes into double:
Selection.Find.ClearFormattingNOTE: You may have some trouble with apostrophes on this one.
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "'"
.Replacement.Text = "@@"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = """"
.Replacement.Text = "'"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "@@"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.ParagraphFormatFOOTNOTE: To insert a footnote, placing the reference number at the insertion point:
.LeftIndent = InchesToPoints(0.5)
.RightIndent = InchesToPoints(0.5)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = InchesToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
End With
With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _COLUMN BREAK: When typing on a page formatted in two or more columns, to insert a hard column break at the insertion point:
ActiveDocument.Content.End)
With .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
End With
.Footnotes.Add Range:=Selection.Range, Reference:=""
End With
Selection.InsertBreak Type:=wdColumnBreakEXTREME EMPHASIS: To convert selected text into all caps, bold type, and word-only underline:
Selection.Font.Bold = wdToggleLIGHT YELLOW SHADING: To create a "yellow highlighting" effect over the selected text, one that leaves the text looking very readable when printed on a color laserjet:
If Selection.Font.Underline = wdUnderlineWords Then
Selection.Font.Underline = wdUnderlineNone
Else
Selection.Font.Underline = wdUnderlineWords
End If
Selection.Font.AllCaps = wdToggle
Selection.Shading.Texture = wdTextureNoneLIGHT GREEN SHADING: Ditto, only with a green highlighting effect:
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = wdColorLightYellow
Selection.Shading.Texture = wdTextureNoneLIGHT BLUE SHADING: Ditto, only with a blue highlighting effect (which, I find, is easier to see on paper than on the monitor):
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = wdColorLightGreen
Selection.Shading.Texture = wdTextureNoneORANGE SHADING: Ditto, only rather like an orange highlighter:
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = wdColorLightTurquoise
Selection.Shading.Texture = wdTextureNonePINK SHADING: Ditto, only with pink highlighting:
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = wdColorTan
Selection.Shading.Texture = wdTextureNonePURPLE SHADING: Ditto, only with purple highlighting:
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = 16764159
Selection.Shading.Texture = wdTextureNoneNOTE: I'm sure these "shading" macros can be tweaked to suit the color calibration of your monitor and/or printer. I recorded them so that I could "flag" paragraphs of research material for up to 6 different topics of interest.
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = 16764108
Selection.Font.Bold = wdToggleGREEN BOLD: To achieve the same effect, only with green type:
With Selection.Font
.Name = "Times"
.Size = 12
.Bold = True
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorRed
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
The duplicity of Napoleon worries Captain Lord Nicholas Ramage on a more personal level. Though the heat of his passion for the Marchesa of Volterra has cooled to something like the love between brother and sister, and though noblesse oblige rules out the possibility of marriage between the heir to a Protestant earldom and the ruler of a Catholic state, Nicholas worries about Gianna. He worries that the deceptive nature of the peace, together with the unclear status of Volterra, may make this new freedom to travel on the Continent a trap for Gianna. In spite of his best efforts to convince her otherwise, Gianna insists on traveling home to Volterra. And before Ramage can learn what will become of her, he is ordered away by the Admiralty on a peacetime mission that may give Britain an advantage in the next war.
This seems a very straightforward mission. But it turns out to be filled with exciting incident. First there is the drunken fraud of a ship's chaplain, who threatens to destroy the morale of the crew before he is exposed. Then there is an encounter with a dangerously mad frigate captain, the first of at least three such cases in successive books, illustrating a sticking point in Britain's Articles of War in that there is virtually no way to remove a captain from command. And finally, in a harbor on Ilha da Trinidade, the Calypsos find a privateer with a string of prizes taken (allegedly) before the news of peace reached them. Which side of the fine line between privateering and piracy they stand on, becomes clear when they hold off the Calypsos by threatening to kill the passengers of the captured merchantmen. The resulting tense standoff, like a hostage crisis with boats, culminates with a swashbuckling rescue, complete with a gravely wounded Ramage swooning in the arms of the newfound love of his life.
1803. After a year of peace, war is on again between France and Britain. The sudden renewal of hostilities catches Royal Navy Capt. Nicholas Ramage and his bride Sarah in the middle of their honeymoon in France, guests of a nobleman who, just as suddenly, is arrested and sentenced to be transported to the notorious penal colony of Devil's Island. And a certain upstart First Consul, soon to become Emperor Napoleon I, demonstrates his barbarism by ordering the arrest of all British subjects caught on French soil—including civilians, and even women—in a radical break with the hitherto conventions of civilized warfare.
I've already given away enough of this book's points of interest, if not too many. Let it suffice to say that to love the Lord Ramage series is to love this book, combining an attractive set of characters, modeled on present-day dramatic ideals, with daring naval exploits realistically depicted according to the maritime practices of the period—and what a fascinating period!
And just when Capt. Nicholas Ramage is on fire to get home, the port admiral puts him in charge of a large merchant convoy.
The really bad news is that the presiding officer at Ramage's trial is none other than Rear-Admiral Goddard, a man who has carried a political vendetta against Ramage's family since Nicholas was a child. Goddard has already done his utmost to destroy Ramage, and now with the authority to dictate the rules of evidence at Ramage's trial, he really seems to have our protagonist in his power. It is heartbreaking to see the spirit die within Ramage as he faces the virtual inevitability of his conviction, which Goddard has ensured by ruling out of order any defense he can possibly give. But neither Goddard nor Ramage has reckoned on the efficacy of one furious, strong-willed girl, nor on the surprise testimony of the one witness who has nothing to lose.
when Tyrone the cat--he of the "dart out into the hallway and roll on the upstairs neighbor's welcome mat" game--shot through the opening like a projectile.
Buy 3 bottles of Chili Sauce, a 34-ounce tub of Welch's Grape Jelly, and as many bags of home-style frozen meatballs as you reckon will go into a crock-pot. (If given a choice between "Italian-style" and something else, go with something else.) Let the meatballs thaw in the refrigerator, inside the sealed bag. A couple hours before serving, combine the ingredients in a crock pot and gently heat them so that by dinnertime they are bubbling nicely.
This week's message at the neighborhood ELCA Temple of Lighted-Sign Tackiness: