การโทร TypeText
บน Selection
จะแสดง "คำสั่งนี้ไม่พร้อมใช้งาน" ข้อยกเว้น
ด้านล่างคือรหัสของฉัน
public void AddFilePaths(List<string> urls)
{
if (urls.Count > 0)
{
MailItem mi = null;
bool newMailItem = false;
mi = MyAddIn.Application.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem);
mi.Body = "New email body";
newMailItem = true;
mi.Display();
inspector = MyAddIn.Application.ActiveInspector();
if (mi != null)
{
foreach (var url in urls)
{
AddPathToActiveInspector(urls);
}
}
}
}
public void AddLinkToCurrentInspector(string url)
{
var inspector = MyAddIn.Application.ActiveInspector();
var currMessage = inspector.CurrentItem;
Microsoft.Office.Interop.Word.Document word = currMessage.GetInspector.WordEditor;
dynamic wordapp = word.Application;
const string text = "\n"; // thisfor some reason will not add new line
Microsoft.Office.Interop.Word.Selection sel = word.Windows[1].Selection;
sel.TypeText(text); // this often errors
string address = url;
string subAddress = "";
string screenTip = "";
string textToDisplay = url;
wordapp.ActiveDocument.Hyperlinks.Add(sel.Range, ref address, ref subAddress, ref screenTip, ref textToDisplay);
if (word.ProtectionType != Microsoft.Office.Interop.Word.WdProtectionType.wdNoProtection) word.Unprotect();
sel.TypeText(" ");
}