我收到了一位用户的请求,要求在Outlook中创建一个宏。
他的要求是使用粗体,突出显示和斜体的电子邮件标题。
我们能够完成这一部分,但他还要求光标最终位于标题下方的电子邮件正文中,准备使用常规格式选项(字体,大小,颜色)输入文本。
目前,当我们的宏运行时,光标最终会出现在电子邮件标题的开头。
如果将光标移动到标题下方的行,则文本仍为粗体和斜体。
有没有办法在插入标题后重置文本格式,是否有办法指定光标最终位于标题下方?这是我们到目前为止所提出的:
Sub Testmacro2()
Dim olApp As Outlook.Application, olEmail As Outlook.MailItem, signature As String
Set olApp = CreateObject("Outlook.Application")
Set olEmail = olApp.CreateItem(0)
With olEmail
.Display
End With
signature = olEmail.HTMLBody
With olEmail
.HTMLBody = "<HTML><BODY><span style='background:yellow;mso-highlight:yellow'><em><b><p style=font-size:14pt>Privileged & Confidential Attorney Client Communication & Work Product.</b></em><br></span></BODY></HTML>" & vbNewLine & signature
End With
Set olEmail = Nothing
Set olApp = Nothing
End Sub
答案 0 :(得分:0)
您需要使用@RunWith(SpringRunner.class)
@SpringBootTest
public class CommitTest {
@Autowired
TestRepo repo;
@Transactional
@Commit
@Test
public void testCommit() {
repo.createPerson();
System.out.println("I want a commit here!");
// ...
System.out.println("Something after the commit...");
}
}
@Repository
public class TestRepo {
@Autowired
private PersonRepository personRepo;
@Transactional(propagation = Propagation.REQUIRES_NEW)
public void createPerson() {
personRepo.save(new Person("test"));
}
}
(返回Inspector.WordEditor
对象的实例),即Word.Document
。
可以从Inspector.WordEditor.Application.Selection
检索检查器对象。