粘贴后不需要的项目符号格式更改(Word 2016)

时间:2019-04-15 17:21:52

标签: vba ms-word

我正在丢失项目符号格式,无法从特定文件复制它。

有一个VBA代码,用于复制整个Word文档并将其粘贴到一个Word文档中。有一个问题,在某些源文件中,我们有一个方形的项目符号,该项目符号在粘贴到主文档后变成圆形。我试图使用“保留源格式”手动复制并粘贴它,但是没有任何运气。奇怪的是,从某些文档中粘贴不会丢失项目符号的格式。也许有一些解决方法可以使格式与源代码完全相同。

doc.Range.Copy
Set pasteBriefAt = template.Range
pasteBriefAt.InsertAfter (vbCrLf)
pasteBriefAt.End = pasteBriefAt.End - 1
pasteBriefAt.Collapse wdCollapseEnd
pasteBriefAt.Paste

source document

how it look like after pasting

1 个答案:

答案 0 :(得分:0)

您应该考虑使用FormattedText方法。例如:

#region character class
public class _Character
{
    public int Id { get; set; }
    public int Variation { get; set; }
    public string Name { get; set; }
    public string LastName { get; set; }
}
#endregion

//Tools.LoadCsv generates a string[,] from a csv file
//Tools.IntParse parses int's with a lot of format error checking

void Start()
    {
#region load characters class
        string[,] CharacterCSV = Tools.LoadCsv(@"Assets/GameDB/character.csv");
        List<_Character> Character = new List<_Character>();
        for (int i = 1; i < CharacterCSV.GetUpperBound(0); i++)
        {
            _Character temp = new _Character();
            temp.Id = Tools.IntParse(CharacterCSV[i, 0]);
            temp.Variation = Tools.IntParse(CharacterCSV[i, 1]);
            temp.Name = CharacterCSV[i, 2];
            temp.LastName = CharacterCSV[i, 3];

            Character.Add(temp);
        }

        CharacterCSV = null;
        #endregion
}