font problem after copy and paste

[elle0612]

Hi

I'm still on the same vba template document - testing it.

The new problem - if the user of my document copies and pastes a paragraph
into my document from another Word document, the font changes to Times New
Roman, when in their document it was Arial.

Now, the only Tmes New Roman I have in the template is in the header and
footer of the document. I imagine, that somehow, even though I thought I had
assigned the body of the document to arial, I haven't (the toolbar on the
face of the template document is assigned to arial, black, size 12. This is
the macro I am using, it runs depending on which option button is selected in
the modal userform,

Sub heading1()
'
' heading1 Macro
' Macro created 06/07/2007

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
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.font.Name = "Times New Roman"
Selection.font.Size = 10
Selection.font.Bold = True
Selection.font.Color = wdColorDarkBlue
Selection.TypeText Text:="blah"
Selection.TypeParagraph
Selection.TypeText Text:="blah"
Selection.TypeParagraph
Selection.font.Size = 9
Selection.font.Bold = False
Selection.TypeText Text:= _
"blah"
Selection.TypeText Text:=" blah"
Selection.TypeParagraph
Selection.TypeText Text:="blah"
Selection.InsertSymbol font:="Times New Roman", CharacterNumber:=244, _
Unicode:=True
Selection.TypeText Text:= _
"blah"
Selection.TypeText Text:="blah"
Selection.TypeParagraph
Selection.TypeText Text:= _
"blah"
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

How would you recommend going to black, arial size 12 within the body of the
document?

Thanks

 

[Graham Mayor]

How would you recommend going to black, arial size 12 within the body
of the document?

Use paragraph styles!

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[elle0612]

I think its sorted now - re-assigning Normal as Arial, 12 on the face of the
document seems to have done the trick. But it needs loads of testing I think
- the copy and paste worked fine from another document.

Thanks