Pergunta : Precisar de converter o lotusscript ao trabalho com Macintosh

Olá!, necessidade do

I de converter o seguinte código (de trabalho) de modo que trabalhe para um usuário de Macintosh.  Eu nunca usei-me/lotusscript testado em um Mac antes que assim eu não esteja mesmo certo que é possível.  A maioria do seguinte código não é a mina, mas o que faz é toma todos os originais de uma opinião dos lótus e exporta-os em prima.  Eu então tenho o código a formatar/modifico primar doc para olhar a maneira que os usuários a querem.  Eu li que há umas diferenças chaves no lotusscript em um Mac do que em um PC tal como o

Currently dos trajetos da movimentação/trajetos do dobrador/etc. o erro dado é “operação não suportada nesta plataforma.” Como eu disse, eu não sou certo se este será mesmo possível em um Mac, mas todo o conselho e ou mudado qualquer um pode me dar apreciaria! class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
clique notpretty do >Sub " do class= " de " codeSnippet742333 do id= do 
True então 'não incluem colunas do ícone
			Se o """ do """ 1 de c.Formula<> e c.Formula<> " 1 " então 'não incluem as colunas que estão usadas contando docs (o total)
				colcounter=colcounter+1
				DataArray (row-1, colcounter-1) =c.Title
				VColumns (Cstr (NC))=Cstr (NC)
			Terminar se
		Terminar se
		cn=cn+1
	Terminar Forall
	Conserva DataArray de Redim (0, colcounter-1) como a corda
	xlsheet. Escala (“A1”). Resize (1, colcounter). O valor = DataArray 'ajustaram nomes de coluna
	Redim DataArray (rowsatonce-1, colcounter-1) como a corda
	row=2
	x=0
	Ajustar doc = view.GetFirstDocument
	Quando não (o doc é nada)
		Coluna de Forall em VColumns
			"" do currentvalue=
			tempval= doc.ColumnValues (Val (coluna))
			Se Isarray (tempval) então
				Forall v em tempval
					Se "" do currentvalue= então
						currentvalue=v
					Mais
						currentvalue=currentvalue+ ", “+v
					Terminar se
				Terminar Forall
			Mais
				currentvalue=tempval
			Terminar se
			x=x+1
			=currentvalue de DataArray (arrcounter, x-1)
		Extremidade Forall
		x=0
		row=row+1
		arrcounter=arrcounter+1
		Se arrcounter/rowsatonce=arrcounter \ rowsatonce e arrcounter<>0 então
			xlsheet. Escala (“A " +Cstr (arrcnt*rowsatonce+2)). Resize (rowsatonce, colcounter). Valor = DataArray
			arrcnt=arrcnt+1
			arrcounter=0
			Redim DataArray (rowsatonce-1, colcounter-1) como a corda
		Terminar se
		Ajustar doc = view.GetNextDocument (o doc)
	Wend
	
	Se arrcounter/rowsatonce<>arrcounter \ rowsatonce e arrcounter>0 então
'Conserva DataArray de Redim (arrcounter, colcounter-1) como a corda
		xlsheet. Escala (“A " +Cstr (arrcnt*rowsatonce+2)). Resize (arrcounter, colcounter). Valor = DataArray
	Terminar se
	
	xlsheet. Cells.Select
	xlsheet. Cells.EntireColumn.AutoFit
	xlsheet. Fileiras (“1: 1”). Seleto
	o xlapp. Selection.Font.Bold = retifica
	xlapp. Selection.Interior.Pattern = 1
	xlapp. Selection.Interior.PatternColorIndex = -4105
	xlapp. Selection.Interior.ThemeColor =3
	xlapp. Selection.Interior.TintAndShade = 0
	xlapp. Selection.Interior.PatternTintAndShade = 0
	xlapp. Selection.RowHeight = 41.25
	deslocamento do xlapp. Selection.Insert = -4121
	xlapp. Escala (“A1”). Seleto
	xlapp.ActiveCell.FormulaR1C1 = Datevalue (agora)
	xlapp. Escala (“B1”). Seleto
	xlapp.ActiveCell.FormulaR1C1 = “status de varejo do pedido do projeto”
	xlsheet. Fileiras (“1: 1”). Seleto
	o xlapp. Selection.Font.Bold = retifica
	xlapp. Selection.Interior.Pattern = 1
	xlapp. Selection.Interior.PatternColorIndex = -4105
	xlapp. Selection.Interior.ThemeColor =3
	xlapp. Selection.Interior.TintAndShade = 0
	xlapp. Selection.Interior.PatternTintAndShade = 0
	xlapp. Colunas (“A: ”) .ColumnWidth = 10.14
	
	Msgbox “feito”
Submarino da extremidade
class= do

Resposta : Precisar de converter o lotusscript ao trabalho com Macintosh

Você instalou a sustentação VELHO?
Outras soluções  
 
programming4us programming4us