[讨论]帮忙！我运行的程序还有问题，我改了好久

hawk151

这段程序有几个问题我解决不了，请帮忙

'本程序具体采用的方法是：读取Microsoft Excel文件某一单元格区域里的某第j个字符属性（字体，大小，下划线、上、下脚标，倾斜，加粗）
'读取Microsoft Excel文件某一单元格区域里的某第j+1个字符属性，如果与第j个字符相同，则二者采用同样的控制符号；
'若不同，则从第j+1个字符开始，重复前面的工作。

Sub wz()
Char = RTrim(Left(c.Characters.Caption, 256))
If Char <> Empty Then
   textStr = ""
   For j = 1 To Len(Char)
  If c.Characters(j, 1).Font.Underline = xlUnderlineStyleNone Then

          cpt = c.Characters(j, 1).Caption
          sonstr = ForeFontStr(c, j)
          tempstr = ""
          Do While j + 1 <= Len(Char)
               sonstr1 = ForeFontStr(c, j + 1)
               If sonstr1 = sonstr Then
                  j = j + 1
                  tempstr = tempstr + c.Characters(j, 1).Caption
               Else
                  Exit Do
               End If
          Loop
          textStr = textStr + "{" + sonstr + cpt + tempstr + "}"
      Else
          cpt = c.Characters(j, 1).Caption
          sonstr = ForeFontStr(c, j)
          tempstr = ""
          Do While j + 1 <= Len(Char)
              sonstr1 = ForeFontStr(c, j + 1)
              If sonstr1 = sonstr Then
                 j = j + 1
                 tempstr = tempstr + c.Characters(j, 1).Caption
              Else
               
                 Exit Do
              End If
       Loop
           textStr = textStr + "{\L" + sonstr + cpt + tempstr + "\l}"
           
       End If
   Next j
End If
End Sub

hawk151

这个问题我解决不了，运行时出现问题

hawk151

byref参数类型不符，这是怎么回事，运行上述程序就是出现这个错误，错在那里了呢？为什么呢？