�X�L���A�b�v�E�������Ȃ�A���[�O�ɂ��܂����I

���߂܂��āA��낵�����肢�������܂��B
 
���܁AWord�������ɕ����̃e�L�X�g�{�b�N�X���z�u����Ă���A
���ꂼ��ɗ�O�Ȃ�
�y�w�Z�z�������w�Z
�y���O�z�������Z
�ƁA2�s�̕����񂪓��������œ��͂���Ă��܂��B
�����1�s�ڂ́y�w�Z�z�̍s�����t�H���g�ƃT�C�Y���܂Ƃ߂ĕύX�������Ǝv���Ă��܂��B
Split�𗘗p���čs���Ƃ̕�����擾�܂ł͍l�����ł����A
���̂��Ƃ̑��삪�A���낢�뒲�ׂĂ����f�ł��܂���B
�������������������B
 
Dim shp As Shape
Dim textBoxText As String
Dim myArray() As String
 
  Set doc = ActiveDocument
  
  For Each shp In doc.Shapes
      If shp.Type = msoTextBox Then
 �@�@�@textBoxText = shp.TextFrame.TextRange.Text
          myArray = Split(textBoxText, vbCrLf)
          ---------------------------
    End If
  Next shp
 
  Set doc = Nothing
  Set shp = Nothing
 
�Ȃ��A���z�Ƃ��Ă�
�u�������w�Z�v�����ׂāu�������v�ɕύX�������̂ł����A
����́A�ʓr���₩�Ǝv���Ă܂��B
�X�������肢�v���܂��B

���p:
Word�������������̃e�L�X�g�{�b�N�X���z�u����Ă���A

���p:
���ꂼ��ɗ�O�Ȃ�
�y�w�Z�z�������w�Z
�y���O�z�������Z
�ƁA2�s�̕����������������œ��͂���Ă��܂��B

���p:
�����1�s�ڂ́y�w�Z�z�̍s�����t�H���g�ƃT�C�Y���܂Ƃ߂ĕύX������

���p:
�u�������w�Z�v�����ׂāu�������v�ɕύX������

Sub SetFirstParagraphInShapes()
    
    Dim docTarget As Word.Document
    
    '�A�N�e�B�u�� Word �������Q��
    Set docTarget = ActiveDocument
    
    Dim shpLoop As Word.Shape
    Dim tfTarget As Word.TextFrame
    Dim prgFirst As Word.Paragraph
    Dim rngTarget As Word.Range
    
    '�����̕`�惌�C���[��̑S�Ă̐}�`���Q�Ƃ���
    For Each shpLoop In docTarget.Shapes
               
        '���C�A�E�g�g�̎Q��
        Set tfTarget = shpLoop.TextFrame
               
        '���C�A�E�g�g�ɕ����񂪑}������Ă���ꍇ
        If tfTarget.HasText = True Then
            '���� 1 �‚߂̒i�����Q�Ƃ���
            Set prgFirst = tfTarget.TextRange.Paragraphs(1)
        End If
        
        '1�‚߂̒i�����Q�Ƃł����ꍇ
        If Not prgFirst Is Nothing Then
            
            '���̒i���S�̂̕�����͈͂��Q��
            Set rngTarget = prgFirst.Range
            
            '�t�H���g�̐ݒ�
            With rngTarget.Font
                .Name = "�l�r ����"
                .Size = 12
            End With
            
            '[�����ƒu��]�̐ݒ�
            With rngTarget.Find
                .ClearFormatting
                .ClearAllFuzzyOptions
                .MatchByte = True
                .MatchCase = False
                .MatchFuzzy = False
                .MatchWholeWord = False
                .MatchWildcards = False
                .Forward = False
                With .Replacement
                    .ClearFormatting
                End With
                '������͈͂Ɋ܂܂�Ă�"���w�Z"��S��"��"�ɒu������
                .Execute FindText:="���w�Z", ReplaceWith:="��", Replace:=wdReplaceAll
            End With
            
            Set rngTarget = Nothing
            
        End If
        
        Set prgFirst = Nothing
        Set tfTarget = Nothing
    
    Next

    Set docTarget = Nothing

End Sub

���p:
�����1�s�ڂ́y�w�Z�z�̍s�����t�H���g�ƃT�C�Y���܂Ƃ߂ĕύX

Sub Sample()
  Dim shp As Shape

  For Each shp In ActiveDocument.Shapes
    shp.Select
    With Selection
      .HomeKey unit:=wdLine, Extend:=wdMove
      .Extend Character:=vbCr
      .Font.Name = "Arial"
      .Font.Size = 30
    End With
  Next
End Sub

sk�l�ASuzu�l�A
�񓚂��������A���肪�Ƃ��������܂��B
�܂��A�ԓ����x���Ȃ�\���󂲂����܂���B
 
sk�l�̃R�[�h���̂܂܂ŁA
�]�񂾒ʂ�̌��ʂɂȂ�܂����B
 
�����ԁA����ꓬ������������Ȃ��Ȃ邭�炢
����������������������A
�����Ɗ��ӂł��B
 
���肪�Ƃ��������܂����B