如何固定文本格式？

tyq998

因为工作因素，需要经常复制不同网站的新闻，并按照统一格式排版，每次是先复制标题，再复制文章内容，有没有在粘贴的时候就粘贴上我需要的格式？而不用在最后统一排版？

就有点像剪报一样，希望剪贴过来的文字黏贴时格式就固定了。

或者说可不可以自己新建一个模板，模板对标题和正文都分别规定好了格式，我只需要将文本直接贴入就行了。

所需求的格式文件见附件。

doitbest

1. Public Sub 自动格式化()
   
2. Dim str, i, n
   
3. For i = 1 To ThisDocument.Paragraphs.Count - 1
   
4.     If i = 1 Then
   
5.         n = n + 1
   
6.         str = str & n & "." & ThisDocument.Paragraphs(i).Range & ThisDocument.Paragraphs(i + 1).Range
   
7.         ThisDocument.Paragraphs(i).Range = n & "." & ThisDocument.Paragraphs(i).Range
   
8.         ThisDocument.Range(ThisDocument.Paragraphs(i).Range.Start, ThisDocument.Paragraphs(i + 1).Range.End - 1).Bold = True
   
9.     Else
   
10.         If ThisDocument.Paragraphs(i - 1).Range = vbCr Then
    
11.         n = n + 1
    
12.         str = str & n & "." & ThisDocument.Paragraphs(i).Range & ThisDocument.Paragraphs(i + 1).Range
    
13.         ThisDocument.Paragraphs(i).Range = n & "." & ThisDocument.Paragraphs(i).Range
    
14.         ThisDocument.Range(ThisDocument.Paragraphs(i).Range.Start, ThisDocument.Paragraphs(i + 1).Range.End - 1).Bold = True
    
15.         End If
    
16.     End If
    
17. Next
    
18. ThisDocument.Paragraphs(1).Range.InsertBefore (str & vbCr)
    
19. End Sub

复制代码

doitbest

每次执行文件中的宏就可以了