강조 단락

Question

코드 기울임 꼴 텍스트를 강조하는?
사실, 단락별로 단락을 복사하여 다른 문서에 붙여 넣기를 원합니다.

Answer 1

난 당신이 range.select

Sub Macro() 
Dim i As Integer 
    For i = 1 To ActiveDocument.Paragraphs.Count 
     Dim range As range 
     Set range = ActiveDocument.Paragraphs(i).range 

     'range.Characters.Count > 1 means there is text in the paragraph 
     If range.Characters.Count > 1 Then 
     'Handle the desired operation with the paragraph text 
      range.Select 
      MsgBox (range.Text) 
     End If 
    Next i 
End Sub 

을 찾고 생각