有没有一种方法可以将大单词列表转换为新行中的每个单词

Question

我有一个单词列表，例如： 雅各布·马特·本·唐

我想让他们这样。

  

Jacob

     

马特

     

本

     

唐

有人知道吗？

Answer 1

所以，这样做是一个挑战，可以保证使用vba是更好的方法，但只想用功能做些事情...

将目标文本放在单元格A1中，然后将单元格A2的内容向下拖动到A4：

//when user clicks this button//
txtPizzaOrder.setText(newPizza.getInfo());

public String getInfo(){
    String sizeString=String.valueOf(this.size);
    String rtnStment="Size: "+sizeString+"\nCrust:"+this.crust+"\nSauce: "
            +this.sauce+"\nFirst topping: "+this.topping1+"\nSecond topping: "+
            this.topping2+"\nCost: "+this.getCost()+"\n------------------------";
    return rtnStment;
    }

在B1单元格中向下拖动到B4的位置是：

/lib/bootstrap/dist/js/bootstrap.bundle.min.js

请参阅：

Answer 2

这将为您完成。您只需要按照您想要的方式进行设置即可。但是此代码将带走您的字符串并以空格分隔成未定义比例的数组。然后将数组中每个填充的元素写入文档。

Private Sub test()
  Dim MyLine As String
  Dim MyArray() As String
  Dim MyCounter As Integer

  MyLine = "Jacob Matt Ben Don"
  MyArray = Split(MyLine, " ")

  MyCounter = 0
  On Error GoTo Done
  While MyArray(MyCounter) > ""
    ActiveDocument.Content.InsertAfter Text:=MyArray(MyCounter) & Chr(11)
    MyCounter = MyCounter + 1
  Wend
Done:
End Sub