Vba не видит word

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Option Explicit
 
Public ObjectWord As Word.Application
 
Sub Main()
 
    Set ObjectWord = ThisDocument.Application
    
    ObjectWord.ScreenUpdating = False
 
    With ObjectWord.Selection.Fields(1).Code
        If .Text = "MACROBUTTON marr-not-marr marr" Then
            .Text = "MACROBUTTON marr-not-marr not marr"
        Else
            .Text = "MACROBUTTON marr-not-marr marr"
        End If
    End With
    
    ObjectWord.ScreenUpdating = True
 
End Sub

1
2

'при раннем связывании надо сначала подключить соответствующую библиотеку в референсах
'Проект > Ссылки > Microsoft Office 11.0 Object Library > выбрать > ОК

1

Set ObjectWord = ActiveDocument.Application

1
2
3
4
5
6
7

Private Sub Command1_Click()
'Creating a new object
Set objWord = New Word.Application
objWord.Visible = True
'Creating a new document
Set objDoc = objWord.Documents.Add
End Sub

1
2

Dim objWord As Word.Application
Dim objDoc As Word.Document

1
2
3
4

Private Sub Command5_Click()
  Set objWord = Word.Application
  Set objDoc = objWord.Documents.Open(App.Path & "HI.doc")
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

'Открытие документа
 Function OpenDocum()
Dim NumPart As Integer
Err.Clear
 
'Смена стрелки мышки на часы
Screen.MousePointer = 11
 
On Error GoTo Notloaded
 
'Проверка на открытие WORD - а
    Set MyWord = GetObject(, " Word.Application")
 
Notloaded:
'Если Word не открыт
 If Err.Number = 429 Then
' Открытие WORD - а
Set MyWord = CreateObject("Word.Application")
    ElseIf Err.Number <> 0 Then
'Выдается сообщение об ошибке
MsgBox Err.Description & vbCrLf & "Error"
Screen.MousePointer = 0
        Exit Function
    End If
'Отменяется показ документа на экране, все будет происходить невидимо для пользователя
MyWord.PrintPreview = False
 
'Открытие стандартного документа,созданного мной, как  document1 или document2……
 
MyWord.Documents.Add "c:blank.doc", False
 
'Преход в функцию для печати необходимого текста вдокумент
PrintReportinWord
 
End Function

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

Option Explicit
 
'при раннем связывании надо сначала подключить соответствующую библиотеку в референсах
'Проект > Ссылки > Microsoft Word 11.0 Object Library > выбрать > ОК
'объявляем глобально для видимости во всём проекте
Dim objWord As Word.Application
Dim objDoc As Word.Document
 
Sub Main()
 
    Set objWord = Word.Application
    Set objDoc = GetObject(, " Word.Application")
    
    objDoc.ScreenUpdating = False
 
    MsgBox$ objDoc.Fields.Count
        
    objDoc.ScreenUpdating = True
 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

Option Explicit
 
'при раннем связывании надо сначала подключить соответствующую библиотеку в референсах
'Проект > Ссылки > Microsoft Word 11.0 Object Library > выбрать > ОК
'объявляем глобально для видимости во всём проекте
Dim objWord As Word.Application
Dim objDoc As Word.Document
 
Sub Main()
 
On Error GoTo Notloaded
 
'Проверка на открытие WORD'а
    Set objDoc = GetObject(, " Word.Application")
 
Notloaded:
'Если Word не открыт
 If Err.Number = 429 Then
'Открытие WORD'а
Set objDoc = CreateObject("Word.Application")
End If
         
    objDoc.ScreenUpdating = False
 
    MsgBox$ objDoc.Fields.Count
        
    objDoc.ScreenUpdating = True
 
End Sub

1

Set objDoc = CreateObject("Word.Application")

1
2
3
4
5

Dim MyWord
Dim D As Object
 
    Set MyWord = GetObject(, "Word.Application")
Set D = MyWord.ActiveDocument

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

Option Explicit
 
'при раннем связывании надо сначала подключить соответствующую библиотеку в референсах
'Проект > Ссылки > Microsoft Word 11.0 Object Library > выбрать > ОК
'объявляем глобально для видимости во всём проекте
Dim objAsWordApplication As Word.Application
Dim objAsWordDocument As Word.Document
Dim objAsObject As Object
 
Sub Main()
 
 Set objAsWordApplication = Word.Application
 Set objAsWordDocument = GetObject(, "Word.Application")
 Set objAsObject = objAsWordDocument.ActiveDocument
 
    objAsObject.ScreenUpdating = False
 
    MsgBox$ objAsObject.Fields.Count
        
    objAsObject.ScreenUpdating = True
 
End Sub

1

Set objAsWordDocument = GetObject(, "Word.Application")

1
2
3
4
5
6
7
8

Private Sub Комманда1_Click()
Dim MyWord
Dim D
 Set MyWord = GetObject(, "Word.Application")
Set D = MyWord.ActiveDocument
 MyWord.ScreenUpdating = False
 Debug.Print MyWord.ScreenUpdating
End Sub

1
2
3

Private Sub Комманда1_Click()
Set MyWord = GetObject(, "Word.Application"): Set D = MyWord.ActiveDocument: MyWord.ScreenUpdating = False
End Sub