adapt a VBA code for word to make it run in excel

[kuitogu67]

Hello, I have a macro that copies all the textboxes from excel into a word file.

After that, I would like to change the style of the textboxes internal text in word to "no spacing".

This is the code I am using. If I run it from word it works, but from excel it doesn't.

Any idea why?

    Sub SetTextBoxStyle()
      Dim objTextBox As Shape
      Dim objDoc As Document
      Set objDoc = WordApp.ActiveDocument
      For Each objTextBox In objDoc.Shapes
      If objTextBox.TextFrame.HasText Then
      objTextBox.TextFrame.TextRange.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
      objTextBox.TextFrame.TextRange.ParagraphFormat.SpaceAfter = 0
      End If
      Next objTextBox
    End Sub

 

[RoryA]

Welcome to the forum.

Please take a minute to read the forum rules on cross-posting, and then add the relevant links here to your posts in other forums on this topic. Thanks.

 

[kuitogu67]

Many thanks for the info, yes I also posted here:

Adapt a VBA code for Word and make it run from Excel

I have a vba code that runs in Word. However when I control Word from excel and run the code from excel it doesn't work. Any idea why? Sub SetTextBoxStyle() Dim objTextBox As Shape Dim objDoc As

stackoverflow.com