馆7：文章标准化LaTex

LaTex工具

网址：https://www.overleaf.com/login

https://github.com/gdzhou14/wenji

转换工具

Sub wz()
mb = Worksheets("bc").Cells(2, 1).Value
mb2 = Worksheets("bc").Cells(2, 2).Value

Title = Worksheets("wz").Cells(3, 2).Value
Name = Worksheets("wz").Cells(4, 2).Value
class = Worksheets("wz").Cells(5, 2).Value & "（" & Worksheets("wz").Cells(6, 2).Value & "）班"

tutor = Worksheets("wz").Cells(7, 2).Value
date1 = Worksheets("wz").Cells(8, 2).Value
date2 = Worksheets("wz").Cells(9, 2).Value
zw = Worksheets("wz").Cells(13, 2).Value
pic = Worksheets("wz").Cells(10, 2).Value

piclink = Worksheets("wz").Cells(11, 2).Value


date1 = Replace(date1, "2021/", "2021年")
date2 = Replace(date2, "2021/", "2021年")

date1 = Replace(date1, "/", "月")
date2 = Replace(date2, "/", "月")

date1 = date1 & "日"
date2 = date2 & "日"

m = Replace(mb, "@title@", Title)
m = Replace(m, "@name@", Name)
m = Replace(m, "@main@", zw)
m = Replace(m, "@class@", class)
m = Replace(m, "@tutor@", tutor)
m = Replace(m, "@pic@", pic)
m = Replace(m, "@date1@", date1)
m = Replace(m, "@date2@", date2)
out = Replace(pic, ".jpg", ".tex")
out2 = Replace(pic, ".jpg", ".csv")


Open ThisWorkbook.Path & "\" & out For Output As #1
Print #1, m
Close #1

m = Replace(mb2, "@title@", Title)
m = Replace(m, "@name@", Name)
m = Replace(m, "@main@", zw)
m = Replace(m, "@class@", class)
m = Replace(m, "@tutor@", tutor)
m = Replace(m, "@pic@", pic)
m = Replace(m, "@date1@", date1)
m = Replace(m, "@date2@", date2)
m = Replace(m, "@piclink@", piclink)
out = Replace(pic, ".jpg", ".tex")
out2 = Replace(pic, ".jpg", ".csv")

out3 = Replace(pic, ".jpg", ".txt")
out4 = Replace(pic, ".jpg", "_c.txt")

Open ThisWorkbook.Path & "\" & out3 For Output As #1
Print #1, m
Close #1

'cc = "\input{c/" & out & "}"

Open ThisWorkbook.Path & "\" & out4 For Output As #1
Print #1, "\input{c/" & out & "}" & "%" & Name & "：" & Title
Close #1



    'Dim fName As String
    'fName = ActiveWorkbook.Path & "\" & out2
    'ActiveWorkbook.SaveAs Filename:=fName, _
        'FileFormat:=xlCSV, CreateBackup:=False


End Sub

Sub fy()

Worksheets("wz").Cells(12, 1).Value = ""
For i = 3 To 10
    Worksheets("wz").Cells(i, 2).Value = ""
Next

End Sub