Microsoft Office Forums - View Single Post - ConmandButton dissappears when Content dispalyed on Page 1

SamDsouza · 08-09-2019, 05:57 AM

Hi

I just created an ActiveX command button on Page 1 of document to initilize userform
How can this be retained. ? because when clicking the command button of userform the document code overwrites and doest not display the command button as the content overwrites on page 1
any ideas if the document content is seen on Page 2. because on Page 1 i would just like the command button to retain

coding in thisDocument for CommandButton on Page1 of document

Code:

Private Sub cmdInitilizeuf_Click()
     Load userform1
    userform1.Show vbModeless
End Sub

in userform1 Coding

Code:

Private Sub cmdButton1_Click()
Dim objWord As Word.Application
Dim txtword As String
Dim objDoc As Document
Dim objRange As Range
Dim objTable As Table
Dim intRows As Integer
Dim intCols As Integer

    txtWord = "fsdhfkhfkdhfdskfhd fkdshfdkfhdskfhdsfd fdshgfdjdsjfg" & vbCr
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    Set objDoc = objWord.Documents.Add
    objDoc.Range.Text = txtWord
    Set objRange = objDoc.Range    
    objRange.Collapse Direction:=wdCollapseEnd
    intRows = 8: intCols = 5
    Set objTable = objDoc.Tables.Add(objRange, intRows, intCols)
    objTable.Borders.Enable = True
End Sub

Thanks SamD