Нужна помощь в переводе VBA на C#
Команда,
Мне отчаянно нужна помощь. У меня нет опыта работы с VBA или C#, но мой руководитель был настроен на то, чтобы я переписал на C# инструмент, первоначально написанный на VBA 10 лет назад. Я не хочу указывать пальцем на своего начальника, скорее, я просто ищу помощи, чтобы извлечь максимальную пользу из ситуации.
Я пробовал YouTube и Google в течение нескольких недель, но был разочарован результатами, в первую очередь из-за отсутствия опыта работы с C#.
Как я могу перевести нижеприведенное на C#?
Это около 20 страниц кода, но я надеюсь, что эта часть будет отправной точкой, которая мне нужна.
Что я уже пробовал:
'make A020 word document Sub makeA020() Application.ScreenUpdating = False Call progress(0, "Initializing", "Making CDRL A020") Call setConstants 'prep Sheet Call progress(5, "Prepping Sheet") releaseName = importSheet.Range("A3").text versionName = importSheet.Range("A2").text svdVersion = openSVD(releaseName) 'open template Call progress(10, "Opening Template") Set wordApp = makeWordApp wordFileName = "\\intranet\busunits\Intel\CPASC\System%20Test\CDRLs\A020%20Software%20Test%20Report%20(STR)\CPASC-A020-STR-Main-Template.docx" FileCopy wordFileName, Environ("Temp") & "\CPASC-A020-STR-Main-Template.docx" wordFileName = Environ("Temp") & "\CPASC-A020-STR-Main-Template.docx" Set wordDoc = wordApp.Documents.Open(wordFileName) Call progress(15, "Fixing Bookmark Colors") Call fixBookmarkColors(wordDoc) Call fillReleaseNameAndDate(wordDoc, releaseName) 'fill svd version # Call progress(25, "Filling SVD") wordDoc.bookmarks("ccscVer").Range.text = "Version " & svdVersion & "." Call clearCDRLJunk("a020", wordDoc) Call getAccessData Call clearJunkData(wordDoc) Call makeTestLog(wordDoc, svdVersion) Call getTestsFromA019(wordDoc) Call fillA020Tests(wordDoc) Call handleFouo(wordDoc) Call handleWitnesses(wordDoc) Call progress(80, "Updating Table of Contents") Call updateTOC(wordDoc) Call a020Deviations(wordDoc) Call testResultSummary(wordDoc) Call problemsEncountered(wordDoc) Call handleA020Security(wordDoc) Call fillNewIssues(wordDoc) Call deleteSheet Call makeA020Folders(wordDoc, releaseName) Call thisVersion(versionName, releaseName) 'cleanup Call progress(98, "Cleaning Up") Set wordDoc = Nothing Call pauseTime(2) wordApp.Quit Application.ScreenUpdating = True Call progress(100, "A020 Generation Complete") Exit Sub logit: Call oopsie("makeA020") End Sub