


Проблема с кодом VBA
Подскажите почему в Excel при выполнении макроса с документом Word при расширении .docx выдает ошибку на этой строке:
objWordDoc.SaveAs2 (Intersect(listobjTechs.ListRows(5).Range, listobjTechs.ListColumns("Value").DataBodyRange) & "\" & strNameFromTemplate & ".docx")
а при расширении .doc все нормально.
Часть кода(
If Right(objWordDoc.FullName, 1) = "x" Then
objWordDoc.SaveAs2 (Intersect(listobjTechs.ListRows(5).Range, listobjTechs.ListColumns("Value").DataBodyRange) & "\" & strNameFromTemplate & ".docx")
ElseIf Right(objWordDoc.FullName, 1) = "c" Then
objWordDoc.SaveAs2 (Intersect(listobjTechs.ListRows(5).Range, listobjTechs.ListColumns("Value").DataBodyRange) & "\" & strNameFromTemplate & ".doc")
)
какую ошибку то выдаёт?
Intersect - это что?
зачем использовано ветвление на базе расширения, если код один и тот же, просто добавить его в конец.
как код то воспроизводить, если его не дали полностью?