Using VB.NET to add automatically macro code into word

Question

0.00/5 (No votes)

See more:

Okay i think everything looks good, i writed below code to button, when i click the button, word opens, but im getting error, and nothing on macro, here : https://i.ibb.co/KKZh2j2/Untitled.png




im getting, Programmatic access to Visual Basic Project is not trusted

What I have tried:

<pre>    Dim file1 As String
        Dim word = New Word
        word.Visible = True
        Dim doc = word.Documents.Open("C:\Users\wdqdwq\Desktop\file1.docx")
        Dim project = doc.VBProject
        Dim [module] = project.VBComponents.Add(vbext_ComponentType.vbext_ct_StdModule)
        Dim script = String.Format("Sub MacroTest() " &
    "Const path1 As String = ""{0}"" " &
    "Set doc1 = Documents.Open(path1) " &
    "End Sub", file1)
        [module].CodeModule.AddFromString(script)
        word.Run("MacroTest")

Posted 29-May-20 23:30pm

Member 14842313

Updated 30-May-20 3:22am

v4

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

phil.o · Answer 1 · 2020-05-29T23:50:00

Solution 1

Here's a way:
Insert and run macro into word using interop in c# - StackOverflow[^]

Posted 29-May-20 23:50pm

phil.o

Comments

Member 14842313 30-May-20 5:56am

i love you guys, can it also possible on VB.NET

phil.o 30-May-20 6:03am

Here's the snippet translated to VB.NET:

Imports System.Runtime.InteropServices
Imports Microsoft.Vbe.Interop
Imports Word = Microsoft.Office.Interop.Word.Application

Private Sub TheMethod()
    Dim file1, file2 As String
    Dim word = New Word
    word.Visible = True
    Dim doc = word.Documents.Open(file1)
    Dim project = doc.VBProject
    Dim [module] = project.VBComponents.Add(vbext_ComponentType.vbext_ct_StdModule)
    Dim script = String.Format("Sub MacroTest() " & _
"Const path1 As String = ""{0}"" " & _
"Set doc1 = Documents.Open(path1) " & _
"End Sub", file2)
    [module].CodeModule.AddFromString(script)
    word.Run("MacroTest")
End Sub

Member 14842313 30-May-20 6:10am

im getting error, here : Dim word = new Word With {.Visible = True

}

i tried this :
Dim word = New Word With & Visible = True

Still ihave this error :
https://i.ibb.co/Mn9BgjX/Untitled.png

phil.o 30-May-20 6:27am

I corrected the snippet.

Member 14842313 30-May-20 8:02am

thank u

Member 14842313 30-May-20 8:03am

but still some error here, on Word, it says Type expected

phil.o 30-May-20 8:07am

Try to replace each ampersand (&) with & VbCrLf &.

Member 14842313 30-May-20 8:22am

file1 and file2, how to use this, i mean this.

Member 14842313 30-May-20 8:13am

ah fixed, but, what i have to do with, File1 And File2, so i should add doc files into, Resources, and replace Files1 and 2 this code :

My.Resources.Filename

or Use "location of the doc"

phil.o 30-May-20 8:32am

You have to adapt the code to your specific situation, by giving these variables whatever values are relevant

Member 14842313 30-May-20 8:49am

yes but example, why i can't just use Only one File, and put macro code inside, why File1 and File2, so let's think about it little, we are using Dim File1 And File2 As String, why string, i added this code to button, when i click button, word is openning, but when i check macro code, nothing there, also im getting error from, File2, can i send source here, so u can check it?

phil.o 30-May-20 9:08am

The text of the macro as shown in my snippet is just an example. You have to modify it with the text of your own macro. file1 holds the path of the word document you want to write to, and file2 is only here because there was the need of its value in the example. You may not need the file2 variable.
And, if you have some code to share, please use the green "Improve Question" widget, and put it in the "What I have tried" section, using pre tag for code formatting.

Member 14842313 30-May-20 9:22am

done check again, i updated, so u can see more clear

phil.o 30-May-20 9:37am

Programmatic Access To Visual Basic Project Is Not Trusted

Member 14842313 30-May-20 9:29am

also i can pay you, just help us, give me full code, with button here, that write macro code on doc and build it

phil.o 30-May-20 9:35am

Nope, that does not work like that. If you want to hire a developper, CP is not the right place.

Member 14842313 30-May-20 10:10am

then can you do it for me with button , so we can fix the soulution

phil.o 30-May-20 10:30am

Sorry, no. While I like to help those who genuinely provide some thoughts and hard-working to their own tasks, I'm really not into doing others' work for them.

Richard MacCutchan · Answer 2 · 2020-05-29T23:51:00

Solution 2

Yes, it is possible. You need to use the Microsoft.Office.Interop.Word Namespace | Microsoft Docs[^]

Posted 29-May-20 23:51pm

Richard MacCutchan