社区 › VBA/VB/ActiveX/API 编程技术 › [讨论]帮忙！我运行的程序还有问题，我改了好久

hawk151 发表于 2003-6-13 22:06:00

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

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

'本程序具体采用的方法是：读取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 发表于 2003-6-20 10:50:00

大家帮帮忙，

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

hawk151 发表于 2003-6-20 10:57:00

热

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

查看完整版本: [讨论]帮忙！我运行的程序还有问题，我改了好久