컴퓨토피아

Sub AddFiles()
'
' AddFiles 매크로'
'
ChangeFileOpenDirectory _
  "https://sharepoint.contoso.com/sites/sharepoint/" & _
    "Shared%20Documents/SharePoint%20Tasks/"

  Documents.Open fileName:= _
    "https://sharepoint.contoso.com/sites/SharePoint/" & _
      "Shared%20Documents/SharePoint%20Tasks/" & _ 
      "Task001%20-%20Create%20a%20Team%20Web%20Site.docx", _
    ConfirmConversions:=False, _
    ReadOnly:=False, _
    AddToRecentFiles:=False, _
    PasswordDocument:="", _
    PasswordTemplate:="", _
    Revert:=False, _
    WritePasswordDocument:="", _
    WritePasswordTemplate:="", _
    Format:= wdOpenFormatAuto, _
    XMLTransform:=""

    Selection.WholeStory
    Selection.Copy
    Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
    Selection.PasteAndFormat (wdPasteDefault)
End Sub

void AppendFile(string file)
{
    if (string.IsNullOrEmpty(file)) return;

    Application app = Globals.ThisAddIn.Application;
    Document activeDoc = app.ActiveDocument;
    if (activeDoc == null) return;

    object fileObj = file;
    object confirmConversions = false;
    object readOnly = true;
    object addToRecentFiles = false;
    object passwordDocument = Missing.Value;
    object passwordTemplate = Missing.Value;
    object revert = true;
    object writePasswordDocument = Missing.Value;
    object writePasswordTemplate = Missing.Value;
    object format = Missing.Value;
    object encoding = Missing.Value;
    object visible = false;
    object openAndRepair = false;
    object documentDirection = Missing.Value;
    object noEncodingDialog = Missing.Value;
    object xMLTransform = Missing.Value;

    Document newDoc = app.Documents.Open(ref fileObj, 
        ref confirmConversions, ref readOnly, 
        ref addToRecentFiles, ref passwordDocument, 
        ref passwordTemplate, ref revert, 
        ref writePasswordDocument, ref writePasswordTemplate, 
        ref format, ref encoding, ref visible, 
        ref openAndRepair, ref documentDirection, 
        ref noEncodingDialog, ref xMLTransform);

    app.Selection.WholeStory();
    app.Selection.Copy();
    activeDoc.Select();
    object collapseEnd = WdCollapseDirection.wdCollapseEnd;
    app.Selection.Collapse(ref collapseEnd);
    app.Selection.Paste();

    object saveChanges = WdSaveOptions.wdDoNotSaveChanges;
    object originalFormat = WdOpenFormat.wdOpenFormatAuto;
    object routeDocument = Missing.Value;
    newDoc.Close(ref saveChanges, ref originalFormat, 
        ref routeDocument);
    object breakType = WdBreakType.wdPageBreak;
    app.Selection.InsertBreak(ref breakType);
}

private void btnCreateMaster_Click(object sender, 
    RibbonControlEventArgs e)
{
    Document activeDoc = Globals.ThisAddIn.Application.ActiveDocument;
    if ((activeDoc == null)) return;
    didSelect = false;
    dlgOpenFile.DefaultExt = ".TXT";
    dlgOpenFile.FileOk += 
        new System.ComponentModel.CancelEventHandler(
        dlgOpenFile_FileOk);
    dlgOpenFile.ShowDialog();
    if ((didSelect))
    {
        string selectedFile = dlgOpenFile.FileName;
        List<string> files = new List<string>();
        using (StreamReader inFile = File.OpenText(selectedFile))
        {
            string fileLine = inFile.ReadLine();
            while (fileLine != null && !inFile.EndOfStream)
            {
                if ((fileLine.Length > 0))
                {
                    // 비어 있지 않은 줄 처리                    files.Add(fileLine);
                }
                fileLine = inFile.ReadLine();
            }
        }

        if ((files.Count > 0))
        {
            AppendFiles(files);
        }
    }
}

private bool didSelect = false;
void dlgOpenFile_FileOk(object sender, 
    System.ComponentModel.CancelEventArgs e)
{
    didSelect = true;
}

void AppendFiles(List<string> files)
{
    foreach (string file in files)
    {
        AppendFile(file);
    }
}