Use the Font property
use a variable to assign the current font style to it
ActiveDocument.Select
fontname = Selection.Font.Name
Then when you copy and paste from the template
With Selection
.Font.Name = fontname
End With
Rich
Luis,
I still am not exactly certain what you are trying to do but the following code will create a custom menu for you and I would suggest, like Rob did, to put your macro within the Add-In, make it a different module within the add-in. The last bit of code starting with Private Sub...
I know this may not be the cleanest way to do this but you could add the ' to the front.
Range("A1").value = "'some string"
Set c = Range("A1")
x = "'" & c
Not the most favorable way but will work
Rich
Create a module with the code below and name it Test.
Create a macro with the name of AutoExec. In the macro design screen, choose RunCode and at the bottom under Action Arguments in the Function Name type in AutoExec(). Save the database file and then open it back up. Your message box will...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.