学位论文写作遇到的问题

 1、

学位论文参考文献标准模板的示例遵循GB/T 7714-2015
写作时，使用支持双语同时显示“等”和“et al”的csl时需要修改语言，一般可以在Zotero【默认界面语言选择英文，然后全选右击，自动选择语言】，如果不行，可以下面为依据JavaScript语言批量修改的方法:
选中多个文献条目，在Tools（工具）-Developer（开发者）-Run JavaScript里面直接运行下面代码即可。

zoteroPane = Zotero.getActiveZoteroPane();
items = zoteroPane.getSelectedItems();
var rn=0; //计数替换条目个数
var lan="en"; //替换的语言
for (item of items) {
var la = item.getField("language");
if (la=="")  //如果为空则替换
 {item.setField("language", lan);
rn+=1;
 await item.saveTx();
}
if (la=="English")  //如果为English则替换
 {item.setField("language", lan);
rn+=1;
 await item.saveTx();
}
if (la=="en-US")  //如果为en-US则替换
 {item.setField("language", lan);
rn+=1;
 await item.saveTx();
}
if (la=="eng")  //如果为eng则替换
 {item.setField("language", lan);
rn+=1;
 await item.saveTx();
}
}
return rn+"个条目语言被替换为"+lan+"。"

　2、

word 插入题注后标签与编号间有一个空格，编号与标题之间没有空格！这显然不符合中文习惯。中文习惯应该是题注的标签与编号间没有空格，编号与标题之间有空格。可通过插入一段VBA宏代码解决这个问题。

视图->查看宏->新建宏 

粘贴下面代码，即可解决上述问题。

Sub InsertCaption()
    '功能：自动删除标签与编号间的空格，并在题注数字后添加一个空格，即将“图_1”变为“图1_”，“_”表示空格。
    '仅用于“图”和“表”标签，其他标签需要修改代码；宏代码在Word 2019上通过测试。
    '真正从原理上协同系统插入题注，无任何前提条件；用户照常插入题注即可，甚至感觉不到程序的存在！
    'LiangNN 2022年12月11日 参考网络代码，简化修改

    Dim startPt As Long, endPt As Long
    startPt = Selection.Start 'startPt标注起始点
    '插入“题注”对话框出来后，选择“图”或“表”标签，按“确定”结束则会执行以下程序。不要在对话框里输入标题！否则程序出错
    If Dialogs(wdDialogInsertCaption).Show = -1 Then '数字357同样表示wdDialogInsertCaption对话框
        Dim label As String
        label = Dialogs(357).label '获取插入题注时选择的标签
        endPt = Selection.Start 'endPt标记插入的题注部分终点
        Selection.Start = startPt '选定插入的整个题注
        '删除标签与编号间的空格
        With Selection.Find
            .Text = label & " "
            .Forward = True 'False=向上查找,(True=向下查找)
            .MatchWildcards = False '不使用通配符
            .Replacement.Text = label
            .Execute Replace:=wdReplaceOne '替换找到的第一个，此处用作删除空格
            endPt = endPt - 1 '删除空格后，末位减1
            Selection.Start = endPt '取消选中，将鼠标移动到编号后面
            Selection.End = endPt
            Selection.TypeText Text:="  " '编号后添加一个空格
        End With
        
        '设置字体为宋体五号，数字为Times New Roman五号
        Dim captionRange As Range
        Set captionRange = ActiveDocument.Range(startPt, endPt)
        captionRange.Font.Name = "宋体"
        captionRange.Font.Size = 10 '五号字体为10磅
        captionRange.Collapse wdCollapseEnd
        captionRange.Font.Name = "Times New Roman"
        captionRange.Font.Size = 10 '五号字体为10磅
    End If
End Sub