Ajouter du Texte à la Zone de Texte Spécifique dans un Document à l'Aide de VBA

Est-il une façon de nommer les zones de texte dans MS Word pour que je puisse appeler en vba et y ajouter du texte?Par Exemple,j'ai un Formulaire Utilisateur obtient des données de l'utilisateur.après quelques calculs effectués sur ces données,je veux montrer le résultat sur le document dans la zone de texte ou d'une équation...
Comme,Dans visual basic, nous avons eu :

textbox1.text="My Text Goes Here"

Faire, nous avons quelque chose comme ça en VBA? Comme :

ActiveDocument.textboxname.text="My Text" ?!!

je ne veux pas utiliser des Contrôles activeX pour cela.

InformationsquelleAutor user2411110 | 2013-09-23
  1. 4

    Dans Word et PowerPoint, vous ne pouvez attribuer un nom à une forme à l'aide de VBA (contrairement à Excel, où vous pouvez faire ceci dans la barre de formule).

    Mot ne force pas les formes des noms uniques, de sorte qu'il est possible d'avoir deux formes à la fois nommé Text Box 2. Vous pouvez vous référer à des formes aussi par leur position d'index dans la ActiveDocument.Shapes collection.

    Une fois que vous identifiez ce que Shape vous avez besoin de travailler avec, alors il vous suffit de manipuler la .TextFrame.TextRange.Text propriété:

    Sub Test()
Dim shp As Shape
Dim str As String

For Each shp In ActiveDocument.Shapes
    str = "My name is " & shp.Name
    str = str & vbNewLine & "My EditID is " & shp.EditID
    shp.TextFrame.TextRange.Text = str
Next
End Sub

    Une autre chose que vous pourriez envisager est l'ajout d'une AlternativeText propriété de chaque forme. Bien sûr, cela ne résout pas le "non-unicité" de problème, mais vous pouvez l'utiliser (ou CustomerData/CustomXMLParts affecter certains métadonnées de formes, comme un moyen supplémentaire de l'identification et la différenciation entre eux.

    InformationsquelleAutor David Zemens
  2. 2

    Il y a peu de possibilités de la façon dont vous pouvez prendre avantage de CC, mais, à mon avis, la meilleure option est de les envelopper chaque vérifié paragraphe en CC.

    Dim par As Paragraph

'set reference to appropriate paragraph
Set par = ActiveDocument.Paragraphs(2)

Dim cc As ContentControl
Set cc = ActiveDocument.ContentControls.Add( _
            wdContentControlRichText, par.Range)

cc.Tag = "VERIFIED"

'options
'disable deletion of CC
cc.LockContentControl = True

'disable edition of CC
cc.LockContents = True
    InformationsquelleAutor Arshad