Can I create a SharePoint account to do this?

Note, your code puts your textbox, not in-line-with text, in the top right corner of your document. If that is where you want it, the building block can create it there.

You still have not explained why you want to do this with a macro.

I know of no way to, using vba, directly insert a content control mapped to that node. someone else may. The only way I can do it is using a Building Block.

How can i do this? I use the online Version. Does this have anything to do with it?

Hi Georgi,

This could be the reason - I've verified the domain I wanted to use in Azure AD.

Is there a way I can migrate existing personal accounts to Azure AD accounts, which all the services e.g. Skype credit and so on?

So I've basically three options, use a different domain, create an Azure AD account for my daughter with the desired email or delete the domains in Azure Portal.

Right?

Thx,

Daniel

ich benötige die Abfangungen für angelegte Ordner und Dateien.

Was bitte soll das sein? Ich rate mal...

Andreas.

#Const Develop = True

Private Sub Example_FolderCreate()

  Dim Data, Index, This

  Dim i As Long

  Dim Folder As String

  'Read in all values

  Data = Range("A1").CurrentRegion.Value

  'Create a row pointer for each column

  ReDim Index(1 To UBound(Data, 2))

  'Create an array for the folder items

  ReDim This(0 To UBound(Data, 2))

  'Main path

  This(0) = ThisWorkbook.Path

  

  'Initialize

  For i = 1 To UBound(Data, 2)

    Index(i) = 1

  Next

  

  Do

    'Copy the items into our array

    For i = 1 To UBound(Data, 2)

      This(i) = Data(Index(i), i)

    Next

    'Create the path

    Folder = Join(This, "\")

#If Develop Then

    Debug.Print Folder

#Else

    'Create it on disk

    If Not FolderCreate(Folder) Then

      MsgBox Folder, vbCritical, "Can not create:"

      Exit Sub

    End If

#End If

    'Find next item

    i = UBound(Data, 2)

    Do

      'Last row?

      If Index(i) = UBound(Data) Then

EndRow:

        'Start this column again from first row

        Index(i) = 1

        'Go one column left

        i = i - 1

        'Done?

        If i < 1 Then Exit Sub

      Else

        'Next row

        Index(i) = Index(i) + 1

        'Empty?

        If IsEmpty(Data(Index(i), i)) Then

          'Start over

          GoTo EndRow

        Else

          'Create this one in the next round

          Exit Do

        End If

      End If

    Loop

  Loop

End Sub

Function FolderCreate(ByVal Path As String) As Boolean

  'Creates a complete sub directory structure

  Dim Temp, i As Integer

  On Error GoTo ExitPoint

  If Dir(Path, vbDirectory) = "" Then

    If Right$(Path, 1) = "\" Then Path = Left$(Path, Len(Path) - 1)

    If Left$(Path, 2) = "\\" Then

      i = InStr(3, Path, "\")

      Temp = Split(Mid$(Path, i + 1), "\")

      Temp(0) = Left$(Path, i) & Temp(0)

    Else

      Temp = Split(Path, "\")

    End If

    Path = ""

    For i = 0 To UBound(Temp)

      Path = Path & Temp(i) & "\"

      If Dir(Path, vbDirectory) = "" Then MkDir Path

    Next

  End If

  FolderCreate = True

ExitPoint:

End Function

Function FolderDelete(ByVal Path As String) As Boolean

  'Deletes a complete sub directory structure

  Dim This As String

  Dim Temp, i As Integer

  On Error GoTo ExitPoint

  If Right$(Path, 1) <> "\" Then Path = Path & "\"

  This = Path

  Do

    Do

      If Dir(This & "*.*") <> "" Then Kill This & "*.*"

      Temp = Dir(This, vbDirectory)

      Do While Temp = "." Or Temp = ".."

        Temp = Dir

      Loop

      If Temp = "" Then

        Exit Do

      Else

        This = This & Temp & "\"

      End If

    Loop

    RmDir This

    If This = Path Then

      Exit Do

    Else

      Temp = Split(This, "\")

      ReDim Preserve Temp(0 To UBound(Temp) - 1)

      Temp(UBound(Temp)) = ""

      This = Join(Temp, "\")

    End If

  Loop

  FolderDelete = True

ExitPoint:

End Function

Hello Torsten,

I am reading your question and responding using a translation service. It does not do a very good job. I apologize if there are misunderstandings. In the hope that it helps, I will send my response in English as well.

I am uncertain of your goal and why you are using a macro to accomplish it.

I believe what you are trying to insert is a Text Box (shape) with the Status document property Content Control from the Quick Parts > Document Properties menu.

When I am trying to insert a complex structure in a Word document, my preference is to create and save it as an AutoText or other Building Block entry and use that. It can be inserted easily using a keyboard shortcut, QAT button. It can also be inserted using
a macro. I am going to prepare a sample that does this for you and post it.

If I am incorrect as to your goal, please let me know what it is you are attempting.

This forum is a user-to-user support forum. I am a fellow user.

I hope this information helps.

Please let me know if you have any more questions or require further help.

You can ask for more help by replying to this post (Reply button below).

Stay well