[CDR X5-X8] Нужна помощь в создании кода для кнопки макроса

[dastin]

поставил Dim gc

Dim gs As String

 

[elshad66]

splxgf . есссс ,огромное спасибо сработало))​

 

[_MBK_]

не сработало

Все сработало
У вас именно строгий синтаксис, пообьявляйте все переменные и будет вам счастье

dim s
dim ss

 

[splxgf]

Dim gs As String

зачем стринги, варианты тоже нормально работать будут. и имена переменных лучше не коверкать, а то отлажка будет дольше.

 

[elshad66]

вот так сработало

 

[dastin]

будет дольше

да ... стринги "в топку"

 

[_MBK_]

Льву высказываем всеобщее "фи" за неаккуратный код

 

[elshad66]

все вставляется , но станок не запускается, а если копировать и вставить то запускается

 

[elshad66]

что то с форматом текста кажись

 

[_MBK_]

что то с форматом текста кажись

Скорее всего переводы строк слепило
Вставьте при суммировании принудительно

 

[_MBK_]

ss = ss & chr(10) & chr(13) & s

 

[elshad66]

левый оригинал а с права так как импортировалось

 

[_MBK_]

- Доктор, меня все игнорируют
- Следующий!

 

[elshad66]

ss = ss & chr(10) & chr(13) & s это куда вставить ,после чего?

или в место ss = ss & s <<<<<< этого s вписать chr(10) & chr(13) & s ?

 

[dastin]

или в место

 

[elshad66]

все отлично, сработало)))))) ,еще такой вопрос ,но не очень важный, пробелы меж строк ,можно убрать ?

 

[dastin]

Chr(10)- это символ перевода строки и Chr(13)символ возврата каретки
т.е. по факту - клавиша Enter жмётся два раза,
НО

Исторически сложилось так, что перевод строки перемещался вниз по строке, но не возвращался в столбец 1:

Точно так же возврат каретки вернется в столбец 1, но не переместится вниз по строке:

попробуйте оставить только Chr(10)

 

[elshad66]

ессссс ,спасибо, то что надо, ты крассава брат

 

[_MBK_]

Ну я с запасом сделал оба, я ж не знаю какой именно символ станок воспринимает как разделитель или сразу все

 

[elshad66]

все отлично, все работает как надо, внук всем большое спасибо передает, избавили его от лишних телодвижений