Team,
I desperately need some assistance. I have no experience with VBA or C# but my supervisor has been deadset on having me rewrite in C# a tool originally written in VBA 10 years ago. I don't wish to point finger at my supervisor, rather, I'm just seeking assistance in order to make the best of the situation.
I've tried YouTube and Google for weeks but have been frustrated by the results, primarily due to my lack of experience with C#.
How can I translate the below to C#?
It's about 20 pages of code but I'm hoping getting this piece going will be the starting point I need.
What I have tried:
'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