Wsrtjtyk

I have many occasions that I have to copy article from web-page, paste to word and format in a certain way. I had this code to auto paste and format. However, it only work once, and it just doesn't change the font of the pasted article later on.

Sub Macro1()



    Dim artic As Word.Range

    Set artic = Selection.Range

         'keep bold word bold and avoid paragraphs to cluster into one 

    artic.PasteAndFormat (wdFormatOriginalFormatting)

         'paste and select pasted article

    artic.Select

    artic.Font.Name = "Calibri"

    artic.Font.Size = 10.5

    artic.Font.Italic = False

    artic.ParagraphFormat.Alignment = wdAlignParagraphLeft



End Sub

If you set a breakpoint at artic.Font.Name = "Calibri" so that the code stops after artic.Select you'll see that the Paste method does not include what's been pasted. Generally, artic will be at the beginning of the pasted content.

This means the code needs to be able to locate the position just after where the Selection was before pasting. It also depends on whether the paste occurs at the end of the document, or not.

The following sample code worked for me in my tests. It uses two Ranges: one for where the content will be pasted, the other for the end position after pasting.

(Responding to request for more clarification about the Word object model): Think of a Range object like a selection, with the difference that there can be many Range objects, but only one Selection. When manipulating a Range it often helps to think of using the keyboard to reduce or expand it. Pressing the left- or right-arrow keys will "collapse" a selection to an insertion point; holding Shift and pressing these keys will expand/reduce a selection; holding Shift while clicking somewhere else in the document will also do that. Think of setting Range.Start or Range.End as the equivalent of this last. The start or end point of the Range is being arbitrarily set to another location in the document.

In the case of the first If in the code below the Range is being reduced/collapsed to its starting point (think left-arrow key), then moved one character to the right (think right-arrow key). This puts it beyond where new material will be pasted, so extending the paste point's end to this Range's starting point will pick up everything between the two.

Sub TestPasteAndSelect()

    Dim artic As Word.Range, rng As Word.Range

    Dim bNotAtEnd As Boolean



    Set artic = Selection.Range

    Set rng = artic.Duplicate

    rng.End = ActiveDocument.content.End

    If rng.Characters.Count > 1 Then

        'selection is not at end of document

        rng.Collapse wdCollapseStart

        rng.MoveStart wdCharacter, 1

        bNotAtEnd = True

    End If

         'keep bold word bold and avoid paragraphs to cluster into one

    artic.PasteAndFormat (wdFormatOriginalFormatting)

         'paste and select pasted article



    'artic.Select

    'rng.Select

    If bNotAtEnd Then

        artic.End = rng.Start

    Else

        Set artic = rng.Duplicate

    End If

    artic.Font.Name = "Calibri"

    artic.Font.Size = 10.5

    artic.Font.Italic = False

    artic.ParagraphFormat.Alignment = wdAlignParagraphLeft

End Sub